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gral part  of  the  exhaust  emissions  measurement  technique  for  afterburning 
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sample  surveys  made  at  the  engine  exhaust  plane  to  compute  the  true  residual 
emissions  released  to  the  atmosphere.  PLUIKID  is  coded  in  FORTRAN  IV 
language  for  the  Honeywell  6000  computer. 
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SECTION  1.0 


INTRODUCTION 


Computer  program  "PLUMOD"  described  herein  is  an  analytical  model 
of  the  physical  and  chemical  processes  occurring  in  the  mixing  and  re- 
acting gas  flow  fields  of  the  exhaust  plumes  from  afterburning  turbo- 
jet engines.  It  is  an  integral  part  of  the  eadiaust  emissions  measure- 
ment technique  developed  for  such  engines  for  the  Air  Force  Aero  Pro- 
pulsion Laboratory  under  Contract  No.  F33615-73-C-2047  (Reference  1). 

Determination  of  the  gaseous  emissions  from  afterburning  engines  by 
sain)ling  the  exhaust  gas  requires  overcoming  problems  not  encountered 
with  nonafterbuming  engines.  These  problems  are  a consequence  of  the 
extremely  high  gas  temperatures  at  the  e^aust  plane,  which  can  result 
in  continued  chemical  reactions  downstream  of  this  location.  If  such 
reactions  occur,  exhaust  plane  measurements  would  yield  emissions  values 
which  are  not  representative  of  the  actual  contribution  to  atmospheric 
pollution.  One  method  of  overcoming  this  problem  is  to  use  PLUMOD  in  con- 
junction with  gas  sample  surveys  made  at  the  engine  exhaust  plane;  PLUMOD 
predicts  analytically  the  true  residual  emissions  corresponding  to  the 
measurements. 

This  manual  contains  a summary  of  the  analytical  methods,  a descrip- 
tion of  the  computer  program,  and  instructions  for  its  use.  Full  exposi- 
tion of  the  analytical  methods  used  in  the  model,  and  comparisons  of  the 
model’s  predictions  with  actual  survey  measurements  made  at  various  axial 
positions  in  the  exhaust  plumes  of  engines,  are  contained  in  Reference  1. 

The  analytical  model  is  formulated  in  a building-block  manner,  incor- 
porating pre-existing  elements  where  applicable.  This  formulation  was 
expedient  in  constructing  the  model,  but  results  in  analytical  approaches 
that  are  sometimes  indirect.  The  most  prominent  pre-exlting  elements  are; 

(a)  the  steady-state  turbulent  gas  jet  mixing  analysis  used  in  computer 
program  JETMIX  (Reference  2);  (b)  a formal  solution  of  gas-phase  chemical 
reaction  kinetics  equations  developed  by  NASA-Lewis  Research  Center  (Refer- 
ence 3);  (c)  an  approximate  combustion  gas  kinetics  analysis  developed  as 
an  undocumented  extension  of  techniques  developed  for  hydrogen-fueled  hyper- 
sonic ramjets  (Reference  4).  Other  elements  required  to  con5>lete  the  analy- 
sis were  developed  specifically  for  this  model. 

Physical  parameters  input  to  the  model  include:  ambient  air  properties 
(temperature,  pressure,  humidity,  flight  speed) ; fuel  properties  (temperature, 
hydrogen  content,  heating  value) ; engine  cycle  parameters  (ram  air  tempera- 
ture, bypass  ratio,  main  combustor  fuel-air  ratio  and  CO  and  NO^^  emissions 
indices,  fan  discharge  temperature,  exhaust  jet  diameter);  and  exhaust  jet 
survey  probe  data  at  several  points  (radial  location,  impact  pressure,  gas 
sample  analysis).  The  gas  analysis  requires  volumetric  determination  of  CO 
and  CO2  with  the  sample  dried  to  saturation  at  32'’F,  and  total  HC  (as  single- 
carbon-atom molecules)  and  total  NO^  with  sample  water  content  as-sampled. 
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The  composition  and  properties  of  the  gas  flow  at  each  probe  measure- 
ment point  are  derived  from  the  measurements.  In  this  derivation,  the 
gas  composition  at  a point  in  the  flow  is  assumed  to  be  heterogeneous  or 
time-varying.  This  assumption  was  chosen  in  preference  to  a homogeneous 
gas  with  nonequilibrium  chemical  composition,  because  examination  of  chemical 
reaction  kinetics  indicated  that,  under  high  temperature  afterburner  con- 
ditions, the  reactions  would  proceed  to  equilibrium  in  a few  inches.  The 
existence  of  nonequilibrium  concentrations  of  CO  and  HC  in  the  gas  samples  is 
better  explained  by  postulating  that,  over  a part  of  the  sampling  time,  the 
probe  was  immersed  in  a gas  mixture  much  richer  or  much  leaner  than  the  mean 
fuel  concentration  of  the  sample. 

The  flow  is  assumed  to  be  axisymmetric,  so  that  the  gas  properties  at 
each  sample  point  are  applied  to  the  flow  in  an  annular  streamtube.  The  time- 
average  properties  of  the  flow  in  each  tube  are  also  computed. 

The  intermixing  of  the  annular  streamtubes  and  the  diffusion  of  the  jet  air 
into  the  static  or  moving  amblenty^are  computed  by  the  JETMIX  analysis  (Reference 
2),  which  performs  a numerical  solution  of  the  differential  equations  of  con- 
tinuity of  mass,  momentum,  energy,  gas  species,  and  turbulence  k'netic  energy. 

The  flow  initially  in  each  of  the  streamtubes  assigned  to  each  sample  point 
is  treated  as  a separate  gas,  as  is  the  ambient  air.  These  ^ases  are  treated 
as  homogeneous,  inert,  ideal  gases  with  constant  specific  heats,  any  increase 
in  total  temperature  due  to  chemical  reactions  ;s  oalculatM  later,  but  it  is 
assumed  that  the  density  change  is  not  sufficient'-  t influenc''  ''.is  mixing. 

In  an  afterburner,  the  combustion  reactions  shon-  ' re  e<-sent.ia)]  complete  up- 
stream of  the  exhaust  nozzle,  so  that  the  reactiorr:  c*'.vln-iing  ' ato  the  ex- 
haust plume  are  only  consuming  trace  contaminant:- 

A differential  equation  governing  the  forma  lon,  '•onv'ection,  and  decay  of 
a characteristic  of  the  gas  heterogeneity  is  • ol-vi-  .u'r.erically  throughout 
the  flow  field,  using  the  previously  calculated  properties  of  the  flow.  This 
concept  was  taken  from  the  works  of  Spalding  (References  5,  6 and  7). 

The  nonreacting  flow  field  solution  provided  by  the  JETMIX  analysis  and 
the  Spalding  heterogeneity  solution  are  not  used  directly  by  the  plume  model, 
but  rather  are  used  to  guide  the  mixing  between  and  homogenization  within  a 
fixed  number  of  computation  tubes  extended  from  the  original  streamtubes  assigned 
to  each  sample  point.  This  approach  is  taken  to  minimize  the  number  of  chemical 
kinetics  calculations.  The  computation  proceeds  in  axial  steps  through  the 
plume.  The  gas  composition  in  each  tube  is  modified  by  intertube  mixing  and 
intratube  homogenization  at  each  step.  After  several  steps,  the  gas  composi- 
tion is  further  modified  by  chemical  reactions  over  a time  increment  correspond- 
ing to  the  step  length  and  local  velocity. 

A choice  of  two  chemical  reaction  kinetics  analyses  is  provided.  One  of 
these,  GCKP,  consists  of  a numerical  solution  of  simultaneous  differential 
equations  formed  from  the  forward  and  reverse  reaction  rates  of  a system  of 
23  two-  and  three-molecule  collision  reactions.  Although  having  a high  degree 
of  rigor,  GCKP  is  computationally  cumbersome.  The  alternate  kinetics  analysis. 


SCKP,  utilizes  approximations  applicable  to  high-temperature  combustion 
reactions  to  achieve  computational  efficiency.  These  approximations  are 
associated  with  a radical  pool  in  pseudo-equilibrium,  the  decay  of  which  is 
paced  by  selected  three-body  reactions. 

Neither  chemical  kinetics  analysis  treats  consumption  of  unburned  HC. 
This  is  done  with  a phenomenological  technique  using  an  empirical  relation 
of  ignition  delay  for  kerosene  as  a function  of  temperature. 

At  preselected  axial  locations,  the  model  performs  a summation  of  fuel 
and  contaminant  flow  in  each  computation  tube,  providing  predicted  values  of 
local  and  overall  emissions  indices.  When  all  local  gas  temperatures  have 
been  reduced  to  the  point  where  chemical  reactions  cease,  the  emissions 
indices  will  not  change  with  length.  These  are  then  the  true  residual  emis- 
sions . 


SECTI(»(  2.0 


COMPUTER  PROGRAM  DESCRIPTION 


The  analytical  model  is  coded  in  FORTRAN  IV  (sometimes  called  FORTRAN  A) 
language  for  General  Electric's  Honeywell  6000-series  computer.  The  program 
comprises  102  subprograms,  in  addition  to  system  library  subroutines,  and 
uses  166  blocks  of  labelled  common  storage.  Overlay  processing  is  used  to 
reduce  core  memory  requirements;  the  program  currently  requires  41K  of  memory. 

A brief  statement  of  the  function  of  each  subprogram  follows  in  Section 
2.1,  with  emphasis  on  the  interfaces  with  other  subprograms.  The  comments  are 
intended  to  relate  the  subprogram  logic  to  the  description  of  analytical  methods 
presented  in  Reference  1,  and  to  aid  interpretation  of  the  program  source  lists 
in  Section  4.0.  The  subprograms  are  listed  in  alphabetical  order  by  deck  label. 
Entry  names  may  be  associated  with  deck  labels  with  the  aid  of  the  cross- 
reference  chart.  Table  1.  The  link  names  refer  to  the  program  overlay  struc- 
ture in  Section  2.3  and  show  the  general  location  of  the  subprogram  in  the 
logical  structure. 

Variables  stored  in  labelled  common  are  identified  and  described  in  detail 
in  Section  2.2.  It  is  presumed  that  the  variables  used  internally  in  the 
various  subprograms  can  be  adequately  identified  through  examination  of  the 
source  listings  in  Section  4.0.  The  location  of  each  common  block  in  the 
overlay  structure  is  also  indicated. 
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Table  1.  Cross-Reference  List  of  Subprogram  Entry  Names  (SYMDEFS) 


i 


SYMDEF 

DECK 

SYMDEF 

DECK 

SYMDEF 

DECK 

HAIUP 

JETINP 

JETINP 

REDPRE 

REDPPE 

// 

BLKRDA 

JETPRF 

JETPRF 

R1I2 

PJ12 

// 

MAIURD 

JETPP.P 

JETPRP 

niNP 

KINPP 

// 

CTADPr. 

JHESHH 

JMESHM 

SCALE 

SCALE 

// 

ELOCKT 

JTCTRL 

JTCTRL 

SCKP 

SCKP 

// 

NA.MDL!: 

JTEDGE 

JTEUnE 

SEARCH 

SERCH 

// 

DLKTH 

JTFILE 

JTFILE 

SETH  . 

t'LP::G 

// 

KEELOK 

JTIMIT 

JTINIT 

SETUP 

SETUP 

// 

3LKST 

JTOUTI 

JTOUTI 

SCL'.'3 

SOL'-3 

// 

DLCK 

JTOUTP 

JTOUTS 

SPALD 

SPALD 

ADJMC 

ADJMC 

JTOUTS 

JTOUTS 

ST PROP 

STPROP 

AITERl 

AITER 

JTSTEP 

■jTSTP 

SUNCPD 

SUNCPD 

AITER2 

AITER 

KIN  FT 

KINET 

SUNUP 

SUMP 

ALFA2 

ALFA2 

KIMP 

KINPP 

TARPRT 

TABPRT 

ADTO 

AUTOO 

LCFIT 

LCFIT 

TDSEO 

TDSEO 

CAROL 

CAROL 

LESV 

LESU’.’ 

TFNH 

TFIIH 

CASH 

CASMH 

LFIT 

LFIT 

TFMHl 

TFMII 1 

CA5I 

CASMM 

LFITl 

LFITl 

THEM 

7HRn:i 

CASM 

CASMM 

LSPFIT 

LSPFIT 

THRUST 

THP.UST 

CHEIIG 

Cr.EMD 

MAIN 

iiai!:j 

TRICI A 

TP  I LI  A 

CHIP 

cunss 

MAIM 

CFILE 

X5IZE 

XSILE 

C0C02E 

CCC02B 

MniAIM 

MFNAIM 

YOF 

YOFTCl  I 

COEFF 

COEFF 

M0'’F. 

HLPICR 

CUES 

CUBES 

MPRIffT 

PRINT 

DERIV' 

DERI'’ 

MSHCUT 

NSHC'JT 

DEf.’V 

DF-PJ’’.' 

MXFLTO 

MXFLTI 

DFEQ 

DFEO 

MXFLUT 

MXFLUT 

FPCASII 

ECGASM 

MXKINO 

NXKIUO 

ECGAST 

ECGAST 

NE'.’FLC 

t:”PSi 

ECi:iN 

Ec;;iri 

ND'R'FT 

M’-’MET 

ERROR  1 

ERROR  1 

NEUPSI 

r-'-PSi 

ERROR  I 

MAINJ 

N0K2B 

:iOX23 

ERROPC 

EP.RORC 

OUTl 

OUTPP 

FILL 

FILL 

0UT2 

OUTPP 

FMPYC 

MLPICG 

OUT3 

OUTPP 

• 

FRGAST 

ECGAST 

CUTP 

OUTPP 

FUEL 

FUEL 

PADD 

PADD 

GAM  CP 

GAMCF 

PARD 

PARDD 

GAMR 

GAIIH 

PBOLIC 

PDOLIC 

GCKP 

GCKP 

PERR 

PERRR 

GCKPl 

GCKPl 

PRAT 

PRAT 

GMODFY 

GHOD 

PRED 

PREDD 

HCE02 

HCE03 

PREDl 

PREDD 

HCE02 

1ICEC2 

PROPJ 

PROPJ 

HYCARB 

llYCAR.n 

PSE02 

PSE02 

IMTC 

IMTEE 

QI  REM 

OIREM- 

INTE 

INTEE 

RATCOtl 

RATCOM 

INTG 

INTG 

READIN 

READIN 

INTG 

INTEE 

READT 

READT 

INTI 

IMTEE 

READT 

READT2 
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2.1  The  Subroutines  and  What  They  Do 

Subprogram  descriptions  are  listed  velow  In  alphabetical  order  by  deck 
label.  Corresponding  source  listings  are  provided  In  Section  4.0.  Table 
I may  be  used  to  locate  the  subprogram  containing  a specific  entry  name 
(SYMDEF) . 


a 

!] 


i 
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Subprogram  ADJMC 

Entry  Name:  ADJMC 
Type:  Subroutine 
Link : EMIS 

Function:  ADJMC  is  called  from  subroutine  MXKINO  to  initilize  the  raw  fuel 
molecule  weight  and  adjust  the  polynominal  coefficient  A6  to  an  absolute 
enthalpy  base.  These  procedures  are  described  in  Appendix  A (Part  3)  of 
Reference  1. 

Subprogram  ALTER 

Entry  Names:  AITERl,  AITER2 
Type:  Subroutine 
Link:  CPLINK 

Function:  Not  used  in  PLUMOD.  Call  is  equated  to  ERROR!.  No  list. 

Subprogram  ALFA2 

Entry  Name : ALFA2 
Type:  Subroutine 
Link:  LMXF 

Function:  Evaluates  each  array  element  aji,  which  is  the  fraction  of  flow  in 
"NEWNET"  tube  j at  the  previous  axial  station  that  is  transferred  by  intertube 
mixing  to  tube  i at  the  new  station.  The  a's  are  stored  in  common  block/CMXFLT/ , 
which  also  contains  flows  of  "JETMIX"  duimny  gases  in  each  tube.  Fuel  flows 
are  taken  from  block/CNWNET/,  and  total  flows  from  /CMASS/.  The  single  argu- 
ment is  the  number  of  fuel-bearing  "NEWNET”  tubes. 


' 
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Subprogram  AUTOO 


Entry  Name : AUTO 
Type:  Subroutine 
Link : LOCK 

Function:  "Automatic  elimination  from  error  considerations  of  species  with 
non- representative  errors."  A NASA  GCKP  subroutine  (Reference  3)  that  Is  not 
used  In  PLUMOD.  Accesses  common  blocks  /COND/,/PQRE/,  and  /SKIP/. 


Subprogram  BLCK 


Type : Block  data 
Link:  EMIS 

Function:  The  primary  function  of  BLCK  Is  to  Initialize  the  species  names  and 
molecular  weights  which  will  be  used  by  both  the  GCKP  and  SCKP  kinetics 
routines.  Sixteen  constituents  are  utilized  In  GCKP  (A,  NH3,  raw  fuel  con- 
sidered Inert),  whereas  only  the  first  thirteen  are  utilized  In  SCKP.  The 
constituent  order  Is:  H,  0,  H2,  O2,  OH,  H2O,  CO,  CO2,  N2,  A,  NO,  N,  H02»  NO2, 
^3»  Cio  Hj^on  '^^w  fuel).  The  names  and  molecular  weights  are  stored  In 
labeled  COMMON  /SNMW/.  Note  that  the  molecular  weight  of  the  fuel  Is  de- 
pendent on  the  hydrogen/ carbon  ratio  and  Is  Initialized  by  subroutine  ADJMC. 


Subprogram  BLKRDA 


Entry  Name : none 
Type:  Block  Data 
Link:  LGCK 

Function:  Enters  specific  code  number,  reaction  rate  expression  coefficients, 
and  third  body  efficiencies  for  23  reactions,  and  species  excluded  from 
Integration  error  consideration  Into  common  blocks  /LSLRSV/,  /REAC/,  /RRAT/, 
and  /SKIP/.  In  rhe  NASA  GCKP  program  (Reference  3),  this  Information  Is  read 
as  Input  data. 
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SubproRram  BLKST 

Entry  Name:  none  * 

Type:  Block  Data 
Link:  LGCK 

Function:  Enters  stoichiometric  coefficients  for  16  species  and  23  reactions 
in  common  block  /SPEC/. 

Subprogram  BLKTH 

Type:  Block  data 
Link:  PREJET,  EMIS 

Function:  The  primary  function  of  BLKTH  is  to  initialize  the  polynominal 
coefficients  utilized  by  the  thermodynamic  routine  THEM.  The  polynominal 
representation  of  the  JANAF  thermodynamic  propertic  ? is  discussed  in 
Appendix  A-3  of  Reference  1.  The  data  are  stored  in  COKi.v,:  /TCOF/, 

Subprogram  BLOCKT 
Type:  Block  data 
Link:  JETKLX 

Function:  JETMIX  block  data  for  turbulence  parameters  (Common/PROPJT/ 


p 


StibproRram  CAROL 


Entry  Name;  CAROL 
Type;  Subroutine 
Link;  PREJET 

Function:  Computes  gas  sample  fuel-air  ratio  and  emissions  Indices  from 
"carol"  gas  analyzer  readings.  The  arguments » all  single  word  variables  are; 


N (independent)  H/C  atom  ratio  of  fuel 

WAR  (Independent)  Specific  humidity  of  combustion  air 


RHC 

Rra2 

RNOX 


Gas  analyzer  readings  for  HC,  CO, 
CO2,  and  NOx»  mole  fraction, 
with  standard  sample  moisture 
content. 


FAR  (dependent)  Fuel-air  ratio 


EIHC  Emission  Indices  for  HC,  CO,  and  NO^^, 

EICO  (dependent)  Ib/klb  fuel 

EINOX 


The  sample  hydrogen  content  Is  estimated  by  reference  to  function  RH2. 


Subprogram  CASMM 


Entry  Name;  CASM,  CASl,  CASG 
Type;  Subroutine 
Link;  LGCK 

Function;  "Chooses  the  Initial  step  (restart)  formula  (entry  CASl)  or  the 
general  step  formula  (entry  (CASG).  Sets  up  the  augmented  matrix,  and  computes 
increments."  This  is  a modified  version  of  the  NASA  GCKP  subroutine  of  the  same 
name  (Reference  3) . The  modifications  permit  a limited  number  of  attempts  to 
recover  from  negative  species  concentrations  by  the  simple  expedient  of  re- 
peating the  step  with  half  the  step  size.  Calls  subroutine  LESV,  and  accesses 
common  blocks  /OPTS/,  /COND/,  /DERN/,  and  /MATX/. 
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Subprogram  CFILE 


Entry  Name : MAIN 
Type:  Subroutine 
Link:  CFILE 

Function:  Subprogram  MAIN  is  the  main  siAroutine  of  overlay  CFILE.  This 
routine  is  used  for  two  purposes: 

1)  Merge  the  output  files  from  PREJET  (file  code  1) , JETMIX 
(file  code  2) , and  SPALDG  (file  code  3)  to  a single  output 
file  (file  code  4). 

2)  Decollate  the  input  file  (file  code  7)  and  restore  the 
PREJET,  JETMIX,  SPALDG  data  on  file  codes  1,  2,  3 respectively. 


Subprogram  CHEMB 


Entry  Name:  CHEMB 
Type : Sub  routine 
Link:  EMIS 

Function:  Not  used.  Equated  to  system  library  routine  ERROR.  No  list. 


Subprogram  C0C02B 

Entry  Name:  C0C02B 
Type:  Subroutine 
Link:  LSCK 

Function:  Subroutine  C0C02B  calculates  the  finite  rate  consumption  of  CO  over 
a specified  time  step.  The  arguments  to  the  subroutine  are  the  static 
pressure  and  the  magnitude  of  the  time  step. 

The  procedures  for  treating  the  CO  consisoptlon  are  described  In  Section 
4.6.2  of  Reference  1.  Essentially,  the  procedure  consists  of  a closed  form 
Integration  of  the  rate  expression  for  the  reaction  COfOH“C02+H.  If  the 
result  Indicates  a CO  concentration  below  that  at  mixture  equilibrium,  the 
CO  mole  fraction  Is  set  to  the  equilibrated  value. 


Subprogram  COEFF 

Entry  Name:  COEFF 
Type:  Subroutine 
Link:  SPALDG 

Function:  The  function  of  subroutine  COEFF  Is  to  evaluate  the  coefficients 
In  the  partial  differential  equation  for  mean  square  fuel  concentration 
fluctuation  Intensity  (G) . The  coefficients  are  calculated  at  the  cross- 
stream mesh  points  for  each  axial  station  In  the  step-by-step  finite  difference 
solution  procedure.  Local  aerodynamic  properties,  from  subroutine  STPROP, 
are  used  In  the  calculations.  The  variable  K In  the  calling  sequence  for 
COEFF  Is  an  Indicator  which.  In  this  program.  Is  held  constant  (K“l) . 


Subprogram  CTABPR 

Type:  Block  Data 
Link:  Main 

Function:  CTABR  sets  the  data  In  conmon  /CTABPR/  to  0.  (Used  by  subroutine 


Entry  Name:  CUBS,  CINP 
Type:  Subroutine 
Link:  LOCK 

Function:  From  entry  CUBS,  "computes  coefficients  for  cubic  spline  inter- 
polation and  differentiation  from  input  table."  From  CINP,  performs  one 
of  the  several  interpolations  and  differentiations,  using  these  coefficients, 
depending  on  value  of  ITPSZ  in  common  block  /AFUN/.  This  subroutine  is 
taken  intact  from  tne  NASA  GCKP  program  (Reference  3) . 


Subprogram  DERIV 


Entry  Name:  DERIV 
Type:  Subroutine 
Link:  CPLINK 

Function:  Subroutine  DERIV  is  used  to  calculate  a partial  derivative  using 
divided  differences  that  is  compatible  with  the  dFEQ  routine.  The  arguments 
to  the  routine  are  the  Independent  variable,  the  dependent  variable,  the 
calculated  variable  derivative,  and  the  index  limits  in  the  Independent 
variable  table.  This  subroutine  is  called  from  JTSTEP  to  compute  the  partial 
derivative  of  the  turbulent  kinetic  energy  with  respect  to  iji. 


Subprogram  DERW 


Entry  Name:  DERV 
Type:  Subroutine 
Link:  LOCK 

Function:  "Computes  all  derivatives  with  respect  to  the  Independent  variable" 
(time,  in  the  PLUMOD  application).  This  subroutine  is  taken  Intact  from  the 
NASA  GCKP  program  (Reference  3).  It  accesses  common  blocks  /OPTS/ ,/COND/ , 
/SPEC/,/GHSC/,/DERN/,/NECC/,  and  /SABS/,  and  Includes  a call  to  PARD. 
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Subprogram  DFEQ 


Entry  Name;  DFEQ 
Type:  Subroutine 
Link:  CPLINK 


Function;  Subroutine  DFEQ  solves  a partial  differential  equation  of  the 
general  "diffusion"  equation  form  using  the  methods  described  in  Section 
4.3.10  of  Reference  1.  The  general  "diffusion"  equation  form  Is: 


8F 
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The  coefficients  of  the  differential  equation  are  passed  to  the  routine  via 
COM^K)N/PARAM/  and  COMMONPARAMl/.  These  connons  also  contain  the  dependent 
and  Independent  variables  and  the  boundary  conditions  applicable  for  the  given 
partial  differential  equation.  The  first  of  the  four  arguiaents  to  the  routine 
denotes  the  difference  form  to  be  used  for  replacement  of  a 3F  . 

ay  ay 

The  next  two  arguments  are  the  lower  and  upper  boundary  condition  Indicators. 
The  fourth  argument  is  an  error  Indicator  switch.  The  reader  Is  referred  to 
the  program  listing  for  the  various  settings  of  the  first  three  arguments. 


The  solution  Is  effected  by  replacing  the  partial  derivative  by  divided 
differences  to  obtain  a set  of  linear  simultaneous  equations.  The  trl-dlagonal 
system  Is  solved  using  subroutine  TDSEQ.  The  dependent  variable  and  its  deriv- 
ative are  returned  In  FMl  and  DFMl  located  In  COMMON/PARAM/. 


Subprogram  EQGASH 


Entry  Name:  EQGASH 
Type:  Subroutine 
Link;  PREJET 

Function:  Computes  thermostatic  properties  of  combustion  gas  mixtures  at  a 
specified  enthalpy,  pressure,  and  fuel-air  ratio.  Calls  EQGAST  with  successive 
estimations  of  temperature,  using  QIREM  to  direct  convergence.  Arguments  are 
the  eSOi  as  EQGAST,  except  that  T Is  a dependent  variable  and  H Is  Independent. 
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Subprogram  EQGAST 

Entry  Name;  EQGAST,  FRGAST 
Type:  Subroutine 
Link;  PREJET 

Function;  Computes  thermostatic  properties  of  combustion  gas  mixtures  at  a 
specified  temperature  and  pressure.  From  entry  EQGAST,  the  equilibrium 
mixture  composition  at  the  specified  fuel-air  ratio  is  computed  by  a call  to 
HCEQ2.  From  entry  FRGAST,  the  mixture  is  specified.  Arguments  for  entry 
EQGAST  are: 

FAR  Mass  ratio  of  fuel  to  dry  air 
WAR  Specific  humidity  of  air 
HC  H/C  atom  ratio  of  fuel 
T Temperature  (®R) 

P Pressure  (psia) 

FIXCO  If  .TRUE.,  CO  or  NO  concentration  is 

FIXNO  ) predetermined  and  excluded  from  equilibrium  calculations 

The  preceeding  seven  arguments  are  independent  variables. 

Z Mixture  composition,  moles/lb  mix,  eleven 
species  in  order  H,  0,  H_,  0„,  OH,  H„0,  CO, 

CO^,  N^,  A,  NO 

If  FIXCO  = .TRUE.,  Z and  Z „ must  be  specified. 

* CO  coZ 

If  FIXNO  = .TRUE.,  Z and  A _ must  be  specified 
’ no  nZ 

The  following  six  arguments  are  Independent  variables; 

H Mix  enth2ilpy  (Btu/lb) 

MWT  Mix  molecular  weight  (Ib/mole) 

S Entropy  (Btu/lb  “R) 

SPV  Specific  volume  (ft^/lb) 

A Frozen  sonic  velocity  (ft/sec) 

CP  Frozen  specific  heat  (Btu/lb  ®R) 

The  arguments  FAR,  WAR,  HC,  FIXCO,  and  FISNG  are  not  used  for  entry  FRGAST. 
Specie  thermo  properties  are  transmitted  from  subroutine  THRM  thru  block/GHSC/. 


i 
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Subprogram  EQKIN 


Entry  Name : EQKIN 
Type ; Sub  routine 
Link:  LSCK 

Function:  Subroutine  EQKIN  Is  called  from  KINET  to  determine  the  equilibrium 
combustion  efficiency  (S)  and  teiq>erature  CTeq.)  which  will  be  approached  by 
the  rate  expressions.  The  eqtilllbrlum  temperature  is  established  by  Iteration 
using  subroutines  HXEQ2  and  QIREM.  Upon  convergence,  the  equilibrium  S is 
computed  using  the  known  fuel  air  ratio  and  the  equilibrium  molecular  weight 
generated  in  subroutine  HCEQ2. 

When  P DUM  (20)  is  COMMON /CPRING)  is  input  as  39.,  the  kinetics  scratch 
file  defined  in  COMMON/DQIREM/  is  changed  to  39.  When  this  situation  occurs, 
the  equilibrium  temperature  Iteration  history  is  recorded  on  the  scratch  file 
(in  addition  to  the  initial  kinetics  information  on  file  40)  (see  - subroutine 
MXKINO) . 


Subprogram  ERKORl 


Entry  Name : ERRORl 
Type:  Subroutine 
Link:  PREJET  & LSCK 

Function:  Writes  contents  of  block/CQIREM/,  containing  control  info  for 
QIREM,  on  file  6.  Transfers  up  to  3000  132-character  BCD  records  (without 
carriage  control  symbols)  from  file  number  contained  in  single  word  of 
/DQIRM/  to  file  6.  Calls  ERROR  to  generate  logic  trace  and  terminate  execution. 


'I 


Subprogram  ERRORC 


Entry  Name:  ERRORC  *• 

I 

Type:  Function  j 

Link:  LOCK 

Function:  "Computes  the  relative  error  in  an  integration  step  of  size  H. 

Determines  the  controlling  variable."  This  is  a renamed  version  of  the  NASA 
GCKP  routine  ERRORR.  Renaming  was  necessary  to  avoid  conflict  with  a Honeywell 
system  library  subroutine  called  elsewhere  in  PLUMOD  in  the  event  of  a 
computation  error.  Common  blocks  /COND/,/SINT/,/PQRE/,  and  /SKIP/  are  accessed. 


Subprogram  FILL 

Entry  Name:  FILL 
Type;  Subroutine 
Link:  INLINK 

Function:  This  routine  will  fill  vacancies  in  input  lists  by  linearly  inter- 
polating between  known  values.  Arrays  X and  Y are  input  along  with  limits  NA 
and  N6  on  the  known  values. 

Vacancies  in  the  Y list  are  detected  by  the  presence  of  a dummy  value 
which  the  list  was  Initialized  to.  Any  such  positions  are  filled  by  inter- 
polating between  the  closest  known  values. 


Subprogram  FUEL 


Entry  Name;  FUEL 
Type:  Subroutine 
Link;  PREJET 

Function:  Computes  estimated  thermodynamic  properties  of  raw  fuel  vapor.  Four 
arguments  are:  Fuel  H/C  atom  ratio,  temperature  (®R)  (both  independent), 
enthalpy  (Btu/lb),  and  specific  heat  (Btu/lb  ®R). 


i 
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Subprogram  GAMCP 


Entry  Name;  GAMCP 
Type;  Subroutine 
Link;  JETMIX 

Function;  GAMCP  computes  the  ratio  of  specific  heats  (y)  and  the  constant 
pressure  heat  capacity  CCp)  at  each  transverse  mesh  point.  The  subroutine 
arguments  are  the  temperature,  y,  Cp,  R,  and  the  mesh  point  Indices.  For 
800®  R ^ T ^ 3600*  R,  y Is  confuted  as  a ftmctlon  of  temperature.  Below 
800*  R,  y •*  1.4  and  above  3600"  R,  y “ 1.254. 


Subprogram  GAMH 


Entry  Name : GAMH 
Type;  Function 
Link;  JETMIX 

Function;  Function  GAMH  Is  called  by  subroutine  JETINP  to  compute  a single 
value  of  the  specific  heat  ratio.  The  relations  used  In  GAMH  are  Identical 
to  those  used  In  GAMCP. 


Subprogram  GCKP 


Entry  Name;  GCKP 
Type;  Subroutine 
Link : LGCK 

Function;  Main  driver  routine  for  GCKP  calculations.  Performs  certain 
Initialization,  then  calls  GCKPl  to  perform  chemical  kinetics  calculations 
on  the  hot  part  of  a gas  mixture.  By-passed  kinetics  calculations  If 
T ^ 1500  R.  Tube  number  Is  only  arg\iment.  Has  access  to  common  blocks 
/TROUBL/ , /INDATA/ , /JETDAT/ , /GASCMP/ , /GASTMW/ , /STCTRL/ , /CRPRINT/ , /COND/ , and 
/PRIN/. 


Entry  Name:  GCKPI 
Type : Sub  routine 
Link:  LGCK 

Function:  This  is  the  main  program  of  the  NASA  GCKP  program  CReference  3) 
converted  to  subroutine  form.  Changes  have  been  made  to  cause  printing  to 
be  suppressed  except  just  prior  to  a PLUMOD  print  station.  Additional 
printout  can  be  obtained  by  setting  PDUM(11)^0.  Chemical  kinetics  calculations 
are  performed  by  calls  to  CASG,  INTC,  INTG,  INTI,  KINP,  OUTl,  01]T2,  OUTS,  PRED, 
PREDl,  and  ERRORC.  A non-standard  retumi  from  GCKPl  occurs  if  a computation 
malfunction  is  encountered.  Common  blocks  /COND/,/SINT/,/PQRE/,/PRlN/, 
/STCTRL/,  and  /CPRINT/  are  accessed. 


Entry  Name:  GMODFY 
Type:  Subroutine 
Link:  GMOD 

Function:  Reads  the  PREJET  data  from  file  1,  modifies  the  initial  profiles 
of  Spalding  heterogeneity  to  force  rapid  homogenization  of  tubes  with  a mass 
fraction  hot  gas  less  than  a specified  minimum  (input  thru  Namelist  /A/), 
optionally  modifies  the  mass  fraction  hot  gas  assigned  to  the  ambient  air, 
then  restores  the  altered  PREJET  data  to  file  1.  No  arguments.  Uses  common 
block  /CBITS/. 


* i 


Siibprogram  HCEQ2 


Entry  Name : HCEQ2 
Type:  Subroutine 
Link:  LSCK 

Function:  Coiiq>utes  the  equilibrium  composition  of  gaseous  products  of 
conbustlon  of  fuel  and  moist  air  as  a specified  temperature  and 
pressure.  The  arguments  are  the  wel^t  ratio  of  fuel  to  dry  air,  the 
specific  humidity,  they  hydrogen~to-carbon  atom  ratio  of  the  fuel,  the 
temperature  (*  R) , the  pressure  (psla) , two  logical  vari£d>les  specifying 
whether  CO  and  NO  are  to  be  excluded  from  equilibration,  and  the  mole 
fractions  of  species  H,  0,  H2,  O2,  OH,  H2O,  CO,  CO^,  N2,  A,  and  NO  In  the 
mixture.  If  the  CO  concentration  is  to  be  fixed,  both  CO  and  CO2  concen- 
trations must  be  predetermined.  If  NO  Is  to  be  fixed,  both  NO  and  N2  con- 
centrations must  be  specified.  HCEQ2  uses  common  block  /GHSC/  to  transmit 
species  therm''  properties  from  THRUM. 


Subprogram  HCEQ3 


Entry  Name;  HCEQ2 
Type:  Subroutine 
Link:  PREJET 

Function;  Same  as  HCEQ2,  except  that  gas  composition  is  returned  as  moles/ 
pound  mixture  instead  of  mole  fractions. 


Subprogram  HYCARB 


Entry  Name;  HYCARB 
Type:  Subroutine 
Link:  EMIS 

Function:  HYCARB  calculates  the  consumption  of  unbumed  hydrocarbon  (Cio^lOn) 
contaminants  in  a specified  reaction  tube  using  an  empirical  relation  of 
ignition  delay  for  kerosene  as  a function  of  temperature  (Section  4.6.3  of 
Reference  1).  The  hydrocarbon  incipience  at  the  upstream  and  current  station 
are  stored  as  HCINCP  in  COMMON /GAS CMP/.  When  the  temperature  upstream  is 
greater  than  400°  R,  the  ignition  delay  is  calculated  using  the  above  de- 
scribed relation.  A weighted  hydrocarbon  incipience  including  the  raw  hydro- 
carbons poured  in  from  the  lean  streamtubes  is  computed  at  the  initial  station. 
The  residence  time/local  ignition  delay  is  then  added  to  yield  a new  hydro- 
carbon incipience.  When  the  accumulated  incipience  equals  or  exceeds  1,  the 
fuel  is  burned  instantaneously  to  CO  and  H2.  The  composition  of  the  raw  fuel 
is  set  to  0,  and  the  compositions  of  O2,  H2,  CO  are  adjusted  according  to  the 
stoichiometry  of  the  combustion  reaction.  The  single  argument  to  the  sub- 
routine is  the  streamtube  index. 


Entry  Name:  INTE,  INTI,  INTC,  INTG 
Type : Subroutine 
Link : LGCK 

Function:  This  is  a slightly  modified  version  of  the  NASA  GCKP  (Reference  3) 
subroutine  of  the  same  name.  It  sets  up  and  calls  for  integration  of  the  sys- 
tem of  differential  equations,  then  selects  a step  size  for  the  next  integra- 
tion. The  modification  is  a call  to  ERRORC  rather  than  ERROR,  which  is  the 
name  of  a Honeywell  library  subroutine  used  elsewhere  in  PLUMOD.  The  integra- 
tion is  performed  by  calls  to  AUTO,  CASG,  CAST,  PERR,  PRED,  ERRORC,  and  SEARCH. 
Common  blocks/OPTS/ , /COND/,  /SINT/,  /PQRE/,  and  /SPEC/  are  accessed. 


Subprogram  INTG 


Entry  Name : INTG 
Type : Sub  rout ine 
Link:  JETMIX 

Function:  INTG  performs  integration  of  a given  function  using  the  trapezoidal 
rule.  The  Integral  is  returned  as  the  third  argument  of  the  calling  sequence. 
The  Integrand  and  Independent  variable  tables  are  supplied  as  the  first  two 
arguments.  The  final  two  arguments  are  the  index  limits  in  the  Independent 
variable  table. 
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Subprogram  JETINP 


Entry  Name : JETINP 
Type : Subroutine 
Link:  INLINK 

Function:  JETINP  is  the  input  routine  which  reads  card  input  (NAMELIST  $A) 
from  file  5,  calculates  Initial  conditions  at  the  jet  discharge  plane,  and  sets 
up  initial  profiles  to  start  the  numerical  calculation.  Initially,  if  TAPIN 
is  T,  the  jet  discharge  parameters  and  the  plume  initial  profiles  generated  in 
the  PREJET  overlay  are  read  from  file  1 (subroutine  JTFILE) . Following  file 
Input,  JETINP  reads  card  input  from  file  5 using  NAMELIST  $A.  After  counting 
the  number  of  axial  print  stations,  the  ambient  parameters  and  jet  parameters 
not  Input  are  calculated.  Static  temperature,  total  pressure,  and  jet  velocity, 
Mach  number,  and  turbulence  energy  for  the  jet  and  external  environment  are 
then  available. 

If  profiles  are  not  input  from  either  PREJET  or  a previous  JETMIX  run, 
approximate  initial  station  profiles  of  velocity,  temperature,  turbulence 
intensity,  and  species  mole  fraction  are  established.  In  the  case  of  a re- 
start run,  the  JETMIX  profiles  at  the  restart  station  are  reclaimed  by  call- 
ing JTFILE.  Subroutine  JETPRP  is  then  called  to  calculate  the  stream  function 
4)  at  the  initial  station  and  initialize  the  data  in  common  region  /PROP  J/. 
Finally,  subroutine  JT  or  T1  is  called  to  print  the  initial  station  data  and 
if  TAPOT  is  T,  JTFILE  is  called  to  store  the  initial  profiles  on  file  3. 


Subprogram  JETPRF 


Entry  Name : JETPRF 
Type : Subroutine 
Link:  PREJET 

Function:  The  function  of  subroutine  JETPRF  is  to  convert  nozzle  exit  plane 
survey  data  and  engine  cycle  conditions  to  input  for  the  JETMIX  and  SPALDG 
programs.  Test  data  is  transmitted  from  routines  READIN  and  MXFLTI  to  JETPRF, 
where  initial  conditions  and  physical  parameters  are  determined  for  the  multi- 
tube, non-reacting  jet  flow  field  analysis.  Certain  input  information  can  be 
supplied  to  this  subroutine  through  the  NAMELIST  $A. 
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Subprogram  JETPRP 


r 


Entry  Name : JETPRP 
Type:  Subroutine 
Link:  JETMIX 

Function:  JETPE(0  Is  utilized  to  compute  selected  jet  mixing  parameters  at  a 
given  print  station.  On  the  Initial  call,  subroutines  SCALE,  PROPJ,  and  GAMCP 
are  called  to  calculate  the  Initial  width  of  the  mixing  zone  and  values  of  the 
turbulence  length  scale,  turbulent  viscosity,  specific  heat  ratio,  and  con- 
stant pressure  heat  capacity.  The  stream  function  coordinate  iji  Is  then  calcu- 
lated by  integration  of  equation  4.3-31  of  Reference  1.  For  a confined  mixing 
situation,  the  for  the  streamline  coincident  with  the  outer  duct  wall  Is 
also  determined. 

After  calculation  of  the  Jet  properties  along  iji  > 0,  the  sonic  line  Is 
located  (If  the  jet  Is  supersonic)  and  the  entrained  mass  flow  Is  determined. 
For  a confined  mixing  case,  the  subroutine  THRUST  Is  called  to  determine  the 
Integrated  momentum  of  the  mixing  and  external  streams.  In  this  case,  also, 
a check  Is  made  to  determine  If  the  flow  is  choked  at  the  given  station.  If 
the  flow  Is  choked,  and  the  available  downstream  area  Is  less  than  or  equal  to 
that  at  the  current  station,  the  run  is  terminated. 


Subprogram  JMESHM 


Entry  Name:  JMESHM 
Type:  Subroutine 
Link:  CPLINK 

Function:  Subroutine  JMESHM  Is  used  to  redistribute  the  calculation  mesh  In 
the  transltlon/slmllar  region  of  the  jet.  The  streamlines  are  redistributed 
such  that  the  ratio  of  ^’s  for  any  two  adjacent  Intervals  Is  a constant.  The 
following  relation  Is  used: 


-I'l  - 

where : 

K 

A'I'l  ' 

and 

’l'l/'l'( 

(K  - 1) 

mesh  constant 

(’l'2  - 'I'l) 

> 1 for  the  last  mesh  point. 
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Subprogram  JTCTRL 


Entry  Name : JTCTRL 
Type : Subroutine 
Link:  CPLINK 

Function:  JTCTRL  is  the  main  control  routine  in  the  calculation/output  over- 
lay. Subroutine  JTSTEP  is  called  to  carry  out  the  integration  of  the  differ- 
ential equations  to  the  current  calculation  station.  Upon  return  from  JTSTEP, 
tests  are  initiated  to  determine  if  the  potential  core  or  supersonic  core  has 
disappeared  or  a merge  point  has  been  detected  (coannular/coplanar  Jet).  If 
so,  the  current  X value  is  Inserted  as  a calculation  station.  The  subroutine 
JETPRP  is  called  to  calculate  jet  properties,  and  if  printout  was  requested, 
JTOUTP  is  called  to  print  station  profiles.  When  the  potential  core  dis- 
appears, JMESHM  is  called  to  redistribute  the  calculation  mesh. 


Subprogram  JTEDGE 


Entry  Name:  JTEDGE 
Type:  Subroutine 
Link:  CPLINK 

Function:  The  prime  functions  of  JTEDGE  are  to  locate  the  outer  edge  of  the 
jet  mixing  zone  and  to  set  indicators  for  addition  of  another  streamline  on 
the  next  axial  solution  step.  Normally,  the  outer  edge  of  the  jet  is  taken 
as  the  point  where  the  difference  between  the  local  velocity  and  the  center- 
line  velocity  is  98  percent  of  the  maximum  velocity  difference  across  the  jet. 
When  the  variable  SCLD  in  COMMON /SCALED/  is  T,  the  edge  is  taken  as  the  point 
where  the  ambient  air  mole  fraction  is  0.98. 

After  determination  of  the  edge  condition,  the  Y coordinates  corresponding 
to  the  ^ coordinates  are  calculated  by  integration  of  the  streamfunctlon  rela- 
tion using  subroutine  INTG.  Finally,  the  indicator  to  add  a streamline  is  set 
T if  the  difference  between  the  edge  velocity  and  the  velocity  at  the  adjacent 
inner  mesh  point  is  greater  than  0.005.  The  first  argument  to  the  subroutine 
is  the  current  X location.  The  Y and  ip  values  of  the  edge  are  returned  as  the 
next  two  arguments.  The  streamline  addition  indicator  is  the  fourth  argument 
in  the  calling  sequence. 
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Subprogram  JTFILE 


Entry  Name : JTFILE 
Type:  Subroutine 
Link:  JETMIX 

Function:  JTFILE  Is  used  to  store/retrieve  program  data  on/£rom  tape  or  mag- 
netic disc  files.  The  subroutine  has  four  sections  which  serve  the  following 
functions : 


1.  Read  input  profiles  and  parameters  defining  the  Jet  from  file  1 or 
file  2. 

2.  Write  input  and  centerline  parameters  on  file  2.  Reclaim  calculated 
profiles  from  file  3 and  write  them  on  file  2. 

3.  Read  calculated  profiles  for  a designated  station. 

4.  Write  calculated  profiles  on  file  2. 


Subprogram  JTINIT 

Entry  Name:  JTINIT 
Type : Subrout Ine 
Link:  INLINE 

lunctlon:  Initialize  labeled  common  variables  to  standard  settings  prior  to 
Input. 


Subprogram  JTOUTl 


Entry  Name : JTOUTl 
Type : Subroutine 
Link:  INLINE 

Function:  JTOUTl  prints  the  Initial  conditions  at  the  discharge  plane  of  the 
Jet.  Included  are  the  parameters  defining  the  Jet  such  as  T,  P,  U,  etc.  and 
the  Initial  profiles  of  normal  coordinate,  streamfunctlon,  velocity,  tempera- 
ture, turbulence  Intensity,  and  species  mole  fractions.  For  the  confined 
mixing  situation,  the  stream  function  value  at  the  outer  duct  surface  Is  also 
printed. 


Subprogram  JTOUTS 


Entry  Name:  JTOUTS,  JTOUTP 
Type:  Subroutine 
Link:  CPLINK 

Function:  Subroutine  JTOUTS  (ENTRY  JTOUTP)  is  the  primary  output  routine  for 
the  JETMIX  program.  JTOUTS  prints  a summary  print  of  the  overall  station  pa- 
ramaters  of  the  Jet.  Included  in  this  dimensionless  output  are  the  X station 
location,  the  width  of  the  mixing  zone  the  ip  coordinate  of  the  jet  edge,  the 
centerline  velocity,  temperature,  turbulence  intensity,  total  pressure  ratio, 
and  total  temperature  ratio,  the  location  of  the  sonic  line,  and  the  relative 
entrainment  ratio.  For  a confined  mixing  case,  this  output  is  followed  by  a 
summary  of  the  dimensional  parameters  related  to  the  ducted  mixing  problem. 

This  output  consists  of  the  X location,  the  duct  and  centerbody  coordlr.ates , 
the  dimensionless  duct  coordinate  and  iterated  value,  the  pressure,  flow  state 
(subsonic,  supersonic,  choked),  the  Integrated  momentum  (thrust)  and  the  liach 
number,  velocity,  and  static  temperature  in  the  external  unentralned  inviscid 
stream. 

Entry  JTOUTP  also  produces  a print  of  the  dimensionless  and  dimensional 
profiles  at  a given  calculation  station.  The  output  Includes  the  dimension- 
less ip  coordinate,  the  stream  function,  the  Mach  number,  turbulence  Intensity, 
and  both  the  dimensionless  and  dimensional  velocities,  temperatures  and  total 
pressures.  The  profiles  of  species  mole  fractions  are  printed  on  a following 
page  if  a species  diffusion  case  is  being  run.  If  an  output  file  is  requested, 
the  profiles  are  temporarily  saved  on  file  3. 


27 


Subprogram  JTSTEP 


Entry  Name;  JTSTEP 
Type : Subroutine 
Link:  CPLINK 

Function:  Subroutine  JTSTEP  la  the  main  calculation  routine  for  Integration  of 
the  partial  differential  equations  described  in  Section  4.3.9  of  Reference  1. 
The  numerical  procedures  for  this  process  are  given  in  Section  4.3.10.  The 
differential  equations  are  solved  sequentially  In  the  following  order; 

1.  X - Momentum 

2.  Turbulent  kinetic  energy 

3.  Species  continuity  (If  applicable) 

4.  Energy 

The  most  current  values  of  each  dependent  variable  are  used  as  each  equation 
Is  solved  using  subroutine  DFEQ.  At  each  Intermediate  step  between  calculation 
stations,  routine  JTEDGE  and  XSI2E  are  called  to  locate  the  outer  edge  of  the 
jet  and  adjust  the  current  X stepslze.  If  the  potential  or  supersonic  core 
has  disappeared,  or  a merge  station  detected  (JTEDGE),  a premature  return  Is 
made  to  subroutine  JTCTRL  to  Insert  the  pertinent  station.  Otherwise,  the 
Integration  continues  to  the  next  calculation  station.  Additional  routines 
called  at  Intermediate  steps  are  SCALE,  PROPJ,  and  MSHCUT.  The  latter  sub- 
routine Is  called  to  redistribute  the  calculation  grid  only  If  the  maximum 
allowable  number  of  mesh  points  Is  exceeded. 


Subprogram  KEBLOK 


Type:  BLOCK  DATA 
Link:  LSCK 

Function:  The  primary  function  of  KEBLOK  is  to  Initialize  parameters  utilized 
by  the  SCKP  kinetics  routines.  Specific  items  preset  are  the  rate  constant 
Arrehenlus  coefficients,  activation  energies,  and  3-rd  body  catalytic  effi- 
ciencies for  the  pertinent  chemical  reactions  described  In  Section  4.6.2  of 
Reference  1. 
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Subprogram  KINET 


Entry  Name;  KINET 
Type ; Subroutine 
Link : LSCK 

Function:  Subroutine  KINET  is  utilized  to  compute  the  kinetic  history  of  the 
reaction  streamtube  over  a specified  time  step.  The  calling  arguments  to  the 
subroutine  are  the  static  pressure,  the  static  enthalpy,  the  fuel/air  ratio 
(Ibm/lbm) , and  the  residence  time  of  the  step.  The  defining  equations  and 
the  calculation  procedure  for  advancing  the  kinetics  solution  is  given  in 
Section  4.6.2  of  Reference  1.  The  static  pressure,  enthalpy,  and  fuel  air 
ratio  are  considered  constant  over  the  step. 

On  the  initial  entry,  the  local  combustion  efficiency  (B)  and  density  are 
established  at  the  beginning  of  the  time  step.  On  the  second  call,  subroutine 
EQKIN  is  entered  to  establish  the  equilibrium  conditions  which  the  chemical 
reactions  will  approach.  The  kinetics  solution  is  then  carried  out  in  a 
sequence  of  small  steps  (NTSTEP  in  COMMON /CKINET/)  using  the  following  procedure 

1.  The  consumption  of  CO  is  computed  by  a call  to  C0C02B  which  uses 
the  relations  defined  in  Section  4.6.2  of  Reference  1. 

2.  The  rate  expression  for  the  3-body  reactions  is  Integrated  in 
closed  form  to  determine  a new  combustion  efficiency  (B  defined 
in  terms  of  molecular  weight) . 

3.  The  static  temperature  and  composition  of  the  non-equilibrium 
mixture  is  then  established  by  iteration  using  subroutines  PSEQ2 
and  QIREM. 

4.  Finally,  the  consumption  of  nitrogen  oxide  contaminants  (NOX)  is 
calculated  using  subroutine  N0X2B. 

5.  The  procedure  is  repeated  until  the  time  interval  specified  by 
the  fourth  argument  is  reached. 
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Subprogram  KINPP 


Entry  Name:  KINP,  RINP 
Type:  Subroutine 
Link:  LGCK 

Function:  This  Is  a modified  version  of  the  NASA  GCKP  (Reference  3)  subroutine 
of  the  same  name.  It  performs  Initialization  and  reads  Input  data.  The  modi- 
fications delete  most  of  the  Input,  as  the  chemical  reaction  system  Is  built 
Into  labelled  common  In  PLUMOD,  rather  than  being  Input  as  data,  and  the  Initial 
composition  Is  determined  Internally  from  previous  calculations.  Namelist  SPROB 
Is  read  for  Integration  controls  on  the  first  call  to  GCKP  only.  Subprograms 
called  Include  CINP,  CUBS,  and  THRM.  There  are  no  argtiments.  Conanon  blocks/ 
LTUS/,  /OPTS/,  /COND/,  /REAC/,  /RRAT/,  /AFUN/,  /SPEC/,  /SINT/,  /TCOF/,  /PRIN/, 
/XVSA/,  /SNMW/,  /KOUT/,  /GHSC/,  /PQRE/,  /SKIP/,  /NECC/,  /MISC/,  /INDX/,  /LSLRSV/, 
/CINSAV/,  and  /STCTRL/  are  accessed. 


Subprogram  LCFIT 


Entry  Name:  LCFIT 
Type:  Subroutine 
Link:  JETMIX 

Function:  LCFIT  Is  a least  squares  curve  fitting  routine  utilized  In  the  con- 
fined mixing  option.  After  fitting  a least  squares  parabola  to  the  1 th  and 
1+1  points  (the  X of  Interest  being  between  X (I)  and  X (I+l))  this  routine 
will  return  an  Interpolated  value  for  the  function,  the  derivative  of  the 
function  at  the  point,  or  the  Integral  of  the  function  from  one  specified  X 
to  another. 

Input  to  the  routine  consists  of  X and  Y arrays  for  the  points  on  the 
curve,  the  number  of  points,  a list  of  X values  at  which  the  calculations  are 
to  be  done,  the  constant  of  Integration  (If  applicable),  the  number  of  calcu-  S 

latlon  points.  Indicator  for  type  of  calculation,  and  an  array  of  coefficients  i 

of  the  parabola  If  available  from  a previous  call.  | 
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Subprogram  LESVV 


Entry  Name : LESV 
Type:  Subroutine 
Link:  LGCK 

Function:  "This  routine  is  a general  double  precision  linear  equation  solver. 
In  this  program  (GCKP)  it  is  used  to  compute  the  increments  (of  the  dependent 
variables)."  It  is  taken  intact  from  the  NASA  GCKP  program  (Reference  3). 
Common  blocks  /CQND/  and  /MATX/  are  accessed. 


Subprogram  LFIT 


Entry  Name:  LFIT 
Type:  Subroutine 
Link:  LMXF 

Function:  LFIT  is  used  to  provide  linear  interpolation,  integration,  or 
differentiation  of  a function  specified  in  tabular  form.  Input  to  the  routine 
Consists  of  X and  Y arrays  for  the  points  on  the  curve,  the  number  of  points, 
a list  of  X values  at  which  the  calculations  are  to  be  done,  the  constant  of 
integration  (if  applicable),  the  number  of  calculation  points,  and  an  indicator 
for  the  type  of  calculation  (0  ■ interpolation,  -1  “ integration,  1 » differ- 
entiation) . 


Subprogram  LFITL 

Entry  Name : LFITl 
Type : Subroutine 
Link : SPALDG 
Function:  Same  as  LFIT 


Subprogram  LSPFIT 


Entry  Name ; LSPFIT 
Type : Subroutine 
Link:  LMSF 

Function:  Calls  LFIT,  and  has  the  same  arguments. 

Subprogram  MAINBD 

Type : Block  Data 
Link : Main 

Function:  Initialize  the  data  in  the  commons  /TROUBL/  and  /CBITS/. 


Subprogram  MA.INJ 


Entry  Name:  MAIN,  ERROR  1 
Type : Subroutine 
Link:  JETMIX 

Function:  Subprogram  MAIN  is  the  main  program  of  overlay  JETMIX.  Its  prime 
function  is  to  load  in  the  subordinate  input  and  calculation  overlays  and  call 
the  routines  JETINP,  JTCTRL,  and  JTOUTS  for  input,  calculation,  and  output 
respectively. 

Entry  point  ERRORl.  Sets  ERR  (block/TROUBL/)  to  T to  Indicate  a JETMIX 
error  and  returns  to  the  main  program  in  link  o. 
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Subprogram  MAINP 


Entry  Name : 

Type ; Main  Program 
Link : Main 

Function:  The  main  program  MAINP  provides  control  for  execution  of  the  pro- 
grams in  the  PLUMOD  system.  The  prime  functions  of  this  routine  are  as  follows: 

1.  Read  the  initial  three  case  identification  cards. 

2.  Read  and  print  the  fixed  format  program  cards,  load  the  proper 
program  overlay,  and  call  the  main  subroutine  of  the  overlay. 

3.  Print  error  messages  and/or  the  "end  of  job"  conditions. 

Depending  on  the  "program"  card  TAPIN,  TAPOT  settings,  files  1,  2,  3,  4, 
or  7 are  rewound  prior  to  entry  of  the  main  subroutine  of  the  called  overlay. 
Upon  return,  end  of  file  marks  are  written  on  the  generated  output  files. 

When  an  error  condition  (ERR  = T)  is  returned  by  JETMIX  or  SPALDG,  the 
program  CFILE  is  called  to  merge  the  partial  output  files  such  that  the  job 
can  be  restarted. 
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Subprogram  MEMAIN 


Entry  Name:  MFMAIN 
Type : Subroutine 

Link:  LNKF  . 

Function:  MFMAIN  provides  control  for  the  calculation  of  the  mlxlng/hocogenl- 
zatlon  of  the  heterogeneous  gas  streams.  On  the  Initial  entry,  NAMELIST  .>1NFUT 
Is  read  and  mixing  step  parameters  are  Initialized.  Subroutine  READT  Is  then 
called  to  read  JETMIX  and  SPALDG  data  from  files  2 and  3 and  Initialize  aero- 
data  regions.  A maximntn  of  five  data  stations  may  be  retained  In  memory  at 

one  time.  < 

The  solution  Is  advanced  stepwise  In  the  axial  direction  by  consecutively 
calling  NEWNET  to  generate  reaction  tubes  and  MXFLUT  to  perform  the  mixing/ 

homogenization  process.  The  number  of  mixing  steps  before  return  for  a kinetics  ' 

calculation  Is  specified  by  NIST  In  COMMON / STCTRL / . Return  also  occurs  when  an 

overall  print  station  Is  reached.  In  this  instance,  FINAL  In  COMMON/ STCTRL/  Is 

set  T to  direct  control  to  the  output  overlay.  If  the  current  X location  goes 

beyond  the  midpoint  of  the  data  stations  In  memory,  the  JETMIX  and  G profiles 

axe  shifted  upstream  and  READT  Is  recalled  to  read  new  station  Information. 

Stepwise  printout  of  the  mixing  steps  occurs  if  PDUM  (18)  in  C(Mfi)N/CPRlNT/  Is 
non-zero . 


t 

! 
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Subprogram  MLPKG 


Entry  Names:  FMPYC,  MOVE,  SETM 
Type:  Subroutine 
Link:  MAIN 

Function:  A GMAP  subroutine  drawn  from  the  AEG  Scientific  Library  to  perform 
high-speed  manipulation  of  arrays  in  core  memory.  Cannot  be  coded  in  FORTRAN 
because  of  variable  number  of  arguments.  No  list  included. 

FMPYC  is  uded  for  floating-point  multiplication  of  a constant  times  the 
elements  of  an  array  and  storage  of  the  resultant  products. 

The  first  argument  is  the  number  of  arrays  to  be  multiplied  by  the  con- 
stant. The  second  is  the  constant  to  be  used.  Then  follows  for  each  array, 
the  array  to  be  multiplied,  the  array  in  which  to  store  the  products,  and  the 
number  of  elements  in  the  array  to  be  multiplied. 

MOVE  moves  data  from  one  array  to  another  or  shifts  data  within  the  con- 
fines of  the  same  array. 

The  first  argument  in  the  calling  sequence  is  the  number  of  arrays  to  be 
moved.  There  are  then  four  arguments  for  each  array  to  be  moved.  The  first 
of  these  is  the  initial  location  of  the  array  to  be  moved.  The  second  is  the 
destination  of  the  array  to  be  moved.  The  next  is  the  number  of  elements  of 
the  array  to  be  moved.  The  fourth  is  the  storage  increment  between  successive 
elements  of  the  array. 

If  data  are  to  be  shifted  upward  within  an  array,  the  number  of  elements 
should  be  negative. 

SETM  sets  regions  of  memory  to  a specified  value. 

The  first  argument  is  the  number  of  arrays  to  be  set  to  a given  value. 

The  second  is  the  data  word  to  be  used.  Then  follows  for  each  array  the 
beginning  of  the  array  and  the  number  of  elements  of  the  array  to  be  set  to 
the  specified  value. 
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Subprogram  MSHCUT 


Entry  Name:  MSHCUT 
Type : Subroutine 
Link:  CPLINK 

Function:  MSHCUT  la  used  to  redistribute  the  calculation  mesh  If  the  number  of 
points  exceeds  the  maxlmina  (NMAX  - COMMON /IMP JET/ ) . The  arguments  to  the 
routine  are  the  region  Indicator,  the  stream-function,  and  the  number  of  pro- 
file points.  The  number  of  mesh  points  Is  reduced  by  NRED  (COMMON/UMESH/) . 

For  the  potential  core  region,  a new  seml-unlform  mesh  Is  calculated.  In 
the  transltlon/slmllar  region,  a new  array  of  stream  function  coordinates  Is 
produced  such  that  the  ratio  of  Aip's  for  any  two  adjacent  Intervals  Is  a 
constant. 


Subprogram  MXFLTI 


Entry  Name : MXFLTO 
Type : Subrout Ine 
Link:  PREJET 

Function:  Establishes  the  detailed  properties  of  the  two-part  model  of  the 
hetergeneous  gas  flow  from  the  gas  analysis  and  Impact  pressure  measurements 
made  with  a probe  at  one  point  In  the  engine  exhaust  plane.  The  probe  point 
number  Is  the  single  variable  In  the  calling  sequence;  the  remaining  Input 
data  are  taken  from  common  block  /INDATA/.  Calculated  properties  are  stored 
In  blocks/JETDAT/  and  /GASCMP/.  Scratch  file  40  Is  used  to  store  Iteration 
histories  for  subsequent  dumping  by  subroutine  ERRORl  In  the  event  of  conver- 
gence failure.  Utilizes  subroutines  RH2,  FUEL,  PRAT,  CAROL,  EQ6ASH,  EQGAST, 
FRGAST,  and  several  utility  subroutines. 
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Subprogram  MXFLUT 


Entry  Name : MXFLUT 
Type : Subroutine 
Link:  LMXF 

Function:  Performs  the  Intertube  mixing  and  Intratube  homogenization  over  an 
axial  step  to  define  flow,  fuel  concentration,  enthalpy,  and  mixture  composition 
of  the  hot  and  cold  parts  of  each  "NEWNET"  tube.  Uses  ALFAZ  to  define  the 
Intertube  mixing  coefficients.  Calls  HYCARfi  to  compute  HC  consumption  In  the 
step.  Has  no  arguments,  but  uses  common  blocks  /CREACT/,  /CMXFLT/,  /CSPECI/, 
/CNWNET/,  /CCHECK/,  /JETDAT/,  /GASCMP/ , /GASTMW/,  /CMASS/,  /CPRINT/ , /STCTRL/ , 
/CAXIAL/,  and  /CAGAIN/. 
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Subprogram  MXKINO 


Entry  Name : MXKINO 
Type:  Main  Program 
Link:  EMIS 

Function:  MXKINO  provides  control  for  computation  of  the  mlxlng/homogenlzatlon 
of  the  heterogeneous  gas  streams,  the  subsequent  chemical  kinetic  calculations 
in  the  hot  (fuel  rich)  portion  of  each  reaction  tube,  and  finally  the  computa- 
tion and  output  of  the  plume  emission  Indices  at  specified  streamwise  measuring 
stations. 

Initially,  the  fuel  molecular  weight  and  adjusted  thermo  coefficient  for 
the  raw  fuel  are  established  by  a call  to  ADJMC,  data  regions  are  Initialized, 
and  control  input  NAMELIST/A/  is  read. 

The  computation  for  each  streamtube  then  proceeds  downstream  by  succes- 
sively performing  mlxlng/homogenlzatlon  steps  (link  LMXE)  and  chemical  kinetic 
steps  (links  LGCK,  LSCK) . After  each  mixing  step,  the  molecular  weights  are 
computed  and  the  static  temperatures  are  established  by  a call  to  subroutine 
TFMH.  The  chemical  kinetics  step  is  accomplished  either  by  use  of  the  NASA- 
GCKP  program  (Section  4.6.1  of  Reference  1)  or  the  GE-SCKP  program  (Section 
4.6.2).  Prior  to  Initiation  of  a chemical  kinetics  step,  scratch  file  40  is 
rewound  and  initial  data  are  saved  in  the  event  of  a calculation  malfunction. 
When  the  calculation  has  reached  a streamwise  measuring  station,  as  given 
by  the  PRINT  variable  in  COMMON/OPCTRL/,  link  LFIN  is  entered  to  provide 
computation  and  display  of  the  residual  emission  indices.  The  calculation  is 
terminated  when  the  final  measuring  station  is  reached. 

Program  errors  are  detected  if  the  variable  ERR  in  COMMON/TROUBL/  is  set 
T.  When  this  situation  occurs,  the  last  generated  kinetic  history  is  printed 
by  a call  to  subroutine  ERRORl. 


Subprogram  NAMBLK 

Entry  Name:  None 
Type:  Block  Data 
Link:  LGCK 

Function:  Enters  alphanumeric  data  in  common  blocks  /LTUS/, /OPTS/, /SPEC/,  and 
/KOUT/.  In  the  NASA  GCKP  program  (Reference  3),  these  data  are  used  as  input. 
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Subprogram  N0X2B 


Entry  Name:  N0X2B 
Type : Subr ou  t Ine 
Link:  LSCK 

Fixnctlon:  Subroutine  N0X2B  calculates  the  rate  of  formation  of  NO  by  Integra- 
tion of  the  rate  expressions  described  In  Section  4.6.2  of  Reference  1.  The 
single  rate  equation,  developed  by  assuming  pseudo  equilibrium  concentrations 
of  N2,  02,  OH,  0,  H,  and  "steady  state"  concentration  of  N Is  Integrated 
numerically  using  a Runge-Kutta  technique. 


Subprogram  NWNET 


Entry  Name:  NEWNET 
Type:  Subroutine 
Link:  LMXF 

Function:  Defines  boundaries  of  "NEWNET"  tubes,  which  are  tubes  of  constant 
fuel  flow,  by  Interpolation  In  the  "JETMIX"  flow  field  solution  arrays.  Com- 
putes flows  of  "JETMIX"  dummy  gases  In  each  tube,  and  mean  velocity,  hetero- 
geneity and  reaction  time.  Has  no  arguments,  but  uses  common  blocks  /CAGAIN/, 
/CINPJT/ , / JETDAT/, /CCHECK/ , /CNWNET/ , /CSPECI/, /CINPUT/ , /CAXIAL/ , /CLOCAL/ , 
/CMXFLT/,/CMASS/,/GASTMW/,  and  /CRRINT/. 


Subprogram  NWPSI 


Entry  Name:  NWPSI,  NEWFLO 
Type:  Subroutine 
Link:  LMXF 

Function:  Establish  a set  of  values  of  normalized  stream  function,  ranging 
from  0.0  to  1.0,  so  that  each  "NEWNET"  tube  will  contain  approximately  the  same 
number  of  points.  The  50-element  array  containing  the  stream  functions  Is  the 
first  argument  of  the  NWPSI  calling  sequence;  the  second  Is  the  number  of 
stream  functions  In  the  set.  The  flows  In  the  "NEWNET"  tubes  are  taken  from 
common  block  /CMASS/.  At  the  Initial  computation  station,  these  flows  are 
established  through  entry  NEWFLO,  which  has  no  arguments,  using  radii,  veloci- 
ties, and  specific  volumes  from  block  /JETDAT/. 
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Subprogrin  OUTPP 


Entry  Name:  OUTP,  OUTl,  OUT2,  OUT3 
Type:  Subroutine 
Link:  LGCK 

Function:  This  Is  a modified  version  of  the  NASA  GCKP  (Reference  3)  subroutine 
of  the  same  name.  The  modifications  mre  made  for  a GE-AEG  stand-alone  version 
of  GCKP,  and  have  no  effect  In  the  PLUMOD  application.  OUTPP  performs  unit 
conversions  and  prints  the  various  pages  of  output.  Output  data  are  obtained 
from  common  blocks  /OPTS/, /COND/, /SINT/, /KOUT/,/REAC/,/RRAT/,/ArUN/, /SPEC/, 
/XVSA/,/NECC/,/PQRE/,/DERN/,/SKIP/,/GHSC/,  and  /SABS/. 


Subprogram  PADD 


Entry  Name:  PAOD 
Type : Subrou  t Ine 
Link;  CPLINK 

Function:  PADD  Is  used  to  add  streamlines  to  the  calculation  mesh  at  the  edge 
of  the  Jet.  This  routine  Is  called  from  JTSTEP  If  the  JTEDCE  subroutine 
detected  that  points  were  to  be  added  at  the  next  station  due  to  entrainment  of 
the  ambient  stream. 

In  the  potential  core  region,  one  point  Is  added  at  the  same  spacing  as 
the  adjacent  two  outer  points.  In  the  transltlon/slmllar  region,  a new  point 
Is  added  based  on  the  constant  ratio  rule  for  Aii;'s  of  adjacent  Intervals. 


Subprogram  PARDD 


Entry  Name:  PARD 
Type:  Subroutine 
Link:  LGCK 

Function:  "Computes  all  mixed  partial  derivatives."  This  subroutine  Is  taken 
Intact  from  the  NASA  GCKP  program  (Reference  3).  It  accesses  coomran  blocks 
/OPTS/, /COND/, /SPEC/, /REAC/,/RRAT/,/GHSC/,/NECC/, /SABS/,  and  /DERN/. 
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Subprogram  PBOLIC 


Entry  Name:  PBOLIC 
Type : Subroutine 
Link:  SPALDG 

Function:  The  function  of  subroutine  PBOLIC  Is  to  set  up  the  system  of  simul- 
taneous finite  difference  equation  (for  the  cross-stream  mesh  points  at  an 
axial  station)  In  the  step-by-step  solution  of  the  parabolic  partial  differen- 
tial equation  for  mean  square  fuel  concentration  fluctuation  intensity  (G) . A 
generalized  Crank-Nicolson  finite  difference  representation  is  used,  allowing 
either  explicit  or  Implicit  formulation  of  the  equations.  However,  the  solu- 
tion procedure,  in  subroutine  TRIDIA,  assumes  an  implicit  formulation  (simul- 
taneous equation)  in  either  case,  so  that  there  is  no  advantage  to  be  gained 
by  utilizing  the  capability  for  explicit  formulation.  A tridiagonal  system 
of  simultaneous  linear  algebraic  equations  is  established,  utilizing  coeffi- 
cients calculated  in  subroutine  COEFF.  The  resulting  set  of  equations  is  then 
solved  in  subroutine  TRIDIA,  The  variable  K in  the  calling  sequence  for  PBOLIC 
is  an  indicator  which,  in  this  program,  is  held  constant  (K  = 1), 


Subprogram  PERRR 


Entry  Name:  PERR 
Type:  Function 
Link:  LGCK 

Function:  This  is  a slightly  modified  version  of  the  NASA  GCKP  (Reference  3) 
subprogram  of  the  same  name.  It  predicts  the  computation  error  that  can  be 
expected  from  using  given  numerical  integration  step  size.  The  modification 
is  a call  to  ERRORC  rather  ERROR,  which  is  the  name  of  a Honeywell  library 
routine  used  elsehwere  in  PLUMOD,  Common  blocks  /COND/,/SINT/,/DERN/,  and 
/PQRE/  are  accessed. 
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Subprogram  PRAT 


Entry  Name:  PRAT 
Type:  Function 
Link:  PREJET,  LFIN 

Function:  Calculates  ratio  of  probe  impact  pressure  to  local  static  pressure 
for  a perfect  gas  of  specified  Mach  number  (subsonic  or  supersonic)  and  specific 
heat  ratio,  which  are  the  two  arguments. 


Subprogram  PREDD 


Entry  Name:  PRED,  PREDl 
Type:  Subroutine 
Link:  LOCK 

Function:  This  subprogram  Is  taken  directly  from  the  NASA  GCKP  program 
(Reference  3).  It  "performs  all  necessary  pre-derivative  calculations." 
Common  blocks  /OPTS/, /COND/, /SPEC/, /REAC/, /RRAT/, /GHSC/, /NECC; , and  /SABS/ 
are  accessed. 


Subprogram  PRINT 


Entry  Name:  MPRINT 
Type:  Subroutine 
Link:  LMXF 

Function:  PRINT  is  the  output  routine  for  the  mlxing/homogenizatlon  program, 
called  from  MI’MAIN  when  PDUM(IB)  [COMMON/CRRINT/]  is  non-zero.  Items  printed 
are  the  current  axial  location,  and  the  radius,  fuel  flow,  total  mass  flow, 
velocity,  mass  fraction  of  rich  flow,  fuel/gas  ratios  (rich  and  lean), 
Spalding  G function,  and  residence  time  for  each  reaction  streamtube. 
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Subprogram;  PROPJ 


Entry  Name : PROPJ 
Type:  Subroutine 

Link ; JETMIX 

Function:  PROPJ  computes  the  properties  of  a laminar  or  turbulent  jet.  The 
parameters  determined  are  the  density,  dynamic  viscosity,  turbulence  length 
scale,  eddy  viscosity,  diffusion  parameter  and  kg£f/Cp.  The  latter  four 
properties  are  used  for  calculation  of  the  turbulent  mixing  flow  field.  No 
computed  quantities  are  returned  through  the  call  sequence. 


Subprogram;  PSEQ2 


Entry  Name:  PSEQ2 
Type;  Subroutine 
Link;  LSCK 

Function:  Confutes  the  psuedo-equilibritim  conposltlon  of  gaseous  products  of 
combustion  of  CHn  fuel  and  moist  air  at  a specified  temperature  and  degree 
of  dissociation.  The  arguments  are  the  weight  ratio  of  fuel  to  dry  air, 
the  specific  humidity,  the  hydrogen- to- carbon  atom  ratio  of  the  fuel,  the 
tenqjerature  (®  R),  the  double  precision  reaction  efficiency  6 (Reference  1, 
Appendix  A-2) , two  logical  variables  specifying  whether  CO  and  NO  are  to  be 
excluded  from  pseudo-equilibrium,  and  the  mole  fractions  of  species,  H,  0,  H2, 
OH,  H2O  , CO,  CO2,  N2,  A,  and  NO  in  the  mixture.  If  the  CO  concentration  is  to 
be  fixed,  both  CO  and  CO2  concentrations  must  be  predetermined.  If  NO  is  to 
be  fixed,  both  NO  and  N2  concentrations  must  be  specified.  PSEQ2  uses  common 
block  /GHSC/  to  transmit  species  thermo  properties  from  THRM. 
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Slibprogram;  QIREM 

Entry  Name:  QIREM 
Type : Subroutine 
Link:  PREJET,  LSCK 

Function:  QIREM  Is  an  Iteration  routine  for  determining  the  roots  of 
functions  vlth  maTrttna  or  minima  tislng  a quadratic  Interpolation  for  the  root 
evaluation. 

With  each  call  to  this  routine,  an  Independent  coordinate  X and  Its 
corresponding  fimctlonal  value  Y are  supplied.  Based  on  the  last  three 
such  points,  a new  trial  X at  which  the  desired  Y Is  estimated  to  occur 
Is  calculated. 

Input  Is  supplied  to  the  routine  through  a calling  sequence 

CALL  QIREM  (X,  Y,  YJP,  QV) 
and  a labeled  common 

COMMON  /CQIREM/  YTOL,  YO,  DYDX,  CTRMAX 

The  Input  variables  are: 

X “ trial  value  of  x. 

Y = y calculated  for  the  current  trial  value  of  x. 

XJP  = x-jump  to  be  taken  before  the  desired  y has  been 

spanned  If  DYDX  * 0.  The  sign  Is  for  a positive  error; 
that  la,  the  x-jump  Is  XJP  If  (Y-Y0)>0  and  the  x-jump 
Is  -XJP  If  (Y-Y0)<0.  XJP  also  Indicates  the  branch  of 
the  curve  for  which  the  solution  Is  to  be  found.  If  two 
solutions  exist.  XJP  will  be  positive  for  the  branch 
with  negative  slope,  as  In  the  sketch  on  page  1;  XJP 
will  be  negative  for  a branch  with  positive  slope. 

QV(1)=>  counter  which  must  be  set  to  zero  before  the  first  entry. 

YTOL  = convergence  tolerance  on  (Y-YO) . 

YO  ■ given  ordinate,  yg*  for  which  the  solution  y“f(x)  Is 
desired. 
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DYDX  “ optional  estimate  of  the  curve  slope.  A non-zero  value 
should  be  supplied  If  a maximum  point  of  a solution  near 
a maximum  point  Is  being  sought. 

CTRMAX  - maximum  number  of  trials  before  yielding  to  defeat. 

Twenty-five  trials  will  be  allowed  if  CTRMAX«0. 

The  output  from  the  routine  Is: 

X « next  trial  value  of  x. 

QV(1)  = 0.  If  the  solution  has  been  found,  1y-Y0|<YT0L; 

QV(5)  « 0.  If  no  solution  can  be  found  but  the  maximum  point 

has  been  found  within  YTOL;  otherwise  QV(5)  is  non  zero. 

QV,  known  as  the  quire  vector,  must  be  dimensioned  by  at  least  8.  It  contains 
the  counter,  three  previously  tried  values  of  x,  a second  counter,  and  the 
three  corresponding  values  of  y. 

The  Input  supplied  via  the  labeled  common  Is,  to  a certain  extent, 
optional  as  Indicated  below: 

1.  The  value  of  CTRMAX  needs  to  be  specified  only  If  the  limiting 
number  of  trials  Is  not  25. 

2.  If  DYDX  and  YO  are  not  specified  (i.e.  DYDX*YO»0 . ) , the  QIREM 
routine  operates  exactly  the  same  as  subroutine  QIRE  (although, 
the  calling  sequences  to  QIREM  and  QIRE  are  different). 

3.  YTOL  must  be  specified  unless  the  test  for  convergence  Is 
performed  before  calling  QIREM. 

The  parameter  DYDX  Indicated  which  of  two  options  are  desired,  if 
DYDX*0  the  iteration  proceeds  without  reference  to  the  local  calculated 
values  of  slope  until  a solution  value  or  maximum  point  has  been  passed. 

Then  the  quadratic  (or  linear  In  the  case  of  two  available  points)  inter- 
polation Is  performed  to  obtain  subsequent  x trial  values.  This  particular  i 

option  has  utility  when  the  curve  has  irregularities  of  the  type  Illustrated 
below;  In  this  case  the  direction  of  the  x-jump  Is  determined  by  the 
ordinate  error.  (See  the  definition  of  XJP  on  the  previous  page). 
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Subprogram;  RATCON 

Entry  Name:  RATCON 
Type:  Subroutine 


Link:  LSCK 

Function:  Subroutine  RATCON  Is  utilized  to  compute  the  rate  constants  for 
the  3-body  recombination  reaction  scheme  described  In  Section  4.6.2  of 
Reference  1.  The  pressure  Is  Input  to  the  routine  via  the  calling  sequence. 
The  temperature  Is  obtained  as  the  third  variable  In  COMMON/PSEQ/ . 

In  the  process  of  evaluating  the  rate  constants,  the  effects  of  the 
hydroperoxyl  radical  are  Included  using  a "steady  state"  assumption  for  the 
HO2.  The  rate  constant  for  the  reaction  H+O2+M**H02+M  is  then  adjusted  using  a 
sequence  of  four  2-body  shuffle  reactions  Involving  the  HO2  radical.  All 
forward  rate  constants  are  calculated  as  a function  of  temperature  using 
Auehenlus  type  relations  of  the  form: 


-(AEa/RT) 

kj  - AT  e 


Reverse  rate  constants  for  the  pertinent  2-body  reactions  are  expressed  In 
terms  of  the  forward  rate  constants  using  the  equilibrium  constants  calculated 
from  the  Gibb's  Free  Energy  (Subroutine  THRMM) . 


Subprogram;  READIN  ’ 

! 

Entry  Name:  READIN  j 

Type : Subroutine  j 

Link:  PREJET 

Function:  Initializes,  then  reads  engine  test  data  and  cycle  parameters  from 
file  OS  via  namelist  TSTDAT.  Sets  data  to  standard  values  If  not  Input. 

Sorts  and  stores  data  In  common  blocks  /INDATA/,  /JETDAT/,  /GASCMP/,  and 

/OPCTRL/.  Calls  MXFLTO  to  Initialize  heterogeous  flow  model  at  each  saunple  .i 

location.  Calculates  ambient  air  properties  using  EQGAST.  i 
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Subprogram:  READT 


Entry  Name : READT 
Type:  Subroutine 
Link:  SPALDG 

Function:  The  function  of  subroutine  READT  is  to  read  PREJET  and  JETMIX 
output  files  to  obtain  aerodynamic  properties  used  in  the  calculation  of 
mean  square  fuel  concentration  fluctuation  intensity  (G) . The  radial 
profile  of  G at  the  nozzle  exit  plane  and  mean  fuel  concentrations  in  the 
constituent  gases  are  obtained  from  the  PREJET  output  file.  Physical  con- 
stants describing  the  jet,  as  well  as  radial  profiles  of  aerodynamic 
properties  at  several  axial  stations  in  the  jet,  are  obtained  from  the 
JETMIX  output  files.  Radial  profiles  of  mean  fuel  concentration  are  cal- 
culated (from  constituent  gas  concentration  profiles)  in  READT  and  stored 
along  with  the  profiles  of  axial  velocity,  turbulent  kinetic  energy,  density 
and  turbulence  length  scale.  The  profiles  are  retained  in  "current"  storage, 
in  groups  of  five  stations  at  a time.  As  the  calculation  of  G moves  down- 
stream, profiles  at  upstream  stations  are  removed  from  current  storage  and 
replaced  with  profiles  from  stations  further  downstream.  The  variable 
JENTRY  in  the  calling  sequence  indicates  whether  or  not  READT  has  been 
called  previously: 

lENTRY  - 0 first  call  to  READT 

lENTRY  > 0 READT  has  been  called  previously  i 


Subprogram:  READT2 


Entry  Name:  READT 


Type:  Subroutine 
Link:  LMXF 

Function:  READT  is  called  from  MFMAIN  to  read  JETMIX  and  SPALDG  station 
profiles  for  use  in  the  mixing  calculation.  On  the  initial  call,  subroutine 
REDPRE  and  NEWFLO  are  called  to  reestablish  the  nozzle  discharge  conditions 
and  preset  the  flow  rates  in  the  reaction  tubes.  Initially,  five  sets  of  pro- 
files are  read,  including  i|»,  Y,  U,  T,  G,  Mach  number,  and  species  mole  frac- 
tions. The  outer  edge  of  the  jet  is  established  and  a new  set  of  profiles  are 
Interpolated  using  a uniform  grid  with  a maximum  of  30  points.  After  the 
radii  and  are  redlmenslonallzed  (Section  4.5.1  of  Reference  1),  the  profiles 
are  moved  to  the  MXFLUT  common  region  /CINPUT/.  On  successvle  entries,  only  a 
single  set  of  station  profiles  are  read  (see  - MFMAIN). 
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Entry  Name : REDFRE 
Type;  Subroutine 
Link:  LMXF 

Function:  Subroutine  REDFRE  Is  used  to  restore  the  commons  defining  the  jet 
discharge  plane  condtlons  and  the  jet  properties  generated  in  the  PREJET 
overlay.  The  data  are  stored  In  CQMMONS/IKDATA/,  /JETDAT/,  /GASCMP/,  and 
/OPCTRL/.  Before  return,  the  ten^erature  of  the  rich  gas  fraction  of  each 
streamtube  Is  calculated  by  a call  to  TFMHl  and  stored  In  COMMON/GASTMW/. 


Function:  Estimates  mole  fraction  H2  based  on  the  measured  mole  fraction 
CO  In  the  gas  sample,  which  Is  the  single  argument  of  the  function. 


Function:  The  prime  function  of  subroutine  SCALE  Is  to  determine  the  bound- 
aries of  the  mixing  zone  for  calculation  of  the  turbulence  scale  In  subroutine 
PROPJ.  For  the  single  free  jet,  the  width  of  the  mixing  zone  is  normally 
determined  using  the  jet  edge  (subroutine  JTEDGE)  and  the  point  where  the 
axial  velocity  deviates  from  a constant  value  (potential  core) . VHien  the 
variable  SCLD  In  common  /SCALED/  is  T,  the  Inner  edge  Is  determined  as  the 
point  where  the  n-th  constituent  concentration  has  reached  the  value  ALXLIM 
by  turbulent  diffusion.  This  latter  parameter  Is  also  stored  In  COMM*:^ 
/SCALED/.  For  a coannular/coplanar  Jet,  the  variable  MERGE  is  checked  to 
determine  whether  the  solution  Is  up8tre^tm  or  downstream  of  the  merge  station. 
If  upstream,  the  coordinates  at  the  edges  of  both  the  primary  and  secondary 
jets  are  set  as  well  as  the  widths  of  the  mixing  zones  to  the  two  jets.  If 
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Subprogram;  SCALE  (Continued) 


downstream  of  the  merge  point,  the  boundaries  of  the  mixing  zones  are 
determined  using  linear  curve  fits  for  the  nozzle-merge  station  lines . 

The  arguments  to  the  subroutine  are  the  flow-field  variable  (U,  a) 
to  be  used  for  determination  denoting  a single  or  coannular/coplanar 
jet,  the  axial  region  (core,  transition,  similar),  and  the  current  X 
station.  No  computed  quantities  are  returned  through  the  call  sequence. 


Subprogram;  SCKP 


Entry  Name;  SCXP 
Type ; Main  Program 
Link;  LSCK 

Function;  Subroutine  SCKP  is  the  main  control  program  for  the  high  temper- 
ature fecial  £hemical  ]y.netics  procedure  for  calculation  of  the  chemical 
reactions  in  a given  streamtube.  On  entry,  the  initial  temperature  of  the 
rich  fraction  of  the  streamtube  is  obtained  from  COMMON /GASTMW/.  If  less 
than  1500®  R,  the  reactions  are  assumed  quenched  and  control  is  returned  to 
the  calling  program.  If  greater  than  1500®  R,  subroutine  THEM  is  called  to 
commute  the  dimensionless  enthalpy  of  the  individual  species.  The  constit- 
uer-  ■ N,  HO2,  NO2,  NH3,  and  CnH2n  are  not  evaluated  directly  in  the  kinetics 
proc».  ire.  To  assure  conservation  of  energy,  these  species  are  removed  by 
splitting  the  mixture  into  an  active  fraction  and  an  inert  fraction.  After 
adjusting  the  composition  and  the  static  enthalpy  of  the  active  fraction, 
subroutine  KINET  is  called  to  compute  the  kinetics  step  over  the  time  inverval 
specified  by  variable  TAU  in  COMMON /GASTMW/.  Upon  completion  of  the  step,  the 
static  temperature  and  composition  are  moved  into  the  upstream  storage  loca- 
tions and  return  is  made  to  the  calling  program.  The  single  argument  to  the 
subroutine  denotes  the  streamtube  index. 


Subprogram;  SERCH 


Entry  Name:  SEARCH 
Type:  Subroutine 
Link:  LOCK 

Function:  "This  routine  uses  an  optimal  sequential  search  technique  to  find 
X In  the  Interval  (A,B)  such  that  F(X)  ••  FOFX."  H Is  taken  Intact  from  the 
NASA  GCKF  program  (Reference  3).  F,  FOFx,  A,  X,  and  B are  arguments. 

Common  block  /SINT/  Is  accessed. 


Subrpogram;  SETUP 

Entry  Name:  SETUP 
Type : Subroutine 
Link:  SPALDG 

Function:  The  function  of  subroutine  SETUP  Is  to  set  up  JETMIX  output  pro- 
files of  aerodynamic  properties  for  Interpolation  along  streamlines  In  the 
calculation  of  mean  square  fuel  concentration  fluctutlon  Intensity  (G) . A 
cross-stream  linear  Interpolation  Is  performed,  at  each  axial  station  for 
which  JETMIX  output  Is  available,  to  establish  the  local  aerodynamic  prop- 
erties on  the  streamlines  used  In  the  finite  difference  solution  for  G.  The 
property  matrices  are  then  transposed  to  facilitate  Interpolation  along  the 
Individual  streamlines,  so  that  local  properties  can  be  determined  at  Inter- 
mediate axial  stations.  The  variable  IRST  In  the  calling  sequence  Indicates 
whether  or  not  the  JETMIX  output  profiles  In  current  storage  Include  the 
Initial  profile  (X®0) : 

IRST  = 0 Initial  station  Is  In  current  storage 

IRST  > 0 Initial  station  Is  not  In  current  storage 

The  variable  K Is  an  Indicator  which.  In  this  program.  Is  held  constant 

(K  = 1). 
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Subprogram:  S0LV3 

Entry  Name;  S0LV3 
Type:  Subroutine 
Link:  PREJET,  LSCK 

Function:  Solves  a set  of  three  simultaneous  linear  algebraic  equations: 


3 

E AX  » B i - 1,2,3 

j^l  J ^ 


The  vectors  A,  B,  and  X are  the  first  three  arguments  of  the  calling  sequence 
(X  is  the  solution  vector).  The  fourth  argument  is  a logical  variable 
which  is  returned  .TRUE,  if  no  solution  exits. 


Subprogram;  SPALD 
Entry  Name:  SPALD 
Type:  Subroutine 
Link;  SPALDG 

Function;  SPALD  is  the  main  program  in  link  SPALDG,  for  the  calculation  of 
mean  square  fuel  concentration  fluctuation  intensity  (G)  in  the  jet.  SPALD 
controls  the  step-by-step  finite  difference  procedure  used  to  solve  the 
parabolic  partial  differential  equation  for  G,  and  performs  all  output 
functions.  Certain  input  information  (constants)  can  be  supplied  to  this 
program  through  the  namelist  /CHANGE/. 
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Subprogram;  STPROP 


Entry  Name:  STPROP 
Type:  Subroutine 
Link:  SPALDG 

Function:  The  function  of  subroutine  STPROP  Is  to  calculate  local  aerodynamic 
properties,  for  the  cross-stream  mesh  points.  In  the  step-by-step  solution 
procedure  tised  In  determining  the  distribution  on  mean  square  fuel  concentra- 
tion fluctuation  Intensity  (G)  In  the  Jet.  The  properties  are  determined  by 
linear  Interpolation  along  streamlines  between  the  axial  station  for  which 
JETMIX  output  profiles  are  available.  STPROP  uses  the  transposed  property 
matrices,  created  by  subroutine  SETUP,  for  Interpolation.  The  variable  K 
In  the  calling  sequence  Is  an  Indicator  which.  In  this  program.  Is  held 
constant  (K  ■ 1). 


Subprogram;  SUMCPD 

Entry  Name:  SUMCPD 
Type ; Function 
Link:  CPLINK 

Function:  Subroutine  SUMCPD  Is  called  from  JTSTEP  to  calculate  the  diffusion 
flux  term  used  In  the  solution  of  the  energy  equation.  The  single  argument 
of  the  function  Is  the  local  mesh  point  Index. 


Subprogram;  SUMP 


Entry  Name:  SUMUP 
Type:  Subroutine 

Link : LFIN 

Function:  At  specified  axial  stations,  confutes  the  mean  properties  of  the 
flow  in  each  NEWNET  tube,  and  synthesizes  the  predicted  values  of  gas  sample 
analysis.  Integrates  the  fuel  and  contaminant  flows  over  all  tubes  and 
computes  overall  emissions  indices.  Prints  a table  of  calculated  data, 
and  punches  profile  information  on  cards  suitable  for  subsequent  plotting 
or  other  postprocessing  by  the  user.  Uses  routines  TFMHl  and  PRAT,  and 
derives  data  from  common  blocks  /GASCMP/,  /OPCTRL/,  /JETDAT/,  /COAXIAL/, 
/CMASS/,  /INDATA/,  /STCTRL/,  and  /CBITS/. 


Subprogram;  TABPRT 


Entry  Name:  TABPRT 
Type;  Subroutine 
Link;  MAIN 

Function:  TABPRT  is  used  for  labeled  diagnostic  printout  of  tabular  data. 
The  first  argument  in  the  calling  sequence  is  the  name  of  the  array  to  be 
printed.  The  second  is  the  location  of  the  array.  The  third  is  the  nunber 
of  elements  and  the  last  is  the  number  of  columns  to  be  used  for  the  print 
format.  Through  the  common  region  CTABPR  is  also  input  the  location  of 
the  first  element  of  the  array  to  be  printed  (1st,  2nd,  ect.). 

The  structure  of  the  elements  of  the  array  are  checked  against  various 
criteria  to  determine  whether  they  are  floating  point  numbers,  integers, 
BCD,  or  octal.  The  formats  for  the  printout  are  then  set  accordingly. 
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Subprogram  TDSEQ 

Entry  Name:  TDSEQ  i 


Type:  Subroutine 
Link:  CPLINK 

Function:  TDSEQ  is  used  to  solve  a system  of  tri-diagonal  linear  equations. 

The  coefficients  of  the  system  are  passed  to  the  routine  via  the  first  argument 
of  the  CALL  sequence.  The  solution  is  returned  as  the  first  column  of  the  array. 
The  last  three  arguments  are  the  number  of  equations,  the  maximum  column  size, 
and  an  error  Indicator. 


Subprogram  TFMH 


Entry  Name : TFMH 
Type : Subroutine 
Link:  EMIS 

Function:  Subroutine  TFMH  is  utilized  to  compute  the  static  temperature  and 
constant  pressure  heat  capacity  of  the  rich  and  lean  fractions  of  a given 
stream  tube.  The  subroutine  is  logically  identical  to  TFMHl.  However,  species 
compositions  and  enthalpies  are  picked  up  from  COMMON /GASCMP/  and  calculated 
temperatures  and  heat  capacities  are  stored  in  COMMON/GASTMW/.  The  single 
argument  specifies  the  upper  value  of  the  reaction  tube  index.  (See  descrip- 
tion of  COMMON/GASCMP/ . 
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Subprogram  TFMHl 


Entry  Name : TFMHl 
Type:  Subroutine 
Link:  EMIS 

Function:  TFMHl  is  used  to  determine  the  static  temperature  and  the  constant 
pressure  heat  capacity  given  a mixture  composition  and  static  enthalpy.  The 
temperature  is  determined  by  iteration  using  subroutine  THRM  to  calculate  a 
trial  enthalpy  for  comparison  with  the  input  enthalpy.  If  the  iteration  does 
not  converge  to  a tolerance  of  0.01®  R within  30  trials,  an  error  message  is 
printed  and  current  values  are  returned.  The  arguments  to  TFMHl  are  the  con- 
centration (moles  i/lbm  mixture),  the  static  enthalpy  (BTU/lbm) , the  calcu- 
lated temperature  and  heat  capacity.  Single  values  of  the  latter  two  parame- 
ters are  returned  via  the  call  sequence. 


Subprogram  THRMM 


Entry  Name : THRM 
Type:  Subroutine 
Link:  PREJET,  EMIS 

Function:  Computes  dimensionless  thermodynamic  properties  of  up  to  25  chemical 
species  at  the  specified  temperature,  using  polynomial  coefficients  from  common 
block  /TCOF/ . The  temperature  (Kelvins)  is  the  first  argument  of  the  calling 
sequence.  If  the  second  argument  has  value  0.0,  only  enthalpy  ir.  computed. 

The  number  of  species  is  taken  from  block  /COND/,  which  also  contains  logical 
variable  NEXT  which  is  set  .TRUE,  if  the  temperature  is  too  far  out  of  the 
range  of  the  polynomial  coefficients.  If  the  temperature  is  within  limits, 
the  dimensionless  enthalpy,  free  energy,  entropy,  specific  heat,  and  derivative 
of  specific  heat  with  respect  to  temperature  are  computed  and  stored  in  block 
/CHSC/. 


Subprogram  THRUST 


Entry  Name : THRUST 
Type : Subroutine 
Link:  JETMIX 

Function:  For  the  confined  mixing  case,  subroutine  THRUST  computes  the  In- 
tegrated momentum  (thrust)  at  a given  station.  If  the  mixing  zone  has  Inter- 
sected a plug  or  center-body,  the  program  la  terminated. 


Subprogram  TRIDIA 


Entry  Name:  TRIDIA 
Type : Subroutine 
Link:  SPALDG 

Function:  The  function  of  subroutine  TRIDIA  Is  to  solve  the  trldlagonal  sys- 
tem of  simultaneous  linear  algebraic  equations  formed  by  Implicit  finite 
difference  formulation  of  the  partial  differential  equation  for  mean  square 
fuel  concentration  fluctuation  Intensity  (G).  A set  of  simultaneous  equations 
Is  formed  for  the  cross-stream  mesh  points  at  each  axial  station  In  the  step- 
by-step  solution  procedure.  The  variable  J In  the  calling  sequence  Is  an 
Indicator  which.  In  this  program.  Is  held  constant  (J  2),  while  the  variable 
NN  Is  equal  to  the  current  number  of  streamlines  minus  one. 
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SubproRram  XSIZE 


Entry  Name;  XSIZE 
Type:  Subroutine 
Link:  CPLINK 

Function:  XSIZE  controls  the  Integration  step  size  in  the  streanwlse  Caxlal) 
dir?:tlon.  In  the  potential  core  region,  the  step-size  is  proportional  to  the 
W;;,.ch  of  the  mixing  region  with  the  magnitude  set  by  the  value  of  the  input 
variable  CXPC.  In  the  transition  and  similar  regions,  DX  is  proportional  to 
the  radius  of  the  Jet,  with  a magnitude  dependent  on  input  CXTP. 

The  arguments  to  the  routine  are  the  calculated  step  size,  the  current  X 
location,  the  reference  scale,  the  pertinent  region,  and  a terminal  step  in- 
dicator (LAST) . LAST  is  set  T if  the  step  size  would  go  beyond  a calculation 
station.  In  this  case,  the  returned  step  size  is  reduced  to  identically  hit 
the  calculation  station. 


Subprogram  YOFXII 


Entry  Name : YOF 
Type:  Function 
Link:  JETMIX,  LSCK 

Function:  YOFX  performs  a linear  interpolation  in  a specified  table  of  X,  Y 
values.  The  additional  call  sequence  parameters  are  the  desired  value  of  X^ 
and  the  index  limits  in  the  X table . 

The  I index  in  the  common  YOFXI  is  an  estimate  of  the  interval  that  X 
lies  in  (between  X (l-l)  and  X(I))  and  the  lA  and  IB  indexes  are  limits  on  the 
interval  from  which  points  can  be  used  for  the  interpolation. 

The  routine  will  extrapolate  linearly  if  the  specified  X is  outside  the 
range  indicated. 
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Variables  in  Common  Storage 


Descriptions  of  the  contents  of  blocks  of  labelled  common  follow,  in 
alphabetical  order,  by  block  name.  Within  each  block,  variables  are  listed 
according  to  position  occupied  in  the  block.  In  some  cases,  the  variable 
name  may  differ  between  routines  and  a typical  name  is  given.  Pertinent 
dimension  and  type  information  are  included  with  the  variable  name  (R  = Real, 
I = Integer,  L = Logical).  Variables  normally  containing  BCD  data  are  typed 
as  H = Hollerith,  even  though  they  may  have  real  or  integer  names. 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

ACONVG 

(JETMIX) 

1-100 

YCD 

R 

100 

Confined  mixing  data  storage 

Jet  edge  at  each  calculation 
station,  in. 

101-200 

PD 

R 

100 

Static  pressure  at  each  cal- 
culation station,  psla. 

201-300 

INDC 

H 

100 

SUBSON 

Flow  indicator  SUPSON 

CHOKED 

301 

CHOKE 

L 

1 

Choke  indicator 

T - Flow  choked 

302 

CHOKED 

L 

1 

Auxiliary  choke  Indicator 

T - denotes  previous  choked 
station. 

ADAMOl 

Identification  block 

(MAIN) 

1-10 

NAME 

H 

10 

User  name 

11-20 

ADDRES 

H 

10 

User  address 

21-30 

TITLE 

H 

10 

Case  title 

31-40 

IDENT 

M 

10 

Not  used 

ADAM02 

(MAIN) 

1 

ENDJOB 

L 

1 

T * case  has  terminated 
normally 

2-4 

DUMMY 

R 

3 

Not  used 

BC 

(JETMIX) 

Current  boundary  conditions  at 
edge  of  jet 

1 

UEDGE 

R 

1 

u/uj  at  edge  of  jet  (velocity) 

2 

EEDGE 

R 

1 

e/e^  at  edge  of  jet  (turbu- 
lent kinetic  energy) 

3 

THEDGE 

R 

1 

T/Tj  at  edge  of  jet 
(temperature) 

BCD 

(JETMIX) 

Coannular  jet  - Primary  jet 
boundary  conditions 

1 

UO 

R 

1 

u/u^  in  core  of  secondary  jet 
(velocity) 

2 

EO 

R 

1 

e/cj  in  core  of  secondary  jet 
(turbulent  kinetic  energy) 

3 

THO 

R 

1 
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T/T^  in  core  of  secondary  jet 
(temperature) 

F 


Block 

Typical 

Naae 

Variable 

(Link) 

Words 

Nane 

Type 

Dim. 

Description 

BCMIX2 

(JETMIX) 

1 

GRADU] 

Confined  mixing  - communication 

2 

TW  1 

3 

MUW 

Not  Used 

4 

RHOW  ] 

5 

PTE 

R 

1 

Invlscld  region  stagnation 
pressure,  psla 

6 

TTE 

R 

1 

Invlscld  region  stagnation 
temperature,  *R 

BCMOL 

Boundary  conditions  for 

(JETMIX) 

species  diffusion  equations 

1-12 

ALEDGE 

R 

12 

Mole  fractions  at  edge  of  jet 

13-24 

ALO 

R 

12 

Mole  fractions  In  core  of 
secondary  jet 

CADCNT 

(SPALDG) 

1 

MAX 

I 

1 

Maximum  number  of  equally 
spaced  streamlines  (mesh 
points)  for  finite  difference 
calculation 

2 

NSl 

I 

1 

Number  of  JETMIX  streamlines 
at  initial  axial  station  (x>0) 

3 

NXS 

I 

1 

Number  of  JETMIX  output  stations 
currently  in  use  for  determin- 
ation of  aerodynamic  property 
profiles  (Interpolation) 

4 

NSZMAX 

I 

1 

Maximum  number  of  equally 
spaced  streamlines  required  for 
JETMIX  output  stations  In 
current  usage 

5 

NSZl 

I 

1 

Number  of  equally  spaced 
streamlines  at  Initial  axial 
station  (x"0) 

CAGAIN 

Used  by  NEWNET 

(EMIS) 

1 

AGAIN 

I 

1 

Set  ■ -1  after  first  call  to 
avoid  reinitialization 

CARRY 

JETMIX  new  case  Indication 

(JETMIX) 

1 

NEW 

L 

1 

T ■ new  case  - causes  Initial 
values  to  be  set  by  JTINIT 
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Block  Typical 

Name  Variable 


(Link) 

Words 

Name 

Type 

Dim. 

Description 

CAXIAL 

(EMIS) 

Axial  distances  in  jet  diam- 
eters (from  block  CINPJT) 

1 

X 

R 

1 

Present  computation  station 

2 

XL 

R 

1 

Next  prlng  station 

3 

ALOGX 

R 

1 

£n  (xfl) 

CBITS 

Utility  common 

(MAIN) 

1 

BITS 

R 

1 

GE  junk  work  037777777777 

2 

BLANK 

H 

1 

Hollerith  blank  Shbbbbbb 

(3NDRY 

(SPALDG) 

1 

OL 

R 

1 

Current  axial  step-size  (Ax/d  ) 
for  finite  difference  cal- 
culation of  "G" 

2 

DXPRN 

R 

1 

Axial  distance  (Ax/d.)  between 
stations  at  which  "G ' profiles 
are  printed 

3 

JT 

I 

1 

Indicator  (in  this  program, 

(JT  H 1) 

CBODY 

(JETMIX) 

1-100 

YCB 

R 

100 

(k>nfined  mixing  - communication 

Coordinates  of  centerbody,  in. 

1010200 

CLSPCB 

R 

100 

Coefficients  for  curve  fit  of 
centerbody 

201 

YCBl 

R 

1 

Local  normal  coordinate  on 
centerbody 

202 

UCLl 

R 

1 

Local  velcoity  (u/u. ) on 
centerbody 

CCHECK 

(EMIS) 

Continuity  check  parameters 
used  in  NEWNET  and  MXFLUT 

1-12 

SPECIF 

R 

12 

Total  flow  of  each  dummy  gas 
at  current  station  (diagnostic 
only) 

13-24 

WKTOT 

R 

12 

Total  flow  of  each  JETMIX 
dummy  gas  in  initial  jet. 

25-36 

RATIO 

R 

12 

Not  used 

J 
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Block 

Typical 

Name 

Variable 

(Link) 

Words 

Name 

Type 

Dim. 

Description 

CC0C02 

Communication  block  between 

(LSCK) 

KINET  and  C0C02B 

1 

CORATE 

L 

1 

T = co-kinetics 
f = co-pseudo-equlllbrlum 

2 

XCOI 

R 

1 

Initial  CO  mole  fraction 

CCONST 

(SPALDG) 

1 

CONSTl 

R 

1 

Constant  ( = Uj.  /g^Je  ) 

2 

CONST2 

R 

1 

Constant  ( = 12  C„, /u  d ) 

G1  p p-' 

3 

CONST3 

R 

1 

Constant  ( 1/.  d /a  u ) 

G2  p t p 

4 

CONST4 

R 

1 

Constant  ( = I/cJq) 

CCOUNT 

(SPALDG) 

1-5 

X 

R 

5 

Axial  locations  (x/d^)  of 

JETMIX  output  profiles  in 

current  storage 

6-10 

NSL 

I 

5 

Number  of  JETMIX  streamlines 
at  JETMIX  output  stations  in 
current  storage 

11 

NX 

I 

1 

Number  of  JETMIX  output 
stations  in  current  storage 

12 

XMAX 

R 

1 

Axial  location  (x/dj-)  of  last 
available  JETMIX  output  station 

CDXSAV 

Used  by  MFMAIN 

(EMIS) 

1 

DXSAV 

R 

1 

Basic  axial  step  size  in  jet 
diameters 

CENDS 

(SPALDG) 

1 

JSTART 

I 

1 

Indicator  (in  this  program, 
JSTART  = 1) 

2 

JENDS 

I 

1 

Number  of  equally  spaced  at 
current  axial  station  in 
finite  difference  calculation 

CEQKIN 

General  data  storage  (EQKIN 

(LSCK) 

1 

BK 

R 

1 

and  KINET) 

2 

AIK 

R 

1 

Not  used 

3 

DELHNO 

R 

1 

4 

DEN 

R 

1 

Current  value  of  (1/m^  - 1/m^) 

5 

XMWEQ 

R 

1 

Equilibrium  molecular  weight 

6 

XNO 

R 

1 

Current  NO  mole  fraction 

7 

XCO 

R 

1 

Current  CO  mole  fraction 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

CFILK 

(LMXF,  SPALDG) 

Scale  parameter  for  file 
records  (READT,  READT2) 

1 

CSC 

R 

1 

Scaling  constant  for  file 
record  identification 

CGJET 

(CFILE) 

200 

Variables  stored  on  various  out- 
put files  but  not  used  in  the 
program  reading  the  file.  Used 
also  as  dummy  or  temporary 
storage  Input/output  operations. 

CINIT 

(SPALDG) 

1 

XX 

R 

1 

Current  axial  station  (x/dp)  in 
finite  difference  calculation 

2 

DPSl 

R 

1 

Increment  of  strain  function 
(Ai|(  'V  Ibm/ft^)  between  ad- 
jacent equally  spaced  stream- 
lines at  current  axial  station 

CINPJT 

(EHIS) 

Properties  of  the  initial  jet 
extracted  by  READT2  from  the 
JETMIX  output  files. 

1 

DIAJ 

R 

1 

Jet  diameter.  Inches 

2 

HJET 

1 

Not  used 

3 

TJET 

1 

Not  used 

4 

PTJET 

1 

Not  used 

5 

VJET 

R 

1 

Reference  velocity  of  jet,  fps 

6 

TIJET 

1 

Not  used 

7 

PE 

1 

Not  used 

8 

VE 

1 

Not  used 

9 

ME 

1 

Not  used 

10 

TIE 

1 

Not  used 

11 

TE 

1 

Not  used 

12-61 

X 

R 

50 

Axial  stations  (in  jet  diam- 
eters) at  which  JETMIX  placed 
profile  data  on  its  output 
files 

62 

GAM 

1 

Not  used 

63 

RG 

1 

Not  used 

64 

PR 

1 

No*"  used 

65 

PRT 

1 

Not  used 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

CINPUT 

(SPALDG) 

1-500 

PSI 

R 

501- 

1000 

R 

R 

1001- 

1500 

U 

R 

1501- 

2000 

E 

R 

2001- 

2500 

RHO 

R 

2501- 

3000 

XLN 

R 

3001- 

3500 

F 

R 

Dim.  Description  i 


100,5 

Stream  function  \ 
(t|)  Ibm/ft^)  ' 

100,5 

Radius  (2r/dp) 

Profiles 
at  the 

100,5 

Axial  velocity 

JETMIX 

(u/u  ) 

output 

P 

stations 

100,5 

Turbulent  kinetic 

in  current 

energy  (e/e  ) 

} storage 

100,5 

P / 

Density  I 

(JETMIX 

(p  Ibm/ft^)  j 

stream- 

liner) 

100,5 

Turbulent  length  ' 
scale  (Lj.  ft) 

100,5 

Fuel  concentration 
(Ibjjj/lbjj^  mixture)  , 

CINPUT 

(EMIS) 


CINSAV 

(EMIS) 


1-5 

XX 

R 

5 

6-255 

RJR 

R 

5,50 

256-505 

UJR 

R 

5,50 

506-755 

RHOJR 

R 

5,50 

756-4005 

XKJR 

R 

5,50 

13 

4006- 

4255 

PSIJR 

R5,50 

4256- 

4505 

CJR 

R 

5,50 

4506- 

4510 

NJJ 

I 

5 

4511 

Nil 

I 

1 

1-57 

HGCKP 

R 

57 

READT  profile  properties  at 
five  axial  stations 

Axial  location  of  each  station 
£n(x+l) 

Radius  squared  (sq.  in.) 

Velocity,  ft/sec 

Density  (not  used) 

Mole  fraction  of  JETMIX  dummy 
gas 

Stream  function,  lb/ sec 

Spalding  heterogeneity 
parameter , (lb  fuel/lb  mlx)^ 

Number  of  profile  points 

- 5 

GCKP  Input  storage  block 

Common  block  used  to  tempor- 
arily save  input  to  GCKP 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

CJETOT 

(SPALDG) 

1 

GCJ 

R 

1 

Constant  (g  x J = 25040 

Ibm-ft^/Btu-sec^) 

2 

DIAJ 

R 

1 

Initial  jet  diameter  (d^  'V/  In) 

3 

VJET 

R 

1 

Mass-weighted-average  Initial 
jet  axial  velocity  (u  'V/ 
ft/sec)  ^ 

4 

EJET 

R 

1 

Initial  jet  turbulent  kinetic- 
energy  (ep  Btu/lbm) 

5 

NXTA 

I 

1 

Total  number  of  available 
JETMIX  output  stations 

CJMIXl 
(CFILE  ^ 
LMXF) 

2316 

Variables  stored  on  various 
output  files  but  not  used  In 
the  program  reading  the  file. 
Used  also  as  dummy  or  temp- 
orary storage  during  Input/ 
output  operations. 

CJMIX2 

(CFILE, 

LMXF) 

2507 

Variables  stored  on  various 
output  files  but  not  used  In 
the  program  reading  the  file. 
Used  also  as  dummy  or  temp- 
orary storage  during  Input/ 
output  operations. 

CKH02 

(LSCK) 

Subroutine  RATCON  - forward 
rate  constants  for  Hydor- 
peroxyl  reactions 

1 

K5 

R 

1 

H + O2  + M = HO2  + M 

2 

K6 

R 

1 

H + HO2  = 20H 

3 

K7 

R 

1 

OH  + HO2  = H2O  + O2 

4 

K8 

R 

1 

0 + HO2  = OH  + O2 

5 

K9 

R 

1 

H + HO2  = H2  + O2 

CKINET 

(LSCK) 

Main  communication  common  - 
SCKP/KINET/RATCON 

1 

TIME 

R 

1 

Current  time  into  reaction 
stop>  sec 

2 

DTIME 

R 

1 

Sub-step  size  for  SCKP 
reaction,  sec 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Typical 

Variable 

Type  Dim. 

Description 

CKINET 

(cont'd.) 

3 

NTSTEP 

I 

1 

Number  of  Intermediate  sub- 
steps for  SCKP  reaction 

4 

XMOLWO 

R 

1 

Not  used 

5 

CRC 

L 

1 

Not  used 

6 

NBEAC 

I 

1 

Number  of  reactions 

3 body  + 2 body 

7-15 

RCl 

R 

9 

Arrehnlus  constants  for  SCKP 
reactions 

16-24 

RC2 

R 

9 

Temperature  exponents  for 

SCKP  reactions 

25-33 

RC3 

R 

9 

Activation  energies  for  SCKP 
reactions,  cal/gm  mole 

34-88 

TBE 

R 

11.5 

tody  efficiencies  for 
recombination  reactions 

89-93 

RCON 

R 

5 

Rate  constants  for  3-body 
recombination  reactions 

94 

TK 

R 

1 

Reaction  temperature,  “K 

95 

ENTRY  1 

L 

1 

Flag  denoting  Initial  entry 
to  KINET 

T = Initial  entry 

CLOCAL 

(LMXF) 

Profile  properties  of  current 
axial  station,  Interpolated 
by  NEWNET  from  the  five  READT 
profiles 

1-50 

RJX 

R 

50 

Radius  squared  at  each  READT 
profile  point  (sq.  In.) 

51-100 

UJX 

R 

50 

Velocity  at  each  READT  pro- 
file point  (Ft/sec) 

101-150 

DUMIO 

50 

Not  used 

151-800 

XKJX 

R 

50,13 

Mole  fraction  of  each  JETMIX 
dummy  gas  at  each  READT 
profile  point 

801 

NJ 

I 

1 

Number  of  READT  profile 
points 

CLSPF 

(JETMIX, 

LCFIT,  LSPFIT,  LFIT 
Interpolation  common 

LMXF) 

1 

II 

I 

1 

Saves  Interpolation  index  for 
use  on  the  next  entry 

Block 

Name 

(Link)  Words 


Typical 

Variable 

Name 


Type  Dim. 


CMASS 

(EMIS) 


CMATRX 

(LMXF) 


CMOLES 

(LMXF) 


CMXFLT 

(EMIS) 


1-12 

13-24 


25-36 

37-48 


ZMASS 


R 


12 


ZMASSH  R 12 


FUELL  R 12 

FUELR  R 12 


Description 

Mass  flows  and  fuel  flows  in 
each  NEl-JNET  tube 

Total  flow  in  each  tube  at 
previous  computation  station, 
Ibm/sec 

Total  flow  in  each  tube  at 
present  station,  constructed 
from  ZMASS  and  ALPHA  (block 
CMXFLT) 

Fuel  flow  in  cold  part  at 
present  station  (only  FUELL(l) 
is  used) , Ibm/sec 

Fuel  flow  in  hot  part  at 
present  station  (only  FUF.LR(l) 
is  used) , Ibm/sec 

In  MXFLUT 


1-12 

INTRl 

12 

13 

INTR2 

1 

14 

DET 

1 

15 

IFACTR 

1 

1-1200 

ALX 

R 

100, 

12 


1-144  W 12,12 

145-300  WHAT  13,12 


301-444  ALPHA  12,12 


Not  used 


Profile  data  read  by  READT2 
from  JETMIX  output  files 

Mole  fraction  of  each  dummy 
gas  at  each  point  in  profile 

Flows  of  JETMIX  dummy  gases 
in  NEWNET  tubes,  and  inter- 
tube mixing  parameters 

W^j  is  flow  of  gas  i in  tube 
j at  previous  axial  station 
(Ibm/sec) 

W^j  is  flow  of  gas  i in  tube 
j at  present  axial  station 
(Ibra/sec)  (Last  i is  mean 
fuel  concentration  in  tube  j) 

is  fraction  of  flow  in 
tube  j at  previous  station 
that  is  transferred  to  tube  k 
at  present  station 
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Block 

Name 

(Link) 

CNERR 

(JETMIX) 


CNFILE 

(MAIN) 


CNUNET 

(SPALDG) 


j 


1 


Typical 

Variable 


Words 

Name 

Type 

Dim. 

Description 

Constants  and  error  indicator 

common 

1 

BITS 

R 

1 

Junk  word  used  for  testing 

2 

ERR 

L 

1 

Error  indicator  (T  = error 
condition) 

3 

GC 

R 

1 

(g  ) 32.174  ft  lb  /lb,  sec^ 
c m _ r 

4 

GCJ 

R 

1 

(g^J)  (32.174*778) ft^ 

lb  /Btu  sec 
m 

5 

FOOT 

R 

1 

Conversion  factor  12  inches/ ft 

Files  present  on  merge/ 
decollation  file 

1 

NF 

I 

1 

1 = PREJET  data 

2 = PREJET,  JETMIX  data 

3 = PREJET,  JETMIX,  SPALDG  data 


1-5 


PSJMAX  R 5 


Maximum  value  of  stream  of 
function  (ij*  '''  Ibm/ft^)  at  each 
JETMIX  output  station  In 
current  storage 


6-10 

NSLZ 

I 

5 

Number  of  equally  spaced  stream- 
lines at  JETMIX  output  stations 
in  current  storage 

11-260 

RZ 

R 

50,5 

Radius  (2r/d  ) \ 

261-510 

UZ 

R 

50,5 

P 

Axial  velocity 
(u/up) 

Profiles  at 
the  JF.TMIX 
output 

511-760 

EZ 

R 

50,5 

Turbulent  kinetic 
energy  (e/ep) 

' stations  in 
current 

761- 

1010 

RHOZ 

R 

50,5 

Density 

(p  Ibm-ft^)  1 

y storage 
' (equally 
i spaced 

1011- 

1260 

XLNZ 

R 

50,5 

Turbulent  length  1 
scale  (L^  ft) 

1 streamlines) 

1261- 

1510 

FZ 

R 

50,5 

Fuel  concentration 
(Ibm/lbm  mixture) 

) 
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Block 

Typical 

Name 

(Link) 

Words 

Variable 

Name 

IZE® 

Dim. 

Description 

CNWNET 

(EMIS) 

Profile  properties  at  current 
axial  station,  Interpolated 
by  NEWNET  from  the  five 

READT  profiles 

1-50 

WFCJX 

R 

50 

Cumulative  fuel  flow  from 
center  of  each  READT  profile 
print . 

51-100 

DUM6 

50 

Not  used 

101-112 

WFCUM 

R 

12 

Cumulative  fuel  flow  to  outer 
boundary  of  each  NEWNET  tube. 

113-162 

DUW7 

50 

Not  used 

163-212 

PSIJX 

R 

50 

Stream  function  (Ib/sec)  at 
each  READT  profile  point 

COLIKT 

(LSCK) 

1 

XCOLIM 

R 

Limiting  (equilibrium)  CO 
mole  fraction  - used  by  C0C02B 

COND 

(PREJET, 

Properties  of  the  reacting 
gas  mixture,  used  by  GCKP 

EMIS) 

1 

DVAR 

R 

1 

The  dependent  variable  (V®0) 

2 

AREA 

R 

1 

Flow  area  (not  used) 

3 

MOOT 

R 

1 

Mass  flow  (not  used) 

4 

P 

R 

1 

Pressure,  atm. 

5 

IVAR 

R 

1 

The  independent  variable 
(time,  sec) 

6 

V 

R 

1 

Velocity,  cm/ sec 

7 

RHO 

R 

1 

Density,  gm/cm- 

8 

T 

R 

1 

Temperature,  K 

9-33 

SIGMA 

R 

25 

Gas  composition,  gtiol/gm  mix 

34 

LS 

I 

1 

Number  of  species  in  mixture 
( - 16) 

35 

LSP3 

I 

1 

LS+3 

36 

NEXT 

L 

1 

Malfunction  has  occurred 

CONSTF 

(JETMIX) 

1 

CONI 

R 

1 

Flow  scaling  (JETMIX) 

Vjr*^  n"l  Plane 

n*2  Axisymmetric 

w 


Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

CORED 

(JETMIX) 

1 

XCORE 

R 

1 

2 

CORE 

L 

1 

3 

CORED 

L 

1 

4 

CORSTP 

L 

1 

COREQN 

(EMIS) 

1 

COREQ 

L 

CP ARAM 
(LMXF) 

1-100 

U 

R 

100 

101-200 

T 

R 

100 

201-300 

TOT 

R 

100 

301-400 

XMACH 

R 

100 

CPBOLI 

(SPALDG) 

1-50 

G 

R 

50,1 

51 

ALPHA 

R 

1,1 

52-101 

BETA 

R 

50,1 

102-151 

GAMM 

R 

50,1 

152-201 

DELTA 

R 

50,1 

Description 


Primary  jet  core  data. 

Axial  coordinate  of  the  point 
where  jet  core  disappears. 

T = core  has  disappeared. 

T * core  disappearance  station 
has  been  processed. 

T “ core  has  disappeared,  do 
not  re-process. 

Rate  constant  selection  for 
reaction  - CO  + 0H:^C02  + H. 

T = use  special  GE  rate 
constants. 

F = use  standard  rate  constants. 


Profile  data  read  by  REAnT2 
from  JETMIX  output  files. 

Velocity,  ft/sec. 

Static  temperature,  *R. 

Not  used. 

Mach  number. 


Mean-square  fuel 
concentration  fluc- 
tuation intensity 
(G). 

a (coefficient  in 
P.D.E.  for  determ- 
ination of  G)  . 

6 (coefficient  in 
P.D.E.  for  determ- 
ination of  G)  . 

Y (coefficient  in 
P.D.E.  for  determ- 
ination of  G) . 


6 (coefficient  in 
P.D.E.  for  determ- 
ination of  G), 


Profiles 
at  the 
current 
axial 
station 
in  the 
finite 
difference 
calcula- 
tion of 
G 

(equally 
spaced 
stream- 
lines) . 
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Block 

Name 

(Link) 

CPCOEF 

(PREJET) 


CPRFL 

(SPALDG) 


Words 

Typical 

Variable 

Name 

Type 

Dim. 

1 

CA 

R 

1 

2 

CB 

R 

1 

3 

CC 

R 

1 

A 

CAA 

R 

1 

5 

CBA 

R 

1 

6 

CCA 

R 

1 

1-100 

PS  I 

R 

100 

101-200 

Y 

R 

100 

201-300 

UD 

R 

100 

301-A00 

ED 

R 

100 

AOl-500 

RHO 

R 

100 

501-600 

XLN 

R 

100 

601- 

1800 

ALX 

R 

1200 

1801 

NPD 

I 

1 

Description 


a 

b 

c 


a 

b 

c 


Coefficients 
for  the 
first  NC-1 
constituent 
(inert) 
gases. 


Coef ficientsi 
for  the 
NC—  gas 
(ambient) . 


These  are 
coefficients 
for  the 
determination 
of  constant 
pressure 
specific  heat 
(Cp  Btu/ 
Ibm-mole  °R') 
as  a quadratic 
function  of 
local  static 
temperature 


(T 


“R): 
a + bT 
ct2. 


Stream  function 
([p  % Ibm/ft^). 

Radius 
(2r/dp). 

Axial  velocity 

(u/Up) . 

Turbulent  kinemat- 
ic energy  (e/ep) 

Density 

(p  "v  Ibm/ft^). 

Turbulence 
length  scale 
(Lt  ft). 

Molar  concentra- 
tions of  con- 
stituent gases 
(inert  species). 
The  variable 
ALX  actually 
represents  a 
100  X 12  matrix. 

Number  of  JETMIX 
streamlines . 


Profiles 
at  an 

individual 

JETMIX 

output 

station  as 

it  is 

being 

loaded 

into 

current 

storage. 
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Block 

Name 

(Link) 


Words 


Typical 

Variable 

Name 


Type  Dim 


Description 


CPRFL 

(cont'd) 

1802- 

1813 

FSPECI 

R 

12 

Fuel  concentration  in  consti- 
tuent (inert)  gases 
(Ibm/lbm  mixture) . 

1814 

NC 

I 

1 

Number  of  constituent  (inert) 
gases. 

1815- 

1864 

X 

R 

50 

Axial  locations  (x/dj.)  of 
available  JETMIX  output 
stations. 

CPRINT 

(EMIS) 

1-20 

PDUM 

R 

20 

Diagnostic  Print  common. 

Input  switches  for  diagnostic 
output  in  mixing  and  kinetics 
routines. 

CPRJET 

(CFILE) 

1387 

Variables  stored  on  various 
output  files  but  not  used  in 
the  program  reading  the  file. 
Used  also  as  dummy  or 
temporary  storage  during 
input /output  operations. 

CPROF 

(LMXF) 

Profile  data  read  by  READT2 
from  JETMIX  output  files. 

1-100 

PS  I 

R 

100 

Dimensionless  stream  function 

101-200 

Y 

R 

100 

Dimensionless  radius  or  radiui 
squared. 

201-300 

UD 

R 

100 

Dimensionless  velocity. 

CPROGM 

(MAIN) 

1 

PROGM 

H 

1 

MAINP  - program  name  current 
program  in  execution. 

CPROP 

(JETMIX) 

Constant  coefficients  for 
mixing  scale  calculation  - 
(Single  jet). 

1-10 

CT 

R 

10 

Coefficients  of  scale 
calculation. 

Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

CPR0P2 

(JETMIX) 

Coannular  jet  - constant  co- 
efficients for  mixing  scale 
calculation. 

1 

CTP 

R 

1 

Scale  constant  for  primary  jet. 

2 

CTS 

R 

1 

Scale  constant  for  secondary 
jet. 

3 

CTM 

R 

1 

Scale  constant  for  region 
domstream  of  merge  point. 

CPROPJ 

(LMXF) 

Profile  data  read  by  READT2 
from  JETMIX  output  files 
(and  not  used) . 

1-100 

RHO 

R 

100 

Density. 

101-200 

XLN 

R 

100 

Turbulence  scale. 

CPSEQ2 

(LSCK) 

1 

SPM 

R 

1 

2 

SPHU 

R 

1 

Not 

3 

SPMC 

R 

1 

CQIREM 
(PREJET , 
LSCK) 

1 

YTOL 

R 

1 

Control  parameters  for  QIREM. 

Convergence  tolerance  on  dif- 
ference between  YO  and  cal- 
culated value  of  dependent 
variable. 

2 

YO 

R 

1 

Desired  value  of  dependent 
variable. 

3 

dydx 

R 

1 

Estimate  of  first  derivative 
of  function. 

4 

CTRMAX 

R 

1 

\ 

Maximum  number  of  tries  before 
calling  ERRORl. 

CRATE 

(LSCK) 

1 

RATE 

R 

1 

Rate  of  3-body  recombination 
reactions. 

CREACT 

(EMIS) 

1-12 

RHOREA 

12 

In  MXFLUT. 

Not  used. 
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F 


1 


Block  Typical 

Name  Variable 


(Link) 

Words 

Name 

Type 

Dim. 

Description 

CREFDA 

(PREJET) 

1 

DIAJ 

R 

1 

Initial  jet  diameter  (dp  In). 

2 

MJET 

R 

1 

Mass-weighted-average  Initial 
jet  Mach  number. 

3 

TIJET 

R 

1 

Initial  jet  turbulence  Intensity 

(u^/up) . 

4 

VJFT 

R 

1 

Mass-weighted-average  Initial 
jet  axial  velocity  (up  ft/sec) 

5-104 

GJFT 

R 

100 

Profile  at  mean-square  fuel 
concentration  fluctuation 
Intensity  (G  “v  Ibm^/lbm^)  at 
Initial  axial  station  (y“0)  . 

105 

PE 

R 

1 

External  (ambient)  static 
pressure  (Pg  psla) . 

106 

TE 

R 

1 

External  (ambient)  static 
temperature  (Tg  'v.  ®R) . 

107 

TTE 

R 

1 

External  (ambient)  turbulence 
intensity  (up/Up). 

108 

VE 

R 

1 

External  (ambient)  axial 
velocity  (Ug  fps) . 

109 

GEX 

R 

1 

External  (ambient)  mean-square 
fuel  concentration  fluctuation 
Intensity  (Ggj^  'v  Ibm^/lbm^). 

no 

RG 

R 

1 

Gas  constant  (f t-lbf /lbm-®R) . 

111 

PR 

R 

1 

Prandtl  number. 

112 

PRT 

R 

1 

"Turbulent"  Prandtl  number. 

113 

SC 

R 

1 

Sutherland  constant  for 

viscosity  calculation 

(S  "R). 

c 

114 

TREE 

R 

1 

Reference  temperature  for 
viscosity  calculation 
(Tref  “R) 

115 

MUREF 

R 

1 

Reference  viscosity  for 
viscosity  calculation 
(Pref  Ibm/ft-sec). 

4 


i 

3 
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Block  Typical 

Name  Variable 


(Link)  Words 

Name 

Type 

Dim. 

Description 

CREFDA  (cont'd.) 

116 

DIFF 

L 

1 

T = species  diffusion  calculated 
F • species  diffusion  not 
calculated. 

117 

NC 

I 

1 

Number  of  constituent  gases 
(inert  species)  in  jet  and 
external  flow. 

118-129 

CNAME 

R 

12 

Names  of  constituent  gases. 

130-141 

ALE 

R 

12 

External  (ambient)  molar 
concentrations  of  constituent 

gases. 

142-153 

SCM 

R 

12 

Effective  Schmidt  numbers  of 
constituent  gases. 

154-189 

CPC 

R 

36 

Coefficients  in  polynomial 
representation  of  molar  heat 
capacities  of  constituent 

gases  (aj^,  bj^»  c^*  ^2*  •••)• 

Cpi  = a^  + b^T  + CiT2. 

190 

NJ 

I 

1 

Number  of  JETMIX  streamlines 

in  jet  at  initial  axial 
station  (y=  0) 

191 

NM 

I 

1 

Maximum  number  of  JETMIX 
streamlines  before  mesh  re- 
distribution occurs. 

192 

CTl 

„ Constants  in  the 

R 

1 

C \ 

tl  1 empirical  equation  for 

193 

CT2 

o 

1 

/ turbulence  length  scale 

K 

X 

^t2  / in  the  potential  core 

region. 

194 

CT3 

R 

1 

^t3  V 

195 

CT4 

R 

1 

C^,  1 Constants  in  the 
^ [ empirical  equation  for 

196 

CT5 

p 

1 

K 

t5  ) turbulence  length  scale 

197 

CT6 

R 

1 

C , V in  the  transition 
^ 1 region. 

S7  ' 

198 

CT7 

R 

1 

199 

CT8 

R 

1 

Ct8  Constant  in  the 

empirical  equation  for 
turbulence  length  scale 
in  the  fully  developed 
region. 
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Block 

Name 

(Link)  Words 
CREFDA  (cont’d.) 


Typical 

Variable 

Name  Type  Dim. 


Description 


200-299 

Y 

R 

100 

Radius  (2r/dp). 

300-399 

UD 

R 

100 

Axial 
velocity 
(u  '''  ft/sec) . 

400-499 

THD 

R 

100 

Static  temper- 
ature (T  °R) . 

500-599 

TID 

R 

100 

Turbulence 

intensity 

(u7up). 

600-1799 

ALX 

R 

1200 

Molar  concen- 
trations of 
constituent 
gases. 

(Actually 
represents  a 

100  X 12  matrix) 

'Profiles  at 
the  Initial 
axial  station 
(JETMIX 
’ streamlines) . 


CSLDAT 

(SPALDG) 


(CFILE) 


1-50 

SY 

R 

50 

Stream  function 
(i{)  -v  ibm/ ft^) . 

51-100 

RAD 

R 

50 

Radius  (2r/dp). 

101-150 

VEL 

R 

50 

Axial  velocity 

(u/Up) . 

Turbulent  kimetic 
energy  (e/ep) . 

Profiles 
at  the 

151-200 

TKE 

R 

50 

current 

axial 

station 

201-250 

DEN 

R 

50 

Density 

(p  "v  Ibm/ft^). 

in  the 
finite 

251-300 

TLS 

R 

50 

Turbulence  length 
scale  ft). 

difference 
calculation 
of  G. 

301-350 

51 

FAR 

R 

50 

Fuel  concentration 
(Ibm/lbm  mixture) . 

Variables  stored  on 

various 

output  files  but  not  used  in 
the  program  or  temporary 
storage  during  Input/output 
operations. 
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Block 

Typical 

Name 

Variable 

(Link) 

Words 

Name 

Type 

Dim. 

Description 

CSPARE 

Temporary  storage  for  redistri- 

(LMXF) 

buted  JETMIX  and  SPALDG  profile 
points  in  READT2. 

1-1600 

H 

R 

1600 

Temporary  values  of  Y^,  U,  RHO, 
ALX,  G. 

1601- 

PSIR 

R 

50 

Values  of  generated  by 

1650 

NEWPSI  ^ 

1651- 

1700 

G 

R 

50 

^ Values  of  G,  \p,  and  radius 

1701- 

1750 

SY 

R 

50 

^ read  from  SPALDG  profile  data 

1 output  files. 

1751- 

1800 

RAD 

R 

50  ] 

1 

CSPECI 

Miscellaneous  parameters  used 

(EMIS) 

by  MXFLUT,  NEWNET,  etc. 

1 

NSPECI 

I 

1 

Number  of  JETMIX  dummy  gases 
(includes  ambient  air). 

2 

NF 

I 

1 

Storage  location  for  fuel  flow 
( = NSPECI  + 1). 

3 

DX 

R 

1 

Current  axial  step  size  in  jet 
diameters  (from  block  CINPJT)  . 

CSTART 

(SPALDG) 

1-100 

GJET 

R 

100 

Profile  of  mean-square  fuel 
concentration  fluctuation 

intensity(G)  at  initial  axial 
station  (x=0) . 

101 

GEX 

R 

1 

External  (ambient)  value  of 
mean-square  fuel  concentration 
fluctuation  intensity  (G)  . 

CTABPR 

Subroutine  TABPRT. 

(MAIN) 

1 

ITAB 

I 

1 

Sets  array  index  for  starting 
location  of  printing. 

CTHETA 

(SPALDG) 

1 

THETA 

R 

1 

Crank-Nicolson  factor  for 
finite  difference  solution  of 
the  parabolic  partial  differ- 
ential equation  for  G (THETA  = 0 
'v  explicit  solution,  THETA  = 1/2 
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"v  Crank-Nicolson,  THETA  = 1 

'v  fully  implicit  solution. 


Block 

Name 

(Link) 


Words 


Typical 

Variable 

Name 


Type  Dim 


Description 


CTHETA  (cont'd.) 


CTRANS 

(SPALDG) 


2 

11 

I 

1 

Indicator 
II  = 1). 

(in  this  program. 

1-250 

RZT 

R 

5,50 

1 

Transpose 
of  RZ 

Transposed  profile 
matrices  used  for 

251-500 

UZT 

R 

5,50 

Transpose 
of  UZ  i 

determination  of 
profiles  at  in- 
termediate axial 

501-750 

EZT 

R 

5,50 

Transpose  I 
of  EZ  ' 

stations  by  in- 
) terpolation  along 

751- 

1000 

RHOZT 

R 

5,50 

Transpose  | 
of  RHOZ  1 

the  "equally 
spaced"  stream- 
lines (see  CNUNET 

1001- 

1250 

XLNZT 

R 

5,50 

Transpose  1 
of  XLNZ 

for  definition 
of  RZ,  UZ,  CZ, 

1251- 

1500 

FZT 

R 

5,50 

Transpose  j 
of  FZ  / 

RHOZ,  XLNZ  and 

EZ)  . 

CTRIDI 

(SPALDG) 


1-150  A 
151-200  B 


R 50,3 

R 50 


Tridiagonai 
coefficient 
matrix 
"right-hand 
side"  vector. 


Solution  of 
simultaneous 
finite  dif- 
ference 
equations  for 
"G"  profile  at 
current  axial 
station. 


CTRL  Calculation  control. 

(JETMIX) 


1 

NXTA 

I 

1 

Number  of  main  calculation 
stations. 

2 

CMPRS 

L 

1 

F = incompressible. 

T = compressible. 

3 

QJET 

L 

1 

F = isothermal  jet. 

T = non-iso thermal  jet. 

4 

TURBJ 

L 

1 

F = laminar  jet. 

T = turbulent  jet. 

5-14 

COEF 

R 

10 

Constant  quantities  used  in 
the  calculation  of  the  dif- 

ference  equation  coefficients 
78 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

CTRL  (cont 

M.) 

15 

NPU 

I 

1 

Number  of  upstream  profile 
points. 

16 

NPD 

I 

1 

Number  of  doimstream  profile 
points. 

17 

DXC 

R 

1 

Current  AX  to  next  station. 

18 

XU 

R 

1 

Upstream  X location. 

19 

XD 

R 

1 

Dovmstream  X location. 

20-819 

DSTOR 

R 

800 

Dummy  - scratch  storage. 

CTRL2 

(JETMIX) 

Control  storage  - coannular 
jet. 

1 

EDGEI 

R 

1 

Y location  of  edge  of  primary 
jet. 

2 

SFI 

R 

1 

V;  (streamfunction)  value  at 
EDGEI. 

3 

MERGE 

L 

1 

F = coannular  jets  have  not 
merged. 

T = coannular  jets  have  merged. 

4 

XMERGE 

R 

1 

X location  of  merge  points  of 
coannular  jets. 

5 

YMERGE 

R 

1 

Y or  R location  of  merge  point 
of  coannular  jets. 

6 

SLOPEI 

R 

1 

Slope  of  straight  line  from 
primary  nozzle  lip  to  merge 
point . 

7 

SLOPED 

R 

1 

Slope  of  straight  line  from 
secondary  nozzle  lip  to  merge 
point . 

8 

CEPTI 

R 

1 

Intercept  of  straight  line 
from  primary  nozzle  lip  to 
merge  point. 

9 

CEPTO 

R 

1 

Intercept  of  straight  line 
from  secondary  nozzle  lip  to 
merge  point. 

CXLOCA 

(EMIS) 

1-5 

XX 

R 

5 

Used  by  READT2. 

Five  axial  distances  in  jet 
diameters  for  which  READTZ 
has  stored  JETMIX  profile  data. 
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Block 

Name 

(Link) 

CYOLD 

(LMXF) 


DFIT 

(JETMIX) 


DICTRL 

(JETMIX) 


DIFEQI 

(JETMIX) 


DPBETA 

(LSCK) 


Words 

Typical 

Variable 

Name 

1X26 

Dim. 

Description 

1-12 

YRICHO 

12 

In  MXFLUT. 

Not  used. 

Confined  jet  - curve  fit. 

1-100 

CLSP 

R 

100 

Coefficients  for  LSP  curve  fit 
of  outer  wall  contour. 

Control  storage  - species 
diffusion  equations. 

1 

DIFF 

L 

1 

T = solve  species  diffusion 
equations . 

F = Do  not  solve  species 
diffusion  equations. 

2-11 

CND 

R 

10 

Constant  quantities  used  in  the 
calculation  of  the  diffusion 
difference  equation  coefficients 

Species  diffusion  - input  common 

1 

NC 

I 

1 

Number  of  species  - maximum  * 6. 

2-7 

aJAME 

H 

6 

Species  names. 

8-13 

ALJ 

R 

6 

Primary  jet  - reference  species 
mole  fractions 

14-19 

ALJO 

R 

6 

Secondary  jet  - reference 
species  mole  fraction. 

20-25 

SCM 

R 

6 

Species  Schmidt  Numbers. 

26-31 

TCPRF 

R 

6 

Not  used. 

32-37 

HCPRF 

R 

6 

Not  used. 

38-55 

CPC 

R 

3.6 

Species  molar  heat  capacity. 
Coefficients  of  parabolic  fit 
vs.  absolute  temperature. 

1 

BETADP 

D 

2 

Double  precision  value  of  S - 
used  by  PSEQ2 

I 

-i 


80 


Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

DQIREM 

(PREJET, 

Kinetics/Equilibrium  T calc, 
scratch  file. 

EMIS) 

1 

KINFIL 

1 

1 

File  code  for  output  of  SCKP 
initial  conditions/Equilibrium 

T calculation  iteration  history 
to  be  dumped  by  call  to  ERRORl. 

EDGE 

(JETMIX) 

1 

YEDGE 

R 

1 

Coordinate  of  jet  edge. 

Normal  coordinate  (Y)  at  jet 
edge. 

2 

SFEDGE 

R 

1 

Streamf unction  (ij;)  at  jet 
edge. 

ERASE 

(LSK, 

PREJET) 

36 

Scratch  common  used  by  QIREM 
iteration  routine. 

FILK 

Scale  parameter  for  file  records. 

(JETMIX) 

1 

CSC 

R 

1 

Scaling  constant  for  file 
record  identification. 

FLOBAL 

(JETMIX) 

Confined  jet  - parameters  for 
pressure  - area  iteration. 

1 

MAXIT 

I 

1 

Maximum  allowable  P-A 
iterations. 

2 

SUPB 

L 

1 

T = select  supersonic  branch 
during  P-A  iteration. 

F = select  subsonic  branch. 

3 

psin 

R 

1 

Streamf unction  at  duct  outer 
wall. 

4 

YDD 

R 

1 

Local  duct  outer  wall  Y. 

5 

YDC 

R 

1 

Local  center  body  Y. 

6 

PI 

R 

1 

Upstream  static  pressure. 

7 

P2 

R 

1 

Downstream  static  pressure. 

8 

UCL 

R 

1 

Local  or  centerbody 

9 

TOL 

R 

1 

Iteration  tolerance  - P-A 
Iteration. 

10 

UPSTRM 

L 

1 

T = upstream  of  Intersection  of 
mixing  jet  and  duct  wall. 

F = downstream  of  intersection 
of  mixing  jet  and  duct  wall. 

11 

CVG 

L 

1 

T = P-A  iteration  has  converged. 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

GAS  CMP 
(PREJET, 
EMIS) 

Detailed  properties  of  hot  and  ^ 
cold  gas  parts  of  each  tube 

flow  at  previous  and  present  ] 
computation  station  (see  Table  1 
2 for  subscript  key) . 1 

1-24 

YY 

R 

12,2 

Mass  fraction  hot  part  of  gas  ‘ 

(subscripts  K,L). 

25-72 

FUEL 

R 

2,12, 

2 

Fuel  concentration,  lb  fuel/ 

lb  mix  (subscripts  J,K,L).  ' 

73-120 

ENTH 

R 

2,12, 

2 

Absolute  enthalpy,  Btu/lbm  '■ 

(subscripts  J,K,L).  ; 

121-888 

CONC 

R 

16,2, 

12,2, 

Species  concentrations,  miles 

I/lb  mix  (subscripts  I,J,K,L). 

1 

889-912 

HCINCP 

R 

12,2 

"Reactive  Inclplency"  of 
hydrocarbons  in  hot  part 

(subscripts  K,L) . ^ 

913-936 

937- 

1104 

U 

OTHER 

R 

12,2 

168 

Velocity,  ft/sec  (subscripts 

K,L). 

Unused  space. 

GASTMW 

(EMIS) 

Communication  between  mixing/  •; 

homogenization  and  kinetics  j 

routines  (see  Table  2 for 
subscript  key) . 

1-48 

TG 

R 

2,12, 

2 

Static  temperature,  ’’R  j 

[TG(J,K,L)].  j 

49-96 

MWTG 

R 

2,12, 

2 

Molecular  weight,  Ibm/lb  mole  j 

[MWTG(J,K,L)] . J 

97-120 

TAU 

R 

12,2 

Reaction  time  for  a [TAU  * 

(K,L)]  given  streamtube.  j 

121-168 

CPG 

R 

2,12, 

2 

Constant  pressure  heat  j 
capacity,  Btu/lbm  "R  ' 
tCPG(J,K,L)). 

GHSC 

(PREJET, 

Thermo  properties  of  pure 
chemical  species. 

EMIS) 

1-25 

GRT 

R 

25 

Dimensionless  Gibbs  free 
energy  G/RT. 

26-50 

HRT 

R 

25 

Dimensionless  enthalpy  H/RT. 

51-75 

SR 

R 

25 

Dimensionless  entropy  S/R. 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim.  Description 

GHSC  (cont'd.) 

76-100 

CPR 

R 

25 

Dimensionless  heat  capacity 

Cp/R. 

INDATA 

(PREJET, 

EMIS) 

101-125 

DCPR 

R 

25 

(dCp/dT)/R. 

Engine  cycle  parameters  and 
nozzle  exit  survey  probe 
measurements. 

1 

N,HC 

R 

1 

Fuel  hydrogen/carbon  atom 
ratio. 

2 

HF 

R 

1 

Absolute  enthalpy  of  fuel, 
Btu/lbm. 

3 

WAR 

R 

1 

V/ater/air  mass  ratio  in 
ambient  air. 

4 

T2 

R 

1 

Fan  inlet  total  temperature,  "R. 

5 

BETA 

R 

1 

Engine  by-pass  ratio. 

6 

T25 

R 

1 

Fan  discharge  total  temperature, 
“R. 

7 

FAR5 

R 

1 

Turbine  discharge  fuel/air  mass 
ratio. 

8 

EIN02C 

R 

1 

emission  index  of  main 
combustor,  lb  N02/lb  fuel. 

9 

PO 

R 

1 

Ambient  static  pressure,  psia. 

10-20 

RCO 

R 

i 

1 Point  sample  measurements  of 

} CO  and  CO2,  mole  fraction  of 

21-31 

RC02 

R 

11 ) 

1 sample  dried  to  32‘’F  saturation. 

32-42 

RHC 

R 

j 

1 Sample  measurements  of  hydro- 

[ carbon  (as  and  total 

r oxides  of  nitrogen,  mole 

43-53 

RNOX 

R 

11] 

f fraction  in  net  sample. 

54-64 

PT 

R 

11 

Probe  impact  pressure  measure- 
ment, psia. 

65-75 

PS 

R 

11 

Local  static  pressure,  psia. 

76-86 

BLOC 

R 

11 

Local  effective  by-pass  ratio. 

INMOLF 

(LSCK) 

87-97 

EICOC 

R 

11 

CO  emission  index  of  main 
combustor,  lb  CO/lb  fuel. 

1-12 

XI N 

R 

1 

83 

Initial  mole  fractions  at  the 
beginning  of  a kinetics  step, 
mols  l/mole  mix. 

Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

INNAME 

(JETMIX) 

Column  vector  names  - JETMIX 
input  (not  used) 

1 

NB 

I 

1 

Number  of  B-input  columns. 

2-6 

TAB 

H 

5 

Names  of  input  columns. 

7 

ND 

I 

1 

Number  of  D-input  columns. 

8-11 

TAD 

H 

4 

Names  of  D-input  columns. 

INPl 

Entry  control  block  (JTSTEP) . 

(JETMIX) 

1 

ENTRYl 

L 

1 

Set  T for  first  entry  into 
JTSTEP. 

INPJET 

(JETMIX) 

1 

DIAJ 

R 

1 

Jet  input  parameters 

Primary  jet  diameter,  inches 
or  width. 

2 

MJET 

R 

1 

Primary  jet  reference  Mach 
number. 

3 

TJET 

R 

1 

Primary  jet  reference  static 
temperature,  "R. 

4 

PTJET 

R 

1 

Primary  jet  reference  stagna- 
tion pressure,  psla. 

5 

VJET 

R 

1 

Primary  jet  reference  velocity, 
fps. 

6 

TIJET 

R 

1 

Primary  jet  turbulfr^ce  in- 
tensity (relative  to  VJET). 

7 

PE 

R 

1 

Boundary  condition  - static 
pressure,  psla. 

8 

VE 

R 

1 

Boundary  condition  - external 
velocity,  fps. 

9 

ME 

R 

1 

Boundary  condition  - external 
Mach  number. 

10 

TIE 

R 

1 

Boundary  condition  - turbulence 
intensity 

11 

TE 

R 

1 

Boundary  condition  - static 
temperature,  "R. 

12 

AXI 

L 

1 

T • axlsymmetrlc  jet. 

F “ plane  or  2-D  jet. 

13 

NJ 

I 

1 

Index  of  nozzle  lip  mesh  point. 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

INPJET  (cont'd.) 

14 

NMAX 

I 

1 

Number  of  mesh  points  allowed 

15-114 

X 

R 

100 

before  grid  is  refined. 

Table  of  primary  X/D  values. 

115-214 

XPRN 

L 

100 

Reference  - X Table  of  print 

215 

GAM 

R 

1 

stations. 

T “ Print  corresponding  X 
station. 

Not  used. 

216 

RG 

R 

1 

Gas  constant  ft  Ibf/sec^  ®R. 

217 

PR 

R 

1 

Prandtl  number  C u/K. 

p 

218 

PRT 

R 

1 

Turbulent  Prandtl  number, 

219 

SC 

R 

1 

W,./K  . 
p t t 

Sutherland  constant  (viscosity 

220 

TREF 

R 

1 

formulation) . 

Reference  temperature  for 

221 

MUREF 

R 

1 

viscosity  calculation. 

Reference  viscosity  at  TREF. 

lOFILE 

(MAIN) 

1 

TAPIN 

L 

1 

I/O  file  indication. 

T = input  file. 

JET 

(JETMIX) 

1-100 

B 

R 

100 

T = output  file. 

Properties  of  jet  along  axis  of 
symmetry  or  on  centerbody. 

Non-dimensional  width  of  mixing 

101-200 

UC 

R 

100 

zone. 

Velocity  (u/uj) . 

201-300 

TC 

R 

100 

Static  temperature  (T/Tj) . 

301-400 

TIC 

R 

100 

Turbulence  intensity  (u'). 

401-500 

PTC 

R 

100 

Stagnation  pressure  ratio 

501-600 

WJ 

R 

100 

(Pt  - Pr) 

^^TJet  “ ^E^ 

Relative  entrained  flow  W/W^. 

601-700 

YJ 

R 

100 

Y location  of  jet  edge. 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

JETl 

Jet  parameters. 

(JETMIX) 

1 

EJET 

R 

1 

Reference  turbulent  kinetic 
energy  for  primary  jet, 

Btu/lbm. 

2 

FLOWJ 

R 

1 

Normalizing  jet  flow  rate  at 
initial  station. 

3 

NXN 

I 

1 

Current  calculation  station 
Index. 

4 

TTO 

R 

1 

Jet  stagnation  temperature,  “R. 

JET2 

(JETMIX) 

1-100 

TTC 

R 

100 

Station  stagnation  temperature. 

Stagnation  temperature  ratio  on 

jet  axis  or  center  body. 

T - T 

Tg  ^e 

- T 

To  e 

JET  3 
(JETMIX) 

Control  common  for  added 
stations.  Confined  mixing. 

1 

NV 

I 

1 

Added  station  counter. 

2 

STADD 

L 

1 

T = skip  property  calculation 
at  added  station. 

3 

STATE 

L 

1 

T = do  not  add  to  "additional 
station  counter"  (NV) 

JETDAT 

(PREJET, 

EMIS) 

Mean  properties  of  flow  at 
nozzle  exit  survey  points.  Also 
info  transmitted  from  IDCFLUT  to 
HYCARB. 

1 

NPTS 

I 

1 

Number  of  survey  points  (eleven 
max. ; point  NPTS+1  is  ambient 
air) . 

2-13 

RAD 

R 

12 

Radial  location,  ft. 

14-25 

TS 

R 

12 

Static  temperature,  “R. 

26-37 

U 

R 

12 

Velocity,  fps. 

38-49 

SPV 

R 

12 

Specific  volume,  ft^/lbm. 

50-61 

MWT 

R 

12 

Mean  molecular  weight,  Ibm/mole. 

62-73 

CP 

R 

12 

Specific  heat,  Btu/lbm  “R. 
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Block 

Name 

(Link)  Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

JETDAT  (cont'd.) 

74-85 

FUEL 

R 

12 

Fuel  concentration,  lb  fuel/ 
lb  mix 

86-97 

SPALDG 

R 

12 

Heterogeneity  parameter, 

(lb  fuel/lb  mix) 

98-109 

TKE 

12 

Not  used. 

110-121 

TFR 

R 

12 

Mass  of  fuel  transported  into 
the  hot  part  of  a tube  from  the 
hot  parts  of  all  tubes  in  a 
mixing  step. 

122 

TFL 

R 

1 

Mass  of  fuel  transported  into 
the  hot  part  of  a tube  from  the 
cold  part  of  that  tube  in  a 
homogenization  step. 

123-134 

TIMl 

R 

12 

Cumulative  residence  time  of 
all  tubes  at  previous  compu- 
tation station. 

135 

TIM2 

R 

1 

Cumulative  residence  time  of  a 
tube  at  present  computation 
station. 

136-145 

OTHER 

10 

Unused  space. 

JETTWO 

(JETMIX) 

1 

TWO 

L 

1 

Coannular  jet  input  parameters. 

T = Coannular  jet. 

F = Single  jet. 

2 

DIAO 

R 

1 

Secondary  jet  diameter.  Inches 
or  width. 

3 

MJETO 

R 

1 

Secondary  jet  reference  Mach 
number. 

4 

TJETO 

R 

1 

Secondary  jet  reference  static 
temperature,  “R. 

5 

VJETO 

R 

1 

Secondary  jet  reference  velocity, 
fps. 

6 

PTJETO 

R 

1 

Secondary  jet  reference  stag- 
nation pressure,  psia. 

7 

TIJETO 

R 

1 

Secondary  jet  turbulence 

Intensity  (relative  to  VJET) . 

8 

NJO 

I 

1 

Index  of  secondary  nozzle  lip 
mesh  point. 
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Block 

Typical 

Name 

Variable 

(Link) 

Words 

Name 

Type 

Dim. 

Description 

JMIXIC 

2199 

Variables  stored  on  various 

(LMXF) 

output  files  but  not  used  in 
the  program  reading  the  file. 
Used  also  as  dummy  or  temporary 
storage  during  input/output 
operations. 

KEYS 

(GMOD, 

File  record  indices. 

JETMIX, 

1-10 

KEYA 

I 

10 

File  record  indices  for 

LMXF, 

identification. 

PREJET, 

SPALDG) 

11-20 

KEYB 

I 

10 

Not  used. 

21-30 

RODA 

I 

10 

Not  used. 

31-40 

RODB 

I 

10 

Not  used. 

KININS 

Data  storage  for  KINET. 

(LSCK) 

1 

XMWUN 

R 

1 

Unreacted  molecular  weight  of 
fuel-air  mixture,  Ibm/lb  mole. 

2 

XMWC 

R 

1 

Fully  recombined  molecular 
weight  of  combustion  products, 
Ibm/lb  mole. 

3 

TCONST 

L 

1 

Not  used.  Set  F. 

4 

GONER 

L 

1 

Not  used.  Set  T. 

5 

XNOI 

R 

1 

Initial  mole. 

KOUT 

Information  used  by  GGKP 

(EMIS) 

(see  Reference  3) . 

1-20 

TITLE 

H 

20 

Page  heading  text,  same  as  in 
OPGTRL 

21 

UNITI 

H 

1 

Input  units  ( = FPS) 

22 

UNITO 

H 

1 

Output  units  ( = FPS) 

23 

CONG 

L 

1 

Output  composition  will  be  con- 
verted to  mole  fractions 
( = .TRUE.) . 

24 

EXGHR 

L 

1 

Energy  exchange  rates  rather 
than  conversion  rates  will  be 
output  ( *=  .FALSE.). 

25-54 

DELH 

R 

30 

Heat  of  reaction. 

55 

FPS 

H 

1 

"FPS" 

56 

SI 

H 

1 

"SI" 

57 

DBUGO 

L 

1 

Print  intermediate  output 
( " .FALSE.,  change  via  Name- 

88 

list  PROB). 

Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

LLTERP 

(JETMIX) 

Transition  region  scale 
selection. 

1 

LTERP 

L 

1 

T = linear  variation  of  turbu- 
lence scale. 

F = Exponential  variation  of 
turbulence  scale. 

LTUS 

(LGCK) 

File  codes  used  in  NASA  GCKP 
program  (Reference  3) . Not 
used  in  PLUMOD. 

1 

LTHM 

I 

1 

File  containing  polynomial 
coefficients  for  species 
thermo  properties. 

2 

LDAT 

I 

1 

Scratch  file  for  storing 
input  data. 

MERGE! 

(JETMIX) 

Coannular  jet  - Merge 
information. 

1 

MER 

L 

1 

Merge  indicator  - Set  to  T 
on  merge.  Set  to  7 after 
processing  merge  station. 

2 

MERSTP 

L 

1 

Merge  indicator  - Set  to  T 
on  merge. 

3 

XMRG 

R 

1 

X location  of  jet  merge 

MISC 

(JETMIX) 

1-20 

PM 

R 

20 

Diagnostic  print  block. 

Diagnostic  print  indicators. 

MIXER 

(JETMIX) 

1 

MIX 

L 

1 

Confined  jet  - input  parameters. 

T = confined  mixing. 

F = free  mixing 

2-101 

RDD 

R 

100 

Outer  duct  radius  or  Y location, 
Inches. 

102-201 

XD 

R 

100 

X station  location,  inches. 

202 

CF 

R 

1 

Not  used. 

203 

YR 

R 

1 

RD  nondimensionaliced  by  DIAJ/2. 

MIXPRP 

(JETMIX) 

Confined  mixing  - inviscid 
stream  parameters  (not  used) . 

1-100 

MA2 

R ^ 

100 

Mach  number. 

101-200 

VE2 

R 

100 

Velocity,  fps. 

Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

Description 

MIXPRP  (cont'd.) 

201-300 

TE2 

R 

100 

Static  temperature,  ®R. 

MOLES 

(JETMIX) 

301-400 

TWO 

R 

100 

Wall  temperature,  “R. 

Species  mole  fraction  storage 
(working) . 

MOLUP 

(CPLINK) 

1- 

1200 

ALJ 

R 

100, 

12 

Species  mole  fractions 
i = 1,  2. 

Species  mole  fraction  storage 
(working)  TKE  working  storage. 

1- 

1200 

ALXU 

R 

100, 

12 

Species  mole  fractions  at 
upstream  station. 

1201- 

2400 

DALXU 

R 

100, 

12 

Normal  deviative  of  species 
mole  fractions. 

NOXTRA 

2401- 

2600 

DTKE 

R 

200 

Normal  deviative  of  turbulent 
kinetic  energy. 

Subroutine  N0X2B 

(LSCK) 

OPCTRL 

1 

DNOXDT 

R 

1 

Rate  of  NOX  production/consump- 
dNO 

tion  j 
at 

Output  control  Information. 

(PREJET, 

EMIS) 

1-20 

TITLE 

H 

20 

Six-character  Hollerith  words 
transmitted  to  page  headings. 

OPTS 

(LOCK) 

21-50 

PRINT 

R 

30 

Axial  stations  (feet)  at  which 
emissions  summation  and  print- 
out are  desired. 

GCKP  input  options  (Reference 

3).  See  NAMBLK. 

1 

VERS  I 

H 

1 

"TIME",  the  independent  variable 

2 

TIMEV 

H 

1 

"TIME" 

3 

VERSA 

H 

1 

"AREA",  the  assigned  variable. 

4 

AREAV 

H 

1 

"AREA" 

5 

ELIM 

L 

1 

Automatically  eliminate  from 
error  consideration  species 
with  nonrepresentative  errors. 

6 

TCON 

L 

1 

Hold  temperature  constant. 

7 

RHOCON 

L 

1 

Hold  density  constant. 

8 

IPRCOD 

I 

1 

90 

Input  type  Indicator  (not  used) . 

r 


Block 

Name 

(Link) 


Typical 

Variable 

Words  Name  Type  Dim.  Description 


OUTMIX 

(JETMIX) 

1 


NXORIG  I 1 


Output  common  block. 

Number  of  calculation  stations. 


PARAM 

Communication  common 

- Co- 

(JETMIX) 

efficient  of  different 

equations  (DFEQ) . 

1-200 

AL 

R 

200 

Coefficient  a. 

201-400 

BE 

R 

200 

Coefficient  $. 

401-600 

GM 

R 

200 

Coefficient  y. 

601-800 

EPS 

R 

200 

Coefficient  e. 

801- 

DL 

R 

200 

Coefficient  6. 

1000 

[U  ] 

1 @ 1 
i V 1 

1001- 

VAR 

R 

200 

Dependent  variable  | 

1 

1200 

'K 

1201- 

SMI 

R 

200 

Independent  variable 

at 

1400 

upstream  station. 

1401 

NMl 

I 

1 

Number  of  mesh  points  at 

up- 

stream  station. 

1402- 

SM 

R 

200 

Independent  variable 

w 

at 

1601 

downstream  (current) 

station. 

1602 

NM 

I 

1 

Number  of  mesh  points  at 

down- 

stream  station. 

1603 

DX 

R 

1 

Streamwlse  step  size 

(AX). 

1604 

B1 

1 

1605 

Cll  j 

R 

Boundary  condition  coefficients 
applied  at  mesh  point  1. 

1606 

D1  1 

1 , 

1607 

AN  ] 

1 

1608 

BN 

> R 

1 

Boundary  condition  coefficients 
applied  at  mesh  point  NM. 

1609 

CN  ] 

1 

PARAML 

(CPLINK) 


1-200  ETA 


Communication  common  - co- 
efficients of  difference 
equations  (DFEQ) 

R 200  Coefficient  n- 


3 
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T ' 


. MICROCOPY  RtSOLUIlON  ItSI  CHART 

NAIlllNAl  BURIW  01  SIANOAHl)?.  A 


Block 

Typical 

Name 

Variable 

(Link) 

Words 

Name 

Dim. 

Description 

PORIDE 

Input  storage  to  override  print 

(EMIS) 

stations  set  In  PRELIM  overlay. 

1-30 

PSTA 

R 

30 

Print  station  over-ride.  Values 
will  be  used  In  deference  to 
those  in  OPCTRL  (Jet  diameters). 

PQRE 

Internal  storage  for  GCKP 

(LGCK) 

1-28 

PK 

7 

28 

(reference  3) . 

29-56 

QK 

7 

28 

57-84 

RK 

7 

28 

85-112 

E 

7 

28 

PRIN 

Output  control  for  NASA  GCKP 

(LGCK) 

(reference  3) . 

1-50 

PRINT 

R 

50 

Values  of  Independent  variable 
at  which  output  Is  desired. 

51 

NPRNTS 

I 

1 

Number  of  values  of  PRINT. 

52 

END 

R 

1 

Last  value  of  Independent 
variable  at  which  output  Is 
desired. 

53 

EVSTEP 

L 

1 

Print  after  every  Integration 
step. 

PROF 

Profiles  across  jet. 

(JETMIX) 

1-200 

PS  I 

R 

200 

Stream  function  (<|i) . 

201-400 

Y 

R 

200 

Normal  coordinate  Y = 2Y/DJ. 

401-600 

UD 

R 

200 

Velocity  (U  •=  u/uj) . 

601-800 

THD 

R 

200 

Static  temperature  (0  = T/Tj). 

801- 

ED 

R 

200 

Turbulent  kinetic  energy 

1000 

(E  * e/ej) . 

PROPJ2 

Coannular  Jet  - properties. 

(JETMIX) 

1 

MACHO 

R 

1 

Reference  Mach  number  for  scale 
calculation. 

2 

REFLO 

R 

1 

Reference  scale  for  secondary 
Jet. 
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Block 

Name 

(Link)  Words 
PR0PJ2  (cont'd.) 


Typical 

Variable 

Name  Type  Dim. 


Description 


PROPJT 

(JETMIX) 


3 

YI 

R 

1 

Y coordinate  - edge  of  mixing 
zone  of  primary  jet. 

4 

YO 

R 

1 

Y coordinate  - edge  of  mixing 
zone  of  secondary  jet. 

5 

MERGE 

L 

1 

T = downstream  of  merge  point. 

Transport  and  thermodynamic 
properties. 

1 

P 

R 

1 

Static  pressure,  psla. 

2 

PRL 

R 

1 

Prandtl  number,  C p/K. 

P 

3 

PRT 

R 

1 

r 

Turbulent  Prandtl  number. 

S 

4 

RGAS 

R 

1 

Gas  constant  RG. 

5 

SC 

R 

1 

Sutherland  constant,  “R. 

6 

TREF 

R 

1 

Reference  temperature  for 
viscosity  calculation,  *R. 

7 

MUREF 

R 

1 

Viscosity  at  TREF,  Ibm/ft  sec. 

8 

MACH 

R 

1 

Reference  Mach  number. 

9 

XLC 

R 

1 

X location  of  disappearance 
of  jet  potential  core. 

10 

REFL 

R 

1 

Reference  scale  of  turbulence. 

11 

C 

R 

1 

Constant  for  turbulent  viscosity 
calculation. 

12 

CHI 

R 

1 

Constant  for  turbulent  viscosity 
calculation. 

13 

RNORM 

R 

1 

Normalizing  Reynold's  number  of 
turbulence 

14-213 

RHO 

R 

200 

Density,  Ibm/ft^. 

214- 

MUL 

R 

200 

Laminar  dynamic  viscosity  (p) 

413 

Ibm/ft  sec. 

414- 

KCP 

R 

200  • 

Ratio  of  thermal  conductivity 

613 

to  heat  capacity,  K/C^. 

614-813 

MUEFF 

R 

200 

Turbulent  + laminar  viscosity 

(m  + Pj.)  • 
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Block 

Typical 

Name 

Variable 

(Link) 

Words 

Name 

Type 

Dim. 

Description 

PROPJT 

(cont'd. ) 

814- 

XLN 

R 

200 

Turbulence  scale. 

1013 

1014- 

DK 

R 

200 

Dissipation  (turbulence) 

1213 

coefficient. 

1214- 

RETURB 

R 

200 

Reynold's  number  of  turbulence 

1413 

PVe  \ 

W 

PROPR 

Subroutine  KINET  - thermodynamic 

(LSCK) 

quantities  (equilibrium) 

(not  used) . 

1 

PR 

R 

1 

Pressure. 

2 

HHR 

R 

1 

Enthalpy. 

3 

TR 

R 

1 

Temperature. 

4 

FCR 

R 

1 

Fuel/air  ratio. 

5 

RHOR 

R 

1 

Density. 

6 

RR 

R 

1 

Gas  constant. 

7 

WMTR 

R 

1 

Molecular  weight. 

PSEQ 

SCKP  - data  storage.  Com- 

(LSCK) 

munication  comnon  between 
kinetics  routines. 

1 

POA 

R 

1 

Fuel/alr  ratio,  Ibm/lbm. 

2 

BETS 

R 

1 

Combustion  efflclenty,  (3) • 

3 

TP 

R 

1 

Reaction  temperature,  **R. 

4-19 

X 

R 

16 

Constituent  mole  fractions, 
mols  1/mole  mix. 

20 

DHQDMW 

R 

1 

Not  used. 

21 

TEQ 

R 

1 

Equilibrium  reaction  temper- 
ature, *R. 

22 

BEQ 

R 

1 

Equilibrium  combustion  efficiency 
(3  „). 

eq 

23 

XMMT 

R 

1 

Mixture  molecular  weight, 

Ibm/lb  mole. 

24 

HNEQ 

R 

1 

Not  used. 

Block 

Nane 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Din. 

Description 

PSEQX 

Fuel  and  air  communication  commoi 

(LSCK) 

1 

HQC 

R 

1 

Fuel  H/C  ratio. 

2 

HUM 

R 

1 

Air  humidity,  Ibm  H20/lbm  dry  ail 

3 

C02AIR 

R 

1 

Air  - CO2  concentration,  mol 
C02/mol  air. 

4 

MAIR 

R 

1 

Air  molecular  weight,  Ibm/ lb  mole 

5 

FS 

R 

1 

Stoichiometric  fuel/air  ratio, 
Ibm/ Ibm. 

6 

FUELMW 

R 

1 

Fuel  molecular  weight,  Ibm/lb  mol 
Igm  atom  of  C - basis. 

RATIO 

(JETMIX) 

REAC 

(LOCK) 

1 

AMBTO 

L 

1 

T « ambient  stagnation  temperatur( 
set . (JETMIX) 

Chemical  reaction  information 
used  by  GCKP  (Reference  3)  . 

1-120 

LSR 

I 

4,30 

Code  number  of  species  in- 
volved in  each  reaction  (see 
BLKRDA) . 

121-150 

XX 

? 

30 

Internal  GCKP  variable. 

151-180 

RATE 

7 

30 

H 

181-210 

LKEQ 

7 

30 

fl 

211-240 

DLKEQ 

? 

30 

fl 

241-270 

MM 

7 

30 

If 

RSAT 

(LOCK) 

271 

LR 

7 

1 

»l 

Reaction  rate  coefficients  and 
third-body  efficiencies  for 

GCKP  (Reference  2) . 

1-30 

A 

R 

30 

Coefficients  for  Arrhenius  ex- 

31-60 

N 

R 

30 

pressions  for  reaction  rates 

61-90 

EACT 

R 

30 

Rate  * AT^  exp  (-E/RT) . 

91-120 

B 

? 

30 

Internal  GCKP  variable. 

121-870 

M 

R 

25,30 

Third-body  efficiencies. 

871 

ALLMl 

L 

1 

All  third-body  efficiencies 
are  1.0. 

I 

L. 


Block 

Name 

(Link) 

RSTART 

(JETMIX) 


SCALED 

(JETMIX) 


Words 


1 

2 

3 

4 


1 


SCALER 

(JETMIX) 


1 

2 

3 


SETNEW 

(JETMIX) 


SING 

(JETMIX) 


1-43 


Typical 

Variable 


Name 

Type 

Dim. 

Description 

MIXPRE 

1 

Calculation  restart  parameters. 

Not  used. 

NREG 

I 

1 

1 » potential  core  region. 

2 * transition  region. 

3 ■ similar  region. 

NRES 

I 

1 

Restart  (X)  station. 

RESTRT 

L 

1 

T “ restart  case. 

Turbulence  scale  from  species 
diffusion  equation. 

SCLD 

L 

1 

T ~ use  mole  fraction  of 
ambient  species  for  determin- 
ation of  mixing  zone  width 
reference  dimension. 

F = use  velocity  profile. 

ALXLIM 

R 

1 

Limiting  value  for  detection  of 
Inner  edge  of  mixing  zone  In 
the  "potential  core  region". 

JETMIX  Input  scalers. 

SP 

R 

1 

Pressure. 

SV 

R 

1 

Velocity 

SLEN 

R 

1 

Length. 

JETMIX  Jet  edge  common. 

LKK 

I 

1 ■ 

Mesh  Index  - _<3  forces  addition 
of  mesh  point  at  jet  edge. 

LCOR 

I 

1 

Not  used. 

Dummy  JETMIX  Input  common. 

SSD 

R 

43 

Temporary  Input  storage  for 

single  cell  Input. 
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Block 

Nane 

jLlnk2_ 

SINT 

(LGCK) 


SNMW 

(EMIS) 


SPEC 

(LGCK) 


Words 

Typical 

Variable 

Name 

Type 

Dim. 

1 

HMIN 

R 

1 

2 

HINT 

R 

1 

3 

HN 

R 

1 

4 

HNPl 

R 

1 

5 

HMAX 

R 

1 

6 

NH 

I 

1 

7 

AVH 

R 

1 

8 

EMAX 

R 

1 

9 

ERRN 

R 

1 

10 

JCV 

? 

1 

11 

KOUNT 

1 

12 

ERRP 

•> 

« 

1-150 

ALSP 

H 

2,75 

151-225 

ALMW 

R 

75 

1-60 

SNAM 

H 

2,30 

61-85 

MW 

R 

25 

86-110 

W 

? 

25 

111-860 

STOIC 

R 

25,30 

861- 

1610 

OMEGA 

? 

25,30 

Description 

Integration  step  size  controls 
for  GCKP  CRef erence  3) , 

Minimum  step  size,  sec. 

Initial  step  size. 

Last  step  size. 

Next  step  size. 

Maximum  step  size. 

Number  of  steps  since  last  print. 

Average  step  size  since  last 
print. 

Maximum  tolerable  Integration 
error. 

Estimated  error  from  proposed 
next  step  size. 

GCKP  internal  variable. 

ti 

II 


Chemical  species  names  and 
molecular  weights  (see  BLCK) . 

Specie  names,  12  characters, 
left-justified. 

Specie  molecular  weights 
(M^  = 16). 

Miscellaneous  checmlcal  reaction 
info  used  by  GCKP  (Reference  2) . 

Names  of  chemical  species  copied 
from  block  SNMW  starting  at 
SNAM  (1,4).  See  also  NAMBLK. 

Specie  molecular  weights,  copied 
from  block  SNMW. 

Internal  GCKP  variable. 

Stoichiometric  coefficients 
for  reactions  (see  BLKST) . 

Internal  GCKP  variable. 
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Block 

Typical 

Name 

Variable 

(Link) 

Words 

Name 

Type 

Dim. 

Description 

STA2 

Confined  jet  - iterated  con- 

(JETMIX) 

ditions  at  downstream  station. 

1 

MACH2 

R 

1 

Mach  number. 

2 

TS2 

R 

1 

Static  temperature,  ®R. 

SS2 

R 

Sonic  velocity,  fps. 

3 

V2 

R 

1 

Velocity,  fps. 

4 

RH02 

R 

1 

Density,  Ibm/ft^. 

5 

DPDX2 

R 

1 

Pressure  gradient,  psl/ln 
(dP/dx) . 

STCTRL 

Cou'Tol  Information  for  mixing/ 

(EMIS) 

he  igenf^at'lon  and  kinetics 
computaf'ons. 

1 

LSTA 

I 

1 

Current  -lalculatlon  station 
Index. 

2 

FINAL 

L 

T “ calculation  has  reached  a 
^treamwlse  print  station. 

3 

CHEMK 

I 

1 

Chemical  kinetics  selection 
switch 

1 «=  GCKP 

2 * SCKP 

4 

FIRSTM 

L 

1 

Indicator  for  Initial  mixing 
step.  Set  T on  first  entry  to 
MXFLUT.  F thereafter. 

5 

FIRSTC 

Not  used. 

6 

SC 

Not  used. 

7 

DXC 

R 

1 

Mot  used. 

8 

NIST 

I 

1 

Number  of  Intermediate  mixing/ 
homogenization  steps  between 
print  locations. 

9 

POUTl 

R 

1 

Not  used. 

10 

ALFLIM 

R 

1 

Limiting  mixing  rate. 

11 

CHIXST 

R 

1 

Mixing  step  size  control  param- 
eter. o . > o,  . AX  “ CMIXST*i 

min  11m 

12-17 

DUKST 

R 

6 

Not  used. 
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SUPER 

(JETMIX) 


TAG 

(JETMIX) 


TCOF 

(PREJET, 

EMIS) 


THERM 

(JETMIX) 


THRST 

(JETMIX) 


1 

SUPC 

L 

1 

2 

SUPSTP 

L 

1 

3 

XSUP 

L 

1 

1-10 

NAME 

I 

10 

11-20 

TITLE 

R 

10 

21-30 

IDENT 

I 

10 

31-40 

ADORES 

R 

10 

41-50 

IDENTl 

I 

10 

1-350 

C,TC 

R 

7,2 

25 

351 

TLOW 

R 

1 

352 

TMID 

R 

1 

353 

THI 

R 

L 

1-200 

CMC 

R 

200 

201-400 

CP 

R 

200 

1-100 

WV 

R 

3 00 

Supersonic  jet  - Sonic  line  bloc 

T • no  supersonic  points 
Reset  to  F after  station 
processing. 

T • no  supersonic  points. 

X station  where  flow  is  fully 
subsonic. 

JETMIX  Identification  block 

User  name. 

Case  title. 

Case  identification. 

User  address. 

Extra  case  identification. 

Polynomial  coefficients  for 
species  thermo  properties 
(NASA  TH  D-4097) . 

Seven  coefficients  for  high  and 
low  temperature  ranges  for  each 
of  up  to  25  species. 

High  temperature  range  is  from 
TMID  to  THI  TK). 

Low  temperature  range  is  from 
TLOW  to  TMID  ('K). 

Thermodynamic  properties  (vs  Y) . 

Heat  capacity  ratio  y * 

Heat  capacity  at  constant 
pressure,  Btu/lbm  ®R. 

Integrated  momentum  (thrust) 
block. 

Integrated  momentum  (thrust)  at 
each  station,  ft  Ibm/sec^. 


I 
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Block 

Name 

(Link) 

Words 

Typical 

Variable 

Name 

Type 

Dim. 

TROUBL 

(MAIN) 

1 

ERR 

L 

1 

2 

ERRMAJ 

L 

1 

3 

INERR 

L 

1 

4 

PRERR 

L 

1 

UMESH 

(JETMIX) 

1 

MCHANG 

L 

1 

2 

CK 

R 

1 

3 

DYl 

R 

1 

4 

NMSH 

I 

1 

5 

CXPC 

R 

1 

6 

CXTP 

R 

1 

7 

NRED 

I 

1 

XISAVE 

(EMIS) 

1 

I 

I 

1 

2 

ISTAR 

I 

1 

XPRIN 

(JETMIX) 

YOFXI 

1 

DPRIN 

L 

1 

(JETMIX, 

LSCK) 

1 

IE 

I 

1 

Description 

PLUMOD  error  switches. 

T “ program  error  (normally 
fatal) . 

T “ fatal  program  error. 

T “ Input  error. 

T = previous  program  error 
(not  used) . 

Mesh  or  grid  common  block. 

T ■ do  not  redistribute  mesh 
when  the  potential  core 
disappears. 

Mesh  constant. 

AY  (1st  - 2nd  mesh  point)  at 
point  where  potential  core 
disappears. 

Number  of  mesh  points  In  the 
redistributed  grid. 

AX  step  size  (potential  core 
region) . 

AX  step  size  Ctransltlon  and 
similar  region) . 

Number  of  mesh  points  discarded 
when  maximum  points  (NM)  are 
reached . 

Indexing  Info  used  by  READT2. 

READT  profile  storage  Index. 

Number  of  last  set  of  profile 
data  read  from  JETMIX  file. 

Profile  print  switch. 

T *■  print  JETMIX  profiles  at 
every  step  (not  recommended) . 

YOFX  Interpolation  common 

Saves  Interpolation  Index  for 
use  on  the  next  entry. 


Table  2,  Key  to  Subscripts  for  Variables  in 


Common  Blocks/GASCMP/and/GASTMW/ . 


Example:  CONC  (I,  J,  K,  L) 


I Species  identification  in  order: 


1 

H 

0 

”2 

O2 

OH 

6 

H2O 

CO 

CO2 

N2 

A 

11 

NO 

N 

HO2 

NO2 

NH3 

16 

^lO^^lOn 

Portion  of  2-part  heterogeneous  gas 

2 = cold) 

(1  = 

hot, 

NEWNET 

tube  number 

(Last 

is  ambient 

air) 

Computation  station 

(1  = 

previous,  2 

= present) 
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To  conserve  computer  memory,  the  program  is  run  as  an  overlay  Job. 

The  link  structure  Is  depicted  in  Table  3.  Link  names  are  underlined.  The 
content  of  each  link  is  described  by  deck  labels,  corresponding  to  the 
sub-program  names  in  Sections  2.1  and  4.0.  System  library  subroutines  are 
not  shown.  The  vertical  heights  of  the  bo  es  in  Table  3 represent  words  of 
memory,  roughly  to  scale.  The  horizontal  axis  corresponds  to  different  times 
during  execution  of  the  program.  The  links  are  shown  in  the  order  that  they 
exist  on  the  loader  input  file  (Section  3 . 1),  not  necessarily  in  the  order 
in  which  they  are  executed. 

The  subprograms  in  each  link  are  listed  in  alphabetical  order  in  Table  3; 
however,  it  is  important  that  the  first  decks  in  links  JETMIX,  PREJET,  SPALDG, 
and  EMIS  be  MAINJ,  READIN,  SPALD,  and  MISKINO,  respectively. 
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HAIN8D 

HAIN8 


SECTION  3 


3. 1 Deck  Setup 


OPERATING  INSTRUCTIONS 


Due  to  the  large  number  of  subprograms,  PLUMOD  is  not  loaded  from 
program  decks,  but  rather  from  a loader  input  (R*)  file  created  by  the 
Object  Library  Editor  and  stored  on  magnetic  tape.  The  file  contains 
job  control  language  cards  and  relocatable  object  decks.  A list  of  the 
control  cards  is  given  on  the  following  pages.  The  $ OBJECT  and  $ iXCEND 
cards  mark  the  beginning  and  end  of  each  object  deck.  If  necessary,  the 
file  may  be  modified  by  use  of  the  Object  Library  Editor. 


tkOSO  01  _0*-S0»:S  ...12, 70* OBJEei_LXB(lARt.e01TO*  ACTtVlTY.MCDRT VERSION  700S20.  ..  __  RAGE 


■ I 


I 


use  MStiC/2/  .. 

use 

use  C<G«tx/2/ 

use  ci>e<cT/t2/ 


*»«#»  •!.  .e*-jo*r»  _ iz.Tcr  ..oeJEC7^ie»AiiT  eoiron  ac^ivitt  kc^ort virjidn  7*012#  ..  pace 

eOrtento  or  n?*  oajtcT  LtaotUT 


{ 


I 


r»  o o <3 

* » X , 

z c 

Z 01  ft  V i 

• U.  « z • . 


OCJ  1 «J 

ir  z I X 


ft  o ^ a ft  o 

o ft  d e e 

ui  €>  e M ^ 

OC  |i»  0^  MO 

ft  yj  uJ  ft*  lb  ^ 

0 2 7 ft*  ft  «« 

fti  « ft  VS  V>  lb 

ft  2 2 ^ ^ -I 

V»  ft  O'! 

#b  H »»* 

e « 9f  M 

Al  ft  •• 

ft  ft  bi  U% 

o e 7 H o 


o A 

O 

X o 


V « e ( 

X ft  ft «-  a 
«4  M ft  ft  ft 
X N,  X ft  ft 
> K ft  7 U 
ft^  «J  ^19  ft 

V}  ft  ft  ft  z 

» Z K I 
O W X ' 
u uu 


ft  z I ft 

^9t  X a 

3 7 ft  U 

U ft  ft  ft 


I O U A bl  { 

I 7 tai  7ft 

kin  ft  n ' 

' V • VO  I 


Ob>  I o 

7kl  7 S 
ft*>  I ft  3 
VO  I ft  • 


5- 

IM  vs  l‘  K 

or  a ft  a 
, ft  ft  fiC  o 

Oft  aft 

S’  3’ 

ft  00 

‘'I 

O U O li  t 
7ft  7^  a 
ft  n kin  u 
VC  V a s 

c 


2 : ^ !*= 

X J .ft 

ft  J ft  I 

ft  d « 

n ft  b*ft  oe 

ft  1: »«  0 

ft  7 • ft  ft  ft 

oc  X ft  a ft  M 

ft  ft  so  7 lb 

>7  S . ft  ft 

7 Si  • ’ 

” 3 ' ■ 

o u o tJ  o u 

7 kl  7 uJ  7ft 

ft  n ft  n ft  n 

VC  V tfl  VC 

OO  OC3  00 
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OKEND  LMTOOt? 

HBJfCI R.»7LU7JlUT«lU0UirNt-_ El».23*0*2575fRlNr0flO_ 

«r<llN7 

OXEN# ..  I».2ji|0k2575f-<INT()I2. 

00JEC7  F|7.kSe09017anxrLUT00 


The  job 

control  language  required  to 

tape 

is  given 

below: 

A 

$ 

SNUMB 

$ 

I DENT 

$ 

USERID 

$ 

EXECUTE 

$ 

LIMITS 

90,  41K,  -4K 

$ 

TAPE 

R*,  R * D,,  35726  ,,  R 

$ 

SYSOUT 

P* 

$ 

MASS 

H *,  H *R,  60R 

$ 

PRMFL 

SL,  R,  R,  AEG-LIB/SC-LB 

$ 

FILE 

01,  FIR,  lOL 

$ 

FILE 

02,  F2R,  lOL 

$ 

FILE 

03,  F3R,  lOL 

$ 

TAPE 

04,  T4D,,,,  CASE-DESCR 

$ 

TAPDATA 

04,  $R030 

$ 

FILE 

39,  F8R,  IL 

$ 

FILE 

40,  F9R,  IL 

$ 

INCODE 

IBMF 

(Input  data) 
$ ENDJOB 


The  user  must  supply  Information  on  the  $ lOENT  and  $ USERID  cards. 

The  R * tape  number  was  current  on  date  of  publication,  but  is  subject  to 
change.  Users  are  advised  to  check  with  the  authors  before  proceeding. 

The  permfile  AEG-LIB/SC-LB  is  the  AEG  Scientific  Library,  from  which  MLPKG 
is  drawn.  Files  01,  02,  03,  39  and  40  are  internal  scratch  files.  File  04, 
assigned  to  output  tape,  will  contain  calculated  data  from  tasks  PREJET, 
JETMIX,  GMOO,  and  SPALDG,  and  may  be  used  for  input  to  a subsequent  PLUMOO 
run  (as  file  07)  to  re-start  JETMIX  or  recompute  SPALDG  or  EMIS  with  new 
parameters. 


3.2  File  Storage  and  Input  Data  Format 


The  PLUMOD  system  consists  of  six  main  calculation  programs  which  are 
designated  as  follows: 


Program  Name 

Function 

PREJET 

Problem  input  and  initialization. 

JETMIX 

Free  mixing  calculation  for  the  plume. 

GMOD 

Modification  of  initial  "g"  profiles. 

SPALDG 

Spalding  "g"  function  calculation  for  the  plume 

EMIS 

Streamtube  mixing. 

Chemical  kinetics. 

Emission  output. 

CFILE 

Merge  or  decollate  output/input  data  stored  on 

binary  files. 

The  first  five  programs  are  normally  run  in  a sequential  fashion  with 
output  data  passed  to  succeeding  programs  via  binary  output  files.  The  program 
CFILE  is  used  to  merge  the  data  produced  by  PREJET,  JETMIX,  and  SPALDG  for 
storage  on  a single  file  (usually  magnetic  tape)  or  to  restore  the  merged 
data  on  the  original  files.  The  transfer  files  utilized  in  the  PLUMOD  system 
are: 


File  Code 


Data  Generated  by: 


Date  Used  by: 


1 

2 

3 

4 

7 


PREJET 

JETMIX,  GMOD,  EMIS 

JETMIX 

SPALDG,  EMIS 

SPALDG 

EMIS 

CFILE 

Output  file  with  merged 
data  from  files  1,  2,  3 

CFILE 

Input  file  with  merged 
data  for  restoration  of 

files  1,  2,  3 

As  Indicated  above,  the  programs  are  normally  run  in  a sequential 
fashion.  The  job  may  be  terminated,  however,  after  any  program  and  the  data 
saved  on  file  4 for  a subsequent  restart  by  running  program  CFILE.  Also, 
CFILE  may  be  initially  run  to  restore  data  for  either  a restart  (JE3MIX  only) 
or  a continuation  of  the  total  PLUMOD  job  from  the  beginning  of  any  program. 

Card  data  are  input  to  the  PLUMOD  system  on  file  code  I*  (5)  and  consist 
of  both  formatted  and  Namelist  data.  The  first  three  data  cards  are  used  for 
case  identification  and  are  read  with  a 1X,10A6  format  by  MAINP;  viz, 
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(Name  - up  to  60  alphanumeric  characters) 
(Address  - up  Co  60  alphanumeric  characters) 


(Ident . - up  to  60  alphanumeric  characters) 


The  problem  input  Co  the  system  follows  these  cards  and  consists  of  a program 
card  designating  the  program  name  and  the  existence  of  an  input  file  and/or 
an  output  file.  The  general  format  of  the  program  card  is  as  follows: 


(input  file  ?) 

(output  file?) 

V 

w 

w 

(Program  name) 

(1) 

(1) 

If/ 

\t) 

In  all  cases,  the  program  card  is  followed  by  one  (1)  or  more  Namelist  sets 
which  are  read  by  the  calculation  programs.  A typical  input  card  deck  to 
run  the  entire  PLUMOD  system  and  save  an  output  file  is  shown  below: 


PREJET 

$TSTDAT 

$A 

JETMIX 

$A 

GMOD 

$A 

SPALDG 

$CHANGE 

BMIS 

$A 

$INPUT 

$PR0B 

CFILE 

$A 


W 'W 

F T 

(Namelist  data  for  READIN)  $ 

(Namelist  data  for  JETPRF)  $ 

T T 

(Namelist  data  for  JETINP)  $ 

T T 

(Namelist  data  for  QIOD)  $ 

T T 

(Namelist  data  for  SPALD)  $ 

T F 

(Namelist  data  for  MXKINO)  $ 

(Namelist  data  for  MFMAIN)  $ 

(Namelist  data  for  KINPP,  if  GCKP  is  used)  $ 

T T 

(Namelist  data  for  CFILE)  $ 


Note  that  Che  card  input  to  CFILE  may  follow  any  of  the  individual  input  sets 
if  it  desired  to  only  run  a portion  of  the  problem  and  save  the  cumulative 
output  on  file  4.  Also,  if  the  problem  is  to  be  restarted  (JEIXIX)  or 
continued,  the  CFILE  input  must  precede  the  card  input  to  the  program(s) 
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to  be  executed.  Since  the  PLUMOD  system  normally  requires  a large  amount 
of  processing  time  and  utilizes  a large  amount  of  computer  resources,  no 
provision  exists  for  the  execution  of  multiple  cases. 


Detailed  descriptions  of  the  variables  In  the  various  Namelists  are 
given  In  the  table  below.  Here,  BITS  means  the  Honeywell  standard  noise 
word  (0377  777  777  777).  The  "initial  value"  is  the  value  assigned  to  the 
variable  by  the  program  prior  to  reading  the  Input.  The  "default  value"  Is 
the  value  given  the  variable  after  reading  Input  In  the  event  the  Initial 
value  Is  not  changed.  In  cases  where  Internal  Initialization  Is  not 
provided,  recommended  values  are  given  where  appropriate.  For  rules  con- 
cerning i .put  of  Namelist  data,  the  reader  Is  referred  to  the  Honeywell 
Fortran  IV  manual  (Reference  d) 
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NAMELIST  / TSTDAT  / Engine  test  data  read  by  READIN 


Variable 

Init. 

Default 

Name 

Type 

Dim. 

Value 

Value 

Description 

PO 

R 

1 

14.696 

- 

Ambient  air  static 
pressure,  psia. 

TO 

R 

1 

518.69 

- 

Ambient  air  static 
temperature,  ° R 

HUM 

R 

1 

.00531 

- 

Air  specific  humidity, 
lb  moisture/ lb  dry  air 

VO 

R 

1 

0.0 

- 

Flight  speed,  ft /sec 

RADJ 

R 

1 

1.0 

- 

Outer  radius  of 
exhaust  jet,  ft 

AMBT 

R 

5 

Equivalent  to  PO  thru 
RADJ 

T2 

R 

1 

518.69 

- 

Ram  air  total  temper- 
ature, * R 

AR5 

R 

1 

0.02 

- 

Turbine  exit  fuel- 
air  ratio,  lb  fuel/ 
lb  dry  air 

EIN02C 

R 

1 

20.0 

Main  combustor  HOX 

emission  index,  lb 
N02/Klb  fuel 

BETA 

R 

1 

0.0 

• 

Engine  bypass  ratio, 
lb  fan  air/lb  core 
air 

T25 

R 

1 

518.69 

- 

Fan  discharge  temper- 
ature, " R 

CYCLE 

R 

5 

Equivalent  to  T2  thru 
T25 

FUEL 

R 

3 

2.0 

- 

Hydrogen-carbon  atom 
ratio  in  fuel 

537.0 

*■ 

Fuel  temperature, 

“ R 

BITS 

Estimated 

Lower  heating  value 
of  fuel,  B 

NAMELIST  / TSTDAT  / {Continued) 


Variable 

Name 

Type 

Dim. 

Init. 

Value 

CAROL 

R 

4,  11 

BITS 

RADII 

R 

11 

BITS 

PT 

R 

11 

BITS 

PS 

R 

11 

BITS 

BLOC 

R 

11 

BITS 

EICOC 

R 

11 

BITS 

ALDAT 

R 

10,  11 

BITS 

TITLE 

H 

20 

Blank 

SF 

R 

1 

1.0 

PRINT 

R 

30 

BITS 

Default 

Value 

Description 

- 

CAROL  gas  analyses 
of  CO,  CO2,  Hydro- 
carbon, and  NOx 

- 

Radial  locations  of 
probe  measurements 

- 

Probe  impact  pressure 
measurements,  psia 

PO 

Static  pressure  at 
probe  locations,  psia 

BETA 

Local  bypass  ratio 
at  probe  locations 

0.0 

Main  combustor  CO 
Emission  Index,  lb 
CO/klb  fuel 

Alternate  vector  for 
CAROL  thru  EICOC  info. 
If  both  are  given, 
CAROL  etc  replace 
values  in  ALDAT. 
Example:  PT  (n) , if 
given,  replaces  ALDAT 
(6,  n).  ALDAT  (10, 
n)  not  used. 

- 

Output  page  heading 
information 

Scale  factor  for 

CAROL  data  (leave 

1.0  if  analysis  given 
in  mole  fractions, 
set  lE-6  if  in  parts 
per  million,  etc") 

0.1*RADJ 

10*RADJ 

BITS 

Axial  stations  (feet) 
at  which  output  is 
desired 
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NAMELIST  / A / JETMIX  parameters  and  controls  read  by  JETPRF 


Variable 

Init. 

Recomm. 

Name 

I2E£ 

R 

Dim. 

Value 

Value 

Description 

TIJET 

1 

- 

0.02 

Initial  jet  turbu- 
lence intensity 
(u-/.p) 

TIE 

R 

1 

“ 

0.0 

External  (ambient) 
turbulence  intensity 

RG 

R 

1 

- 

53.34 

Gas  constant  (ft 
Ibf/lbm  " R) 

PR 

R 

1 

- 

0.72 

Laminer  Prandtl 
number 

PRT 

R 

1 

- 

0.70 

Turbulent  Prandtl 
number 

SC 

R 

1 

- 

201.6 

Sutherland  constant, 
* R 

TREF 

R 

1 

_ 

0.0 

Reference  tempera- 

ture for  viscosity, 

* R 

MUREF 

R 

1 

- 

0.0 

Reference  viscosity, 
Ibm/ft  sec 

NM 

I 

1 

95 

Maximum  number  of 
JETMIX  streamlines 
before  mesh  redistri' 
but  ion  occurs 

CA 

R 

1 

- 

6.4303  ' 

^ For  jet  \ * 

CB 

R 

1 

8.929E-4  j 

dummy  I 

gases  f 

CC 

R 

1 

- 

5.989E-8  > 

( 

CAA 

R 

1 

- 

6.4303  ] 

^ For  ambient  V 

CBA 

R 

1 

- 

8.929E-4 

f air  1 

CCA 

R 

1 

• 

5.989E-8  ] 

1 / 

♦Coefficients  for  determination  of  specific  heat  as  a quadratic  function  of 

2 

local  static  temperature  (*  R),  cp  “ a + bT  * cT 


i 
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Recomm. 

Value  Description 


0.23  i 
0.38  f 


0.1875 


Constants  In  the 
empirical  equation 
for  turbulence 
length  scale  In  the 
potential  core 
region 


Constants  In  the 
empirical  equation 
for  turbulence 
length  scale  In  the 
transition  region 


Constant  In  the 
empirical  equation 
for  turbulence 
length  scale  In  the 
fully  developed 
region 


NAMELIST  / 

A / JETMIX  parameters  and  controls 

read  by  JETINP 

Variable 

Name 

Type 

Dim. 

Init. 

Value 

Recomm. 

Value 

Description 

DIAJ 

R 

1 

- 

* 

Diameter  (AXI=T)  or 

2*  half  height  of 
primary  jet,  in 

MJET 

R 

1 

BJTS 

* 

Primary  jet  Mach 
number 

TJET 

R 

1 

518.688 

* 

Primary  jet  static 
temperature,  “ R 

PTJET 

R 

1 

BITS 

* 

Primary  jet  stagnation 
pressure,  psia 

VJET 

R 

1 

- 

* 

Primary  jet  velocity, 
fpS  (Uj) 

TIJET 

R 

1 

0. 

* 

Primary  jet  turbulence 
intensity  (Referenced 
to  YJET) 

PE 

R 

1 

14.69594 

* 

Ambient  pressure,  psia 

VE 

R 

1 

- 

* 

External  stream 
velocity,  fps 

ME 

R 

1 

- 

* 

External  stream  Mach 
number 

TIE 

R 

1 

0. 

* 

External  stream  turbu- 
lence intensity 
(Referenced  to  VJET) 

TE 

R 

1 

518.688 

* 

Ambient  temperature, 

“ R 

AXI 

L 

1 

T 

- 

T s axis5mimetric,  F= 
plane  (2  - D) 

NJ 

I 

1 

• 

* 

Number  of  mesh  points 
in  primary  jet  initial 
profile 

NM 

I 

1 

95 

* 

Maxumum  number  of  mesh 
points 

GAM 

R 

1 

•• 

Not  used 
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NAMELIST  / A / (JETINP  - Continued) 


Variable 

Inlt. 

Recooin. 

Name 

Type 

Dim. 

Value 

Value 

Description 

RG 

R 

1 

53.34  (air) 

* 

Gas  constant,  ft  lb£/ 
Ibm  " R 

PR 

R 

1 

0.72  (air) 

* 

Prandtl  number 

PRT 

R 

1 

1.0 

* 

Turbulent  Prandtl 
number 

X 

R 

100 

• 

*★ 

Dimensionless  stream- 
wise  coordinate 
(free  mixing)  X ='J^/dj 

XPRN 

I 

100 

0 

2.0 

Profile  print  indicator 
^1  = Print,  0 = Do 
not  print 

SC 

R 

1 

BITS 

* 

Sutherland  constant 
for  viscosity  calcu- 
lation, ® R.  If  not 
input,  air  values  are 
used. 

TREF 

R 

1 

BITS 

* 

Reference  temperature 
for  viscosity  calcu- 
lation, “ R 

HUREF 

R 

1 

BITS 

* 

Reference  viscosity, 
Ibm/ ft  sec 

SP 

R 

1 

- 

- 

Not  used 

SV 

R 

1 

- 

- 

Not  used 

SLEN 

R 

1 

- 

- 

Not  used 

DPRIN 

L 

1 

F 

- 

T - print  profiles  at 
each  step 

PLOT 

L 

1 

- 

- 

Not  used 

NRED 

I 

1 

- 

- 

Not  used 

PM 

R 

10 

- 

- 

Not  used 

CXPC 

R 

1 

CM 

O 

a 

0. 15** 

Step  size  control  - 
potential  core  region. 
Fraction  X of  mixing 
zone  width 
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NAMELIST  / A / (JETINP  - Continued) 


Variable 

Name 

Type 

Dim. 

Init. 

Value 

CXTP 

R 

1 

.02 

MCHANG 

L 

1 

- 

I DENT 

H 

10 

Blank 

Y 

R 

200 

- 

UD 

THD 

R 

R 

200 

200 

ED 

R 

200 

- 

TID 

R 

200 

- 

CTl 

R 

1 

- 

CT2 

R 

1 

- 

CT3 

R 

1 

- 

CT4 

R 

1 

- 

CT5 

R 

1 

- 

CT6 

R 

1 

- 

CT7 

R 

1 

- 

CT8 

R 

1 

- 

CT9 

R 

1 

- 

CTM 

R 

1 

CM 

• 

Recomm. 

Value  Description 

.015  Step  size  control  - 

transit ion/similar 
region.  Fractional  7, 
of  jet  radius  or  half 
height. 

Not  used 

* Identification  block 

* Dlmen.^ionless  normal 
coordinate  Y * 

* Dimensionless  velocity 

UD  * u/uj 

* Dimensionless  temper- 

ature, THD  = T/Tj 

* Dimensionless  turbulence 

energy,  ED  = ® / e j 

* Turbulence  intensity 
(Reference  to  VJET) 

* Turbulence  intensity 


(See  input  to  JETPRF) 


* V 

Not  used 

- Coannular  mixing, 

turbulence  scale  pro- 
portionality constant 
for  merged  region 
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NAMELIST  / A / (JETINP  - Continued) 


Variable 

Name 

Type 

Dim. 

Intt. 

Value 

Recomm, 

Value 

Description 

CTS 

R 

1 

.23 

. 

Coannular  mixing, 

CTP 

R 

1 

.175 

turbulence  scale  pro- 
portionality constant 
for  secondary  jet 

Coannular  mixing. 

B 

R 

500 

turbulence  scale  pro- 
portionality constant 
for  primary  jet 

Not  used 

NB 

I 

1 

- 

- 

Not  used 

TAB 

R 

5 

- 

- 

Not  used 

D 

R 

800 

- 

“ 

Not  used 

ND 

I 

1 

- 

- 

Not  used 

TAD 

R 

4 

- 

- 

Not  used 

RESTRT 

R 

1 

BITS 

*★ 

X station  for  restart 

CK 

R 

1 

1.06064475 

1.0466475  1 

of  problem 

k Mesh  parameters  for 

DYl 

R 

1 

.001 

1 

.002  j 

[ transition,  similar  region 
1 DY1((CK)^‘^-1) 

NMSH 

I 

1 

71 

- 

(CK-1)  i-l,SMSH 

MIX 

L 

1 

F 

- 

Not  used 

MAXIT 

I 

1 

- 

- 

Not  used 

CF 

R 

1 

- 

- 

Not  used 

TOL 

R 

1 

- 

- 

Not  used 

SUPB 

L 

1 

- 

- 

Not  used 

RD 

R 

100 

- 

- 

Not  used 

XD 

R 

100 

- 

- 

Not  used 

YCB 

R 

100 

_ 

Not  used 
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NAMELIST  / A / (JETINP  - Continued) 


Variable 

Init. 

Recomm. 

Name 

Type 

Dim, 

Value 

Value 

Descr ipcion 

TWO 

L 

1 

F 

- 

Jet  configuration  - 
F - single  mixing  region 
T - coannular  mixing 
region 

DIAO 

R 

1 

• 

Diameter  (AXI  = T)  or 

2*  half  height  of 
secondary  jet,  in. 

MJETO 

R 

1 

BITS 

- 

Secondary  jet  Mach 
number 

TJETO 

R 

1 

518.688 

- 

Secondary  jet  static 
temperature,  * R 

VJETO 

R 

1 

- 

- 

Secondary  jet  velocity, 
fps 

PTJETO 

R 

1 

BITS 

- 

Secondary  jet  stagnation 
pressure,  psia 

TIJETO 

R 

1 

0. 

• 

Secondary  jet  turbulence 
intensity  (Relative  to 
VJET) 

NJO 

I 

1 

- 

- 

Mesh  index  of  outermost 
point  in  secondary  jet 

NC 

I 

1 

12 

* 

Number  of  active 
constituents 

CNAME 

H 

12 

12 

* 

Names  of  active 
constituents 

ALJ 

R 

12 

- 

* 

Primary  jet  stream 
species  mole  fractions 

ALJO 

R 

12 

- 

- 

Secondary  jet  stream 
species  mole  fractions 

ALE 

R 

12 

- 

* 

External  (boundary) 
species  mole  fractions 

SCM 

R 

12 

.7 

* 

Effective  Schmidt 
number  for  individual 
species 

NAMELIST  / A / (JETINP  - Continued) 


Variable 

Inlt. 

Recomm. 

Name 

Type 

Dim. 

Value 

Value 

Description 

TCPRF 

R 

- 

- 

- 

Not  used 

HCPRF 

R 

- 

- 

- 

Not  used 

CPC 

R 

(3,  12) 

* 

Coefficients  In  poly- 
nomlnal  representation 
of  species  molar  heat 
capacities 

ALX 

R 

(100,  12) 

- 

* 

Species  mole  fraction 
profiles 

DIPF 

L 

1 

T 

- 

Species  diffusion  - 
F - no,  T - yes 

CSC 

R 

1 

1000. 

- 

Scaling  constant  for 
file  storage 

NDIGIT 

I 

1 

- 

- 

Not  used 

LTERP 

L 

1 

T 

Transition  region 
scale  interpolation 

T - linear 

F - exponential 

CDIFF 

- 

1 

- 

- 

Not  used 

CHI 

R 

1 

.586 

* 

Diffusion  parameter 
(turbulence  energy 
equation) 

SCLD 

L 

1 

F 

T 

T - Use  ambient  gas 
mole  fraction  to 
determine  inner 
edge  of  mixing  zone 

F - Use  velocity  to 

determine  Inner  edge 
of  mixing  zone 

ALXLIM 

R 

1 

.0001 

Limiting  ambient  gas 
mole  fraction  used  to 
locate  inner  edge  of 
mixing  zone 
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NAMELIST  / A / (JETINP  - Continued) 


Variable 

Init. 

Name 

Type 

Dim. 

Value 

CJRMOD 

R 

1 

Recomn. 

Value  Description 

1.0  Fraction  of  jet  radius 
used  as  reference 
length  in  determining 
mixing  scale  within 
potential  core 


* Transmitted  from  JETPRF 
**  See  Section  3.4 
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NAMELIST  / A / Specif tcatloni  read  by  GMOD 


Variable 

Name 

Type 

Dim, 

Init. 

Value 

Default 

Value 

Description 

FDUM 

R 

20 

- 

- 

If  PDIW  (1)  / 0., 
modified  profile 
parameters  art  printed 

YAIR 

R 

1 

BITS 

0.0 

Mass  fraction  of 
ambient  air  regarded 
as  "hot"  gas 

YMIN 

R 

1 

0.30 

- 

Minimum  mass  fraction 
hot  gas  at  any  point 
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NAMELIST  / CHANGE  / Parameters  and  controls  read  by  SPALD 


Variable 

Name 

Type 

Dim. 

Init. 

Value 

ALFA 

R 

1 

- 

CGI 

R 

1 

- 

CG2 

R 

1 

- 

SIGMAG 

R 

1 

- 

THETA 

R 

1 

- 

DX 

R 

1 

1000. 

DXPRN 

R 

1 

- 

XSTOP 

R 

1 

1000. 

NSZl 

I 

1 

PRINT 

L 

1 

F 

Recomm. 


Value 

Description 

0.2  , 

1 Coefficients  in  Spald- 

2.7 1 

ing  heterogeneity  con- 
> servation  equation 

0.67  ^ 
0.7  1 

1 (Reference  1,  Section 

1 4.4) 

0.5 

Weighting  factor  for 

finite-difference 

solution 

0.01 

Initial  axial  step 
length,  jet  diameters 

1.0 

Not  used 

24.0 

Last  axial  station 
(x/dp  at  which 
heterogeneity  param- 
eter will  be  computed 

25 

Number  of  equally 
spaced  streamlines  at 
initial  axial  station 

- 

Diagnostic  profiles  of 
G are  printed 

NAMELIST  j k j Control  variables  read  by  MXKINO 


Variable 

Init. 

Recomm. 

Name 

Type 

Dim, 

Value 

Value 

Description 

PDUM 

R 

20 

0.0 

Diagnostic  printout 
controls  for  KINET, 
EQKIN,  MFMAIN,  READT 
MXFLUT,  SCKP,  HYCARB 
GCKP 

CHEMK 

I 

1 

1 

2 

1 means  use  GCKP;  2 
means  use  SCKP 

PSTA 

R 

30 

BITS 

Axial  stations  (Jet 
diameters)  at  which 
output  is  desired. 
Overrides  values  in 
$TSTDAT. 

NIST 

I 

1 

2 

- 

Not  used 

OOREQ 

L 

1 

• 

T 

Use  current  rate 
equation  for  CO  con- 
sumption reaction  in 
SCKP 
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Variable 

Name 

Dim. 

Init. 

Value 

Recomm. 

Value 

Description 

X 

R 

1 

0.0 

- 

Do  not  use 

XL 

R 

1 

1.2 

- 

Do  not  use 

NTUBES 

I 

1 

- 

- 

Do  not  use 

DX 

R 

1 

.05 

- 

Mixing  step  size,  jet 
diameters 

ALFLIM 

R 

1 

- 

- 

Inoperable 

CMIXST 

R 

1 

2.0 

- 

Factor  for  automatic 
increase  in  DX 

NIST 

I 

1 

10 

- 

Number  of  mixing  steps 
per  reaction  step 

NAMELIST  / PROS  / GCKP  Control  variables  used  by  KINPP  (Include  only  If 
MXKINO  $A  CHEMK  ~ 1) 


Variable 

Name 

Type 

Dlm« 

Init. 

Value 

Recomm. 

Value 

Description 

HMIN 

R 

1 

0.5E-7 

1.3E-8 

Minimum  Integration 

HMAX 

R 

1 

0.5E-4 

lE-4 

step  size,  sec. 

Maximum  step  size,  sec 

HINT 

R 

1 

0.0 

2.6E-8 

Initial  step  size,  sec 

EMAX 

R 

1 

0.0001 

0.01 

Maximum  projected 

ALWl 

L 

1 

F 

F 

relative  error,  used 
for  internal  step 
size  adjustment 

All  third-body 

ELIM 

L 

1 

F 

collision  effective- 
nesses are  1.0 

Not  used 

CONC 

L 

1 

T 

- 

M M 

EXCHR 

L 

1 

F 

- 

M M 

IPRCOD 

I 

1 

3 

- 

M M 

ITPSZ 

I 

1 

5 

- 

II  II 

XTB 

R 

40 

0.0 

- 

II  II 

ATB 

R 

40 

0.0 

- 

II  II 

NTB 

I 

1 

0 

- 

II  II 

CX3 

R 

1 

0.0 

- 

It  II 

CX2 

R 

1 

0.0 

- 

II  II 

CXI 

R 

1 

0.0 

- 

II  II 

CXO 

R 

1 

0.0 

- 

II  II 

LSUBM 

R 

1 

0.0 

II  II 

NAMELIST  / PRDB  / (Continued) 


Variable 

Name 


Init. 

Value 


Recomm. 

Value 


Description 


Not  used 


PRINT 


NPRNTS 


APRINT 


EVSTEP 


DBUGO 


COMB US 


SHOCK 


RHOCON 


BRIEF 


TIMLMT 


NAMELIST  / 

A / File 

manipulati 

on  input 

read  by  CPILE 

Variable 

Init. 

Default 

Name 

Type 

Dlm« 

Value 

Value 

Description 

MERGE 

L 

1 

F 

- 

T ••  Merge  files 
(store  on  file  code 

4) 

SPLIT 

L 

1 

F 

T * Restore  files 
(restore  files  stored 
on  file  code  7) 

NF 

I 

1 

0 

- 

File(s)  present 
indicator: 

-I  PREJET  data 
«2  PtIJET  & JETMIX 
data 

*3  PREJET,  JEIMIX, 
SPALDG  data 


Using  the  input  data  given  above,  PLUMOD  generated  the  computation 
reports  shown  below.  For  brevity,  JEllilIX  reports  at  the  first  and  last 
computation  stations  only  are  reproduced  here.  The  SPALDG  reports  at 
only  the  initial  stations  are  shown,  and  some  EMIS  reports  have  been  omitted. 
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3.4  Helpful  Hints 


At  values  of  x/dj  specified  by  variable  X in  Namelist  $A  for  JETINP, 
JETMIX  not  only  prints  its  mixing  profiles,  but  also  writes  profile  data 
on  a file  for  tranmission  to  links  SPALDG  and  EMIS.  Suggested  values  for 
X are:  0.0,  0.02,  0.05,  0.1,  0.2,  0.5,  1.0,  1.5,  2.0,  2.5,  3.0,  3.5,  4.0, 

4.5,  5.0,  5.5,  6.0,  6.5,  7.0,  7.5,  8.0,  9.0,  10.0,  11.0,  12.0,  13.0,  15.0, 
17.0,  19.0,  21.0,  23.0,  and  25.0.  Jet  diameter  (dj)  is  twice  the  value 
input  for  RADJ  or  AMBT(5)  in  Namelist  $TSTDAT.  Emissions  print  stations 
need  not  correspond  to  JETMIX  print  stations.  Emissions  reactions  should 
be  frozen  by  x/dj  = 25.0,  but  several  intermediate  stations  should  be  printed 
to  verify  this. 

The  recommended  value  for  CXPC  in  Namelist  $A  for  JETINP  is  0.15.  This 
value  is  chosen  as  a compromise  between  computational  accuracy  and  reasonable 
computer  time.  Occasionally,  a malfunction  may  result  in  JETMIX  due  to 
addition  of  excessively  large  streamtubes  at  the  outer  boundary,  prior  to 
reaching  the  end  of  the  potential  core.  If  this  occurs,  try  CXPC  = 0.015 
and  restart  JETMIX  from  the  last  print  station  having  reasonable  streamtube 
size  (AV^)  at  the  outer  boundary. 

To  restart  JETMIX,  delete  the  input  for  PREJET  (Namelist  $TSTDAT  and 
$A  for  JETPRF  and  the  preceding  formatted  cards),  and  set  the  variable  RESTRT 
in  $A  for  JETINP  equal  to  the  value  of  X at  which  restart  is  to  occur. 

The  PLUMOD  version  of  GCKP  has  more  ability  to  recover  from  computational 
malfunctions  than  the  standard  NASA  edition;  even  so,  problems  may  arise.  The 
initial  conditions  for  each  kinetics  calculation  are  recorded  on  scratch  file 
40,  and  should  be  dumped  automatically  in  the  event  of  a failure  in  GCKP. 

These  data  are  sufficient  to  permit  running  the  troublesome  calculation  on  a 
stand-along  version  of  GCKP,  if  available.  It  is  usually  possible  to  circum- 
vent the  problem  by  adjustment  of  the  step  size  controls  in  Namelist  $PR0B. 
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SECTION  4.0 


SOURCE  LISTINGS 


Listings  of  the  FORTRAN  source  decks  of  the  various  subprograms  follow^ 
In  alphabetical  order  by  deck  label.  To  find  a deck  containing  a given 
entry  name  (SYMDEF),  the  user  may  refer  to  Table  1.  The  locations  of  the 
various  decks  in  the  program  overlay  structure  is  given  in  Sections  2.1  and 
2.3  above. 
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p 


•3 


CAOJJIC  OF  RAW  FUEL//  ADJUST  CZhO  THFWMO  COFF  

suRRnuTiwE  aoJmc"  ' . 

COM*<p>4  /^HT)k^k/  W,HF.wAR.  T?.RFTA,T?s7FARS#FTW0?C.Pn. 

* RC3( ll),RCO?n l)#WHCfll),RWOXtll), 

t PT(ti)«ps(i  i)»BLOc(ti)«nconi) 

REAL  N 

rOMHn^i  /TCnF  _/_TC(  7«?.2S)»Tnw»TMT!^'THl • 

COMHOW  /SNmW  / Aisp(?,75)f  AlmW(75) 


C calculate  MW  OF  FUEL 

c 

ALMW7l6)«  t0.*<i?.6ui.0O6*N) 

c 

C ADJUST  C2HR  THERMO  COEFFICIENT 

C 

? HV  ■ nH<*6aA.0'UT7977.7oN)/<11.91<>&ft«-N) 

ADD  z (Hv-?0?7S.»t5S. )*?R.05a/t .RBsRfc 

TC(6,I*I6)*'  TC(6»  1»  lar+AOb' 

TC(6»2«I<»)«  TC(6»2«1&T»A00 

C 

3 RETURN : 

END 


■_  _ ADJMCOOl 

AOjMCboZ 

APJMCQ03 

A0JMC004 

ADJMCOJJS 

ADJMC006 

ADJMCOftJ 

ADJmCOOS 
AD.rMCOOR 

ADJMCoIO 

ADJMCOJl 

ADJMC012 

A0JMC013 

ADJMC014 

ADJMC015 

ADJ.mCOIS 

ADJhCoIL- 

ADJMC018 

ADJMCOI? 

ADJMC020 

ADjjatoaj 

ADJMC022 


* ALFA(.t*l  ,.t)gfWTHAT(J)"WT(J)-(WT( J-11.»WrMUWT(J))»*LFAf  J-1  . Ji) 
>(WT(j*l)-HFPl*WT(J)) 

ATFHP=l.O-ALFA(J,J-t) 

ALFAf  J+l  , j'isAMTNl  (AlFa(J*1»J),  1.0,aTfMP/RFP1> 

IF  (ALFAf  J^l  , J)  .LT.0.0)_ALFA(  J*ltji=4),0L_^ 

ALF  A(  J.J+naAMlMl  (ATCmP,RFPi*»LFA(  J*j  ,’J)) 

10  ALFAf  J,  j)«aMAX1  (0.0,  ATEhP“ALFA(  J#.t»l\> 

TUBE  N j 


. 1 5_A  L fM.i^jaV.Q.ALFA  (N»M1  i 

AIR  Extra ixhEnt 

ALFA(M,N^=1.0 

final C K for  OUT-oF-BDUNDS  ALFAta 

ALFJ^lNr^JI, 

AlFHAXs  1, 

00  17  lar 


ALFA2051 _ 
ALFA2052 
ALFA20S3 
ALFA?.0S<I 
ALFA2055_ 
ALFA205b 
_alFJ12Q57_ 

ALFA2058 


ALFA2060 

.ALFA2061 

ALFA2062 

.ALFA2Q65_ 

ALFA206a 

-AL£A2a65 

ALFA2066 

-ALFA20&I 

ALFA2068 

ALFA2069_ 

AlFa2070 


lo  Z S>  II  z 


II  .i;Q.  0)  GO  TO  7 

Jsl.I1 

T .EQ.  >jEGL(J))  Sn  TO  B 
iMUE  , 

F f ( 1)  .LC.  CUTOrF)  CO  TO  B 

♦ 1 

Tl  » I? • 

(K)  a T 

TMUE 

11  * T2 


RN 


AUTOOOSl 

AUTOOOSa 

AUT0005? 

AUT0005« 

AUTOOo55_  _ 

AUTDOOS6 

AUTonosr 

AUTOfloSS 

jiunjnosR 

AUTaribfcO 

AUTOOofcl 

AUTOnofca 

AUJ0()06J_ 


CBLCK »BLCl<» block  DATA  ( SP/KW  ) BLCKOOfil 


c 

BLOCK  0*T* 

BLCK0002 

BLCK0003 

c 

BLCK0004 

* 

3PECTES 

names  ANO  molecular  NflCHTS 

BLCKOOOS 

c 

BLCK0006 

COMHOM  / 

3MMW  / 

ALSP(2,75),  ALMM(7S) 

BLCK0007 

c 

* 

BLCK0008 

DATA 

A|  8P/ 

8LCK0009 

1 fcMH 

, 6H 

,fcH3 

,6H 

*6MM2 

,6H 

• 

BLCKOOlO 

2 fcM02 

« fcH 

,fcH3H 

,6H 

j6HH20 

,6H 

9 

BLCkOOI 1 

3 6MCn 

, fcM 

,<>HC02 

,6H 

4<>Hn2 

,6H 

4 

BLCK0012 

a 6HAR 

,AH 

,6HnQ 

# 6 H 

,6H 

9 

BLCK0013 

- 

5 fcHHn2 

,6H 

,8Hn02 

,6H 

;6HnH3 

,6H 

9 

BLCK0014 

6 fcMFtlEL 

$ 6H 

. » 

BLCKOOlS 

7 118*0./ 

BLC<0016 

c 

BLCK0017 

DATA 

A|  MW/ 

BLCkOOIB 

• i,oon« 

U.OOO, 

2»0l6, 

32.000, 

17.008,  18. 

016, 

BLCK0019 

'Hph.oio* 

04,010, 

28.016, 

39.944, 

30»00®,  14, 

008, 

BLCK0020 

« 33.008, 

0f>.008, 

17.032, 

a S9*o,/ 

RLCK0022 

c_ 

• ; 

BLCK0025 

ENO  BLCK0024 


<J  « tCJ 


CBJ.KRDA 

■^c 


•0I.KRDA- 


BLOCK  DATA 


t BEACTtnx  Data  S 


BLOCK  data 


reaction  D a Ta  ( LSR  ■ a ■ N - EACT  • H • NESi  T 

COMMON  / LSLR3V  / L3»  LR 


COMMON  / WfAC  / LSR(a.30).  OUMREAflS?) 


bl*<roaoi„ 

SLKROA02 

j’jjijin.AjjjL 

BLKROAOa 

PLKROAOS_ 

HLKR0A03 

DLKRPAOT- 

BLKROA08 
RLKROAflR ■ 


COMMON  / RRAT  / N(SOi,  EACTr3ft)»  RPUM(30),  M(?5,30),  OUM4L 

REAL m;  N ^ 


common  / Skip  / NEGL(?5).  II,  12,  tT 


blkrpaio 

HLKROAI I 
BLKROA12 
RLKRPAl 5. 
BLKROAia 
RLKRPAlS 


DATA 


_ L3flR/l<>»23/ 


DATA 


RLKRnAlfr 

RLKBOAli- 

PLKRDAlS 


c 

DATA 

(NEDLf  I) 

• rsi.n/ 

BLKROA20 

* 1 1 

2,  10,  12 

, 13,  15, 

tb/ 

RLKR0A22 

c . 

BLKR0A2i 

DATA 

L8R(l,Ji, 

Isl,4),Jsl,19>/ 

HLKRDAEa 

1 .Jt 

._S,- 

8, 

t. 

6LKR0A2S 

? 7, 

4, 

8, 

2, 

RLKR0A2b 

3 1. 

S, 

b. 

0. 

PI  IODA27 

a 0, 

3, 

t. 

1, 

BLKR0A25 

5 1* 

5. 

0. 

Rl.KROApR 

b 2f 

2, 

0, 

0, 

BLKRDA30 

t 1^1- 

T. 

b. 

1 r 

n|  ifPOAXi 

8 1, 

4, 

5, 

2, 

BLKR0A32 

9 2. 

T, 

5, 

t , . 

Rf  ifonAXi 

J 6^ 

2, 

5, 

5, 

BLKRDA34 

K ix- 

4. 

5, 

•!, 

RLKRDA  35 

L t2» 

11  , 

9, 

2, 

RLKRnA3b 

M 12 «- 

11, 

2, 

Bl KRDA37  . 

N 12, 

5, 

It, 

1, 

PLKR0A38 

Q.  1. 

a. 

13* 

0, 

P|  If orti xt 

P 1, 

13, 

5, 

5, 

RLKRDA40 

Q S. 

13t_ 

6._ 

n ^ 

GLKR0A41  - . 

R 2, 

13, 

5, 

4, 

BLKRDA42 

3 _1, 

..  13* 

_ 3,.  . 

41  / 

BI.KR0A43. 

c 

PLKRr)A44 

DATA 

f f 

I sRa*j3* 

Isl*41..ts20.23w 

ni  ifonAos 

T It, 

13, 

10, 

5, 

BUKRnA46 

U 14, 

l*_ 

11. 

5,  ..  . 

RUKRDA47  

V 14, 

2, 

11, 

fl. 

RLKRPA48 

N 11, 

2, 

14,  . 

0/  . 

BLKR0A49  

rlmroaso 


*/ _ __  

• UI?660a2F«3«  2.S000ottl2,  t.OOOOOE4l9,  1 . I 20000E# I 3> 

• 5.‘3noo n F»is,  8.1S000 f tia,  2.*3<>ooof»i3#  2.i*aftOOE»iat 

• a^oooo'oF^t  3»  s.aoonOE^n,  «.oooooE»ia»  3,lononF*l3> 

*_6.«0000E»o'>,_0.00000E».13»  1 . OOOOOE*!  5»_7,  ftOOOOE^I  3» . 

• fc.‘OOOOOE»l  2,  h.OOOOOF*!?#  2,'30000F>T5,  1 ,OOOOOE»13,' 

• 7.2oooof»>«,  i.90oooe»i3,  9»qoooog»i<» 

• 7*or/ 


0*T* 

• 0..  -i.’ooQO,  o.*5000»  oTt  -t;2goo.' 

• b*Or»  I .0#  l'7*0./ 

“ OAT*  ^EaCT/ 

• -2S7ar7<|g9.  uAOftO.’nO.  0.\  92fc00.‘00,  -27B0*0<>.  oJ. 

• S200.00.  16S00.00,  10200.00*  IROnO.OO*  tiSOOO.AO*  330.00* 

--•_‘'J*5q,P^0*_0_;j -1300.00,  S*0.\  1930.00*  lOfcO.OO*  ^1930, 00, 

• 7*0. ✓ 


OAT* 

J AjiUt, 

* 1 ^ * 1 ^ 

• 1.*  1. 

5 t.07,_ 

I * 

• ij 

^ i*'  u 

• I.*  I. 


• 1.*  I. 

1, 

* 1 %*  1 % 
9 I, 

• I.*  1. 

_P-*4* 

I I .* I .* 

• i;*  1.’ 
I i.*i** 
1 1.'*!.* 
1 1,*1.* 


* I ^*  I ^ * t 


\(  ( ‘^n*  J)*  t>l,  |6)*Ja|,9)/ 

XJ.  U»-- — 

1^*  1^*  1^*  1^,  1^* 

1 1 ,1  %!.  

1.*  1^*  !•*  1**,l4* 

• ® J ,5,  _0 » ^5  ®j 

0*^0. 5^  !•*  J«*  t«»  !•* 


1 1*  1 ^*  1 

)•*  t^*  1^* 
1 4/  -A4» 

!•*  1^*  1^* 


*%»  *'«» 

1 4/ — 3-41  ^ 

1.*  1.*  1.* 

.*l**t^*t>*l< 

,1.«  u*  1.* 

.* I **  t .*  I .*  I . 


!•*  1%*  1%^ 
14*— 

1»*  S4*  14, 

I • ^4*_1  4*. 

!•*  I,*  \ 

' , 

1 •*  — 1«*  _ - 

* 1 • * 


4*l,*l.*lc 

.*l.**1**1' 


1 

1.*|,**t4*t 

3 

1.*  1. 
• 

* ,1  .»  i i,* 

1 

1,*1.*, 

l.*l**l,*l 

0 

1.*  I4 

* 1 ,(  1 • * 

1 

1.*  1. 

* !».0,  2.0 

■*  4 * 

^t..  1.,  1«,  . 

p * 1 • * . 

!•*  1^*  1*^ 

.0,  32. S,  2,0,  7>, 


_BLKR0*S1_ 

flLKRO*52 

HLKB0AS3 

BLKROASO 

BLtfROASS 

BLKRDASb 

BLKROA57 

blkroass 

BLKRDA59 


BLKROA60 

PLKBOAfcl 

BLKR0A62 

BLKROAfcS 

BLKROAbO 

PLKR0A6S 

DLKRDA66 

BLKBflAfcT 

BLKROAbS 

_BL'(B0*69 

BLKRDA70 

BLKROATl 

BLKR0A72 

ni.KRO*73 

BLKROA70 

OLKROA75. 

BLKR0A76 

BJ.KR|L*77_ 

BLKR0A78 

Bl.tfRr>*79_ 

BLk^OaPO 

blkrdabi^ 

RLKR0*B2~ 



HLKR0AB4 

BLKRDAOS 

HUKRDABb 

HLKR0AB7 

0LKROAB9 

hlkroaqo 

«L'<R0*91 
BLKRDA92 
PI.KB0A93 
BUKROAOU 
. BL9R''*9j_ 

MLKSOARb 
PLKR'^*97 
BC^ROARO 
BLKRr)A<J9 
HLKRPAOO 
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r 


CBLKST  STOICHlOMfTRlt  COPfFICIENTS 

BLKSTOOl 

C 

BLOCK  DATA 

BLKST002 

BLKSTOflS 

C* 

c 

STOICHIOHFTRIC  CORFFIClENTS  FOR  REACTTONS 

BLKSTOOa 

BLKST005 

c 

COMMON  / SPEC  / DUMi(ilo),  8T0IC(2S»X0>.  OUMP(750) 

BLKSTOOfc 

BLKSTOOr 

DATA  ( ( STHTCtl# J), T«l, 16># 

1 1,#  0^#  0,»  •W#  0.* 

BLKST008 

BlkSTOOR 

% 

? 0,#  !•#  0^#  *** 

BLKSTOiO 

BLKSTOll 

^0.*  Qa*  fi«*  o,*  o*#  9«*  • 

BLKSTOiZ 

0LKSTO13 

^0**  Qaf^Qa* 

2^#  Ojj*  •la#  0*#  0^#  0.#  O.f^Oa# 

BLKSTOia 

BLKST015 

Q**  • 

5 •t##  •la#^0a#..0«#  l#^  0a/..0a#,  .. 

BLKSTOlb 

blkstoit 

*0a#  ^a*  P#*  P**,^**.P#(  P** 

60a|  •^a#  }!•#  l*#_0a*y®a»  Oa»,0i# 

BLkSTOIS 

BLKST019 

AOa#  ^ft#  Oaf  ^a*  ^ 

7 1«#  0^#*la*  0*#  •l#^  la#  Oa^.O*# 

BLKST020 

BLKSTOPl 

•0,,  0,,  0,,  q,»  q^»  q,, 

" "Ifa  !•#  (J##,^la#,  la^..  Oa^  .,0  « ^ 0 « a 

BLKST022 

BLKST025 

•o,»  o,»  q,*  q,t  q,»  q^»  q,»  q,»  ^ 

9 5I  • * ,0  • » .,  1 • • ,0a«^0>«^0a( 

blksto?« 

RLKST025 

c 

^ Oa^  0 0 Oa#  Oa#  0##  P a ^ 0 a ^ 

BLKST028 

BLKSTOZr  . 

DATA  .(.C  ST0TC(I.J),^*l,lb)»J*^0.'la)/ 

BLKST028 

BLK3T029 

1 2m^  0a^,0.^  0.» 

BLKST030 

RLKST031 

10,#  0,^  ^*<1 

PLKST032 

RLKST033 

2 i,«  o,»  •!,#  q.,  o,..q,'»  o,» 

1 Oa#  la#  0^#  via#  0.#  0.0  0.#  Oa# 

BLKST03R 

BLKST035 

3 0^»  0^»  1^»  »\t 1 O^f  O^R  O^i  0»< 

1 0,1  0^»  O.n,  _"t,»  O.t  0^»,  o«» 

BLKST038 

BLKST037 

0 0a#  ^0a#  l,#  *1##^ 

1 •taa  P“*  "laaiO^a^ftaa  Oa#^Oa# 

BLKST038 

BLKST039 

5 0a#.,0a#,,  Of#  Oa#^  la#  0a#  ,0a^,0a# 

1 pa*  (J»*  P-*  0*# 

BLKSToaO 

BLKSTOOl 

6 o,»  o^»  o^»  o^»  o,n  q,f  Oc< 

BLKST0a2 

BLKST005 

r oj.  o^.o^  o:.  -i:.  oj;  qj.  0.. 

1 0^*  '’\**  q**  \,**  ^1*  9mt 

BLKSTOOO 

BLKSTOOS 

c . 

0 Oa#  Oa#  Oa#  0*#  ^la#  0,#  0,#  0^/ 

BLKST008 

RLKSTOOT 

DATA.  .(  ( ST0IC(T»J),  t«t»,lfci»  J«i9723)/ 

1 •!•*  0«»  0«»  0,^  Omt.Oit 

9 0.,  0.»  0:»  0:»  -l.»  0.,  0.',  0,, 

BLKSTOOe 

BLKSTOO’ 

BLKSTOSO 
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CBLKTH 


<»aLKTH« 


block  oat*  ( thfrmq  ^ 


BLOCK  D*T* 


BLKTM00l_ 

'BLKTH002 

BLKTM003 


THERM 00 yNAHlCDATA 


C 

e 


COMMOM  / TCOF  / TC(7,?,?S),  tLOk,  T^tO#  tHI 
common  /cOmO  / OUHcUiSU  LB  » OUMCyfgS 


BLKTMOOQ 

.BLKTH0W_ 

BLKTH006 

BLKTHOOT^ 

BLKtHOOB 

BLKTH009_ 


OAT* 


LS/16/ 


BLKTHOIO 


e 

data  TlOW*  THID*  TMI/300. 0*1000. 0*5000.0/ 

BLKTH012 

BLKTH013 

e 

RLKTH014 

0*T*  ( ( ( TC(K*KK*n*Ksl*7)*KK*t,2).lal.3)/ 

BLKTH015 

0.25000000E  01*  0.  * 0.  ^ 

0.  * 0.  ; 0^259B1225F  05. 

BLKTH016 

blkthoi? 

-0,46011763E  00.  0.2S000000E  01*  0«  k 

0*  *0,  *0.  . 

BLKTHOlB 

0LKTH019 

0.2S9B122SF  OS.  -0.460117626  00* 

0.25420546F  01*  -0.27550619E-04.  -o:31O2B035E-0B: 

BLKTH020 

BLKTH021  . 

0,OS510674f -1 1*  -0.43680515E-15,  0.297532416  05i 

0.492030nOE  01*  0,294642676  01.  -0. 165Bi  665E-02'.  . 

BLKTH022 

BLKTM02J. 

O,24?l03l6f-O5*  -0.16028432E-OB*  o. 309069646-12*’ 
0.246700036  05*  0.296349496  01. 

HLKTH024 

BLKTM025 

0.310019O1F  01*  0. SI  1 194646-03*  O,5264O210E-07t 

-0.34909975F-10.  0.5694S345F-14.  ft.l«l6l509F  03. 

HLKTH026 

BLKTH027 

-0,19629421E  01*  0.10574451E  01,  0.26r65200E-02j 

-0,S809916?F-05»  0.SS210391F-0B.  -o . 1 01 22739F-H  . 

BLKTH028 

BLKTM029 

0,302907646  02*  -0,229970566  01/ 

BLKTHOIO 

c 

. BLKTH031. 

data  ( ( ( TC(K*KK.n,Ksl.7).KKai*2i*la4*6)/ 

• 0.3b219S35E  01* 0 . 7 3h  1 62b4F-03.  -o  . 1 9AS222flLF-06.' 

BLKTM032 

Bl  icTHfi33 

* 

* 

0,3620l5sflt-10,  -0.209456276-14,  -0,157105706  03." 
0,361SO460t  01*  0.362559B5E_01.  -fl .la7021B4E*02,»_ 

BLKrH034 

BLKTH03S.  . 

* 

• 

0.705S4S44F-05*  -0.676551376-08,  0.215559936-11^ 

-0,2645797JLj01._fl, 430527706  01. 

8LKTH036 
BLKTM037 

0.?9l3l2inr  01*  0.<>5«lB2fl«E-03,  -n.'l90B0525C-06, 

Jl.. l.?7. J Q 7.9 5 tiULi 0^9 60.1? .fl.BA? 6J 92 1 F Qa,. 


O.Sa?SB7^5t  01* 

• 0.9<IB<(<>757t»0Oi. 

0.470UlhBF  04* 
0.27167A3U:  01. 


0.3B3fc5SiBE  01*  -0.1070201 4F-02,. 
.0.2064357SE-09*  _-o,233Bq?6SE-l2* 
0.a9n0S4SfcE  00* 

0.294S1374E-02*  -o.B0224374E-06'^ 


0,lO?2fc6«^^-09,  -0.«e4721«SE-14,  -o,2B30419?C  05* 


O.OlsailnOF-OS*  -0.?9h37fl04E-0e* 
-0.?H73B0a6E  OS.  90.322700466  00/ 


0,807021036-12, 


_DATA  ( ( ( TC(K.KK*I)*Kal.7}*KK«l*2).lB7.9)/ 

* 0.29B406O6F  01*  0 . 1 4e»9  1 390F-02,  -0.5;8996B4F-06*' 


BLKTMO  18 
_BLielH03?. 
PLKTH040 
HLKTH041 
PLKTM042 
BLKTH043. 
PLKTH044 
-BLKIMOaS. 
HLKTHOOb 
BLKTH0U7 
BLKTMOflB 
HLKTH049 
BLKTH050 
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0,1 036aS77F.09,_-0,691S3SSOF-lfl,_ 
0.h3u791S6F  01,  0.17l009?®f  01, 

o.3h9?35qar-os.  -0 .?n3l9t>7aE-o«. 

• 0.1  370^9781-  OS,  0.?95S53S1F  01, 
.o.uohOBooit;  01,  _0.3O9Si7i9E-o;>,. 
0.??7a|  3?5r-09,  -0.lSS?5'»SUF-13. 
•0,9«83s9«2F*00,  0,?'*0O7797F>0t, 

■0.h8o7oB70E-05,  0.?00?1«81E-0«, 

■0.07P0S  7_5af_j)5j ()^3JiL9Sia32E_o.lj_ 

0,?H9hilQ<JF  01,  O.iSl5O«8hE-02, 

0.99B07393F-1 0,  »0 .8S223S5SF-1U, 
O.hlbtSlaSf  01,  0.387a«281F  01, 

0,?5?2)010^F.-0  5,  -0,63?1  7SS9E-09, 
•0,17792603F  Oa.  0.23S«0U?aF  01/ 


OAT*  ( ( ( 

0,25000000F1 

0, 

0,u3h80006F 

0. 

O.aS  77>.3^7F« 
0, 3lR9o6olF 
0,9S91 q332F* 
0,67a5Pl26E 
O , 79*191907* 
0,  I 0789>>l  5E 
0“ 


0,1  R79>,S2aC* 
OjOtt'lS  75«1F_ 
0.S«?0S2*7f • 
0,Sh6205«7F_ 

0*1* ( .C  J 

0.37*6h2*oF 
0,l7l  839/i8F- 
0. US  1 9761  IF 
0,SS78U259t. 

0,?91«boHe 

0jiiL‘’^.'">171F_ 

0,  1 9S7'9?39i. 

0,1  3 329  MSI 
O , h6S6h087F« 
0,9381 7S8UF 
0,?O18S177F. 

0.37S99090F- 

0, 770939827 
0,839093?2F« 
•0,o6?1?379F 


:(K,FKtn#Ksl,7),KK 

_0. 

0.  » 

o.asoooooQg  ot. 

0.'  , 

0.9388OO0bF»01. 
0.1 3382281E-02, 
-O.bUSa  793?E->U. 

0.U0OS9521E  01. 
-O.bM  J‘’31hE-08t_ 
0.29979988E  01, 
O.t0fcfcl9S8F- 


-0.1 02S9839E-19, 

P_.  ?J)_0  30  7 ri  E 01  , 

-0.S897Sh0?F-t0, 

_0_,  q 1 87S76a£  _PJ/_ 


_TC(K.KK,n.K«l,7 
01,  0.22885909E- 

•09,  -0, 1 tO?t8S?F- 
01,  0.350908SOC 

•OS,  -0.77J9SS19E- 
09,  0.8827832SE 

01,  0.2 5 28033 2 

■09,  -0. 1 3799389E- 

01,  0,3aS89238F 

■05,  •0.9SSS672SE- 
09,  0,831169A3E 

01,  0.81871211E- 

LOJLx_^Oj:?J109885i,£r. 
01,  0.3S912768F 

•OS,  »0,8583338SE- 
09,  0.22S20966E 


•0,J3S9S899F.  05, 
•O.1M90989F-02, 
ft.239S3399F-12.' 

•0.12392571E-O5i'_ 
•0.977898897  05* 
0.873S09S7E-02* 
0.<>3279039E-15, 

•O.57235277E-06ft 
.0.137509367  03,’. 
•0. 1 208l 5007-02* 
•0.?257J253E-12,_ 


«1, 2), 1*10, 12)/,. 
-Oj A- 

-ft* jt- 

0.  . 

-0. ‘,28993187-06*'^ 
_O.,108729S0E_O5*, 
-o.3«i8i  783E-02,. 
_OU59L?0_7_6E.-J  I, 


0.566377237  OS* 

r ou  2jL5  0 0.18. 1 E_- 0_a4_ 

0.209990997-13, 


RLkTHOSI, 

BLKTH0S2 

BUa.M053- 

HLKTH0S9 

_ eiKTHOSS. 

BLKTH056 

euxTHos;, 

BLKTH058 

HLKJHOil. 

8LKTH060 

BLKTH06L 

BLKTH062 

B1.'<TH063_ 

HI.KTH069 

BLKJHJiJiLi. 

BLKTH066 
BUKTHObT. 
HLKTt‘068 
_ B1.KTH089_ 
BLKTH070 

BUKTH072 
_BI.KTH0  73_ 
BukTHo79 
BIKTH075 
BLKTH076 
BLKrH077 


BLKTH078 
- _81I(TH079_ 

BLKTH080 

RLKTH081 

BLKTH082 

Bl KTH0R3 

BLKTH089 


13,  0.385659997  09* 

Oli.  0,206970697-02. 
08,  0.361958817-1  1 ,' 

01,  

02,  -O.217B5136F-05. 
13.  -0.99 2.9 ?_9.L3 TL-OJli* 
01,  0.993886687-03, 

08,  _ 0,272990927.-1  1,' 

01/ 


09'^ 

R1.KTH085 

.02, 

BLKTHOOb 

>11. 

BLKTH0R7 

BLKTH08B 

,05; 

BLKTH089 

09* 

HLKTH090 

■02. 

BLKm091 

( ( ( TC(K,KK,I),Ks|,7),KKSf,2),lBl6,lb)/ 


BLKTH093 

BLKTH099 

HLKTH095 

«u'kTh696 

RLKTH097 

OLKTH098 

BL" TH099_. 

HLKTHlOO 


1 JS.a*>S?lS2.1.1fl9lB0HE-2,-q.36SllS0F-t,j BuktHlOl 

b 7,'bl5SO'»bF-10»-S.012T200F-14,6,T<i9floa6F3,?.#,'j«795«»,  RLKTHlOZ 

» .l.‘Ha3l40E-2.7.9fl90006E-67.1.62S3B79E-a'; BLKTH103  ■ 

■■  * fc.7a^l25fcF-12,7.62925«2F3,l.«fc2!8!9ri/  BLKTHlOfl 

C B T H IPS 

BtKTMiOb 


1 


♦ BLOCKt  BI.QCK  ‘6*TA  foR  TURsUCif'^T  mSaMETERS 

block  data  

REAL  MUL.HllEEE.KCP.MURtr.HACH 

C3M>^n^  /CRRQP/  CT(10) 

COMHON  /CPR3P2/  CTP  > CT8  < CtM 

CO  

COMMON  /PROPJT/ 

* R $ PRL  _f_PRT t R5*S 

* tree  , MURCP  , MACH  , XLC  $ 

* REEl  « C » pHI , RnQRM  , 

* flHOf2O0>  , , MuL(200)  , KCP(20p>  , 

MlJCFFtZOOl  . XLN(200l , i}K<200) f RETURBtZOOi 

5* 

C*  


* c/ ?:5«>/  . PR1./.72/  / PRT/1./  , RriA8/S3.iq/  « 

0 TRfF/0./  , MUREF/0./  . SC/216,/  , 

_ • CHl/.SSh/  * RNORM/llo,^/  _ _ 

OATA  CT/:2T,;38,:23,.’3.;Sb7i74..R5..1875,,9,0,/ 

DATA  CTP/, 175/  . CTM/Jai/  , CT8/.’g3/ 

C* 

END 


BLOCKtOl 

BL0CKT02 

BLOCKT03 

BLOCKTOa 

BLOCKfOS 

BLOCKTOi 

BLOCKT07 

blocktos 

BLOCKT09 

BLOCKTIO 

BLOCKTll 

BUOCKT12 

BLOCKT13 

BLOCKTIO 

BLOCKTIS 

JLOCKtlB. 

BLOCKTIT 

BLOCKTIS 

BLOCKTIO 

BLOCKTZO 

BL0CKT21 

BLOCKTPZ 


CCARQL FUFL-AIR  ratio  aNP  FHISSION  indices  from  CARnL  analysis CAROLOOl  

C OF  Gas  SA'IPLE'  -----  CAROL002' 

SUHROUTINE  Carol (N,wAR,RHC<RCO«RCO2»RNOX>FAR,'EIHC«FlC0,'ErNr)X) CAROL003  

REAL  N.I.'MOf  mT.MWTF.MwT'  \ - • - 

XH(X.  Y)sCX»(F-C}«Y«(l-C))/((G-A)*(E«W)-(0"A)»(H-Bn C^R OL q0_5 

C , . CAROL006 

Asl  ,0-f  0.1-0. 25*N)*RHc_ CAR3L007 _ 

B*-or5n3»  0T*(RC0-*-R'H2(RC6r)  CAROLOOS 

Cs-(n,O5Ob??O7twAR/10,'Ol/i) ; CAROL009  _ 

Os(O.’l  + 0r?5*N)iRHC  ' ' CAROLOlO  ' 

F80.S03101»(RCO»3.0*RH2YRCO)i-l  .0 CARQLOll 

Fs0.65«b?2a7  CAROL012 

GsO.PsoN^RhC  _ _ CAROL015  . _ 

Hs0.251SS0S*N*(RCb»RCn2)  " ~ CAROL014 

Ts-2.’sr«)i6s1F->an CAROLOlS 

C . CAR0L016 

MP»_-  XJ1  ( C-A.*Q-Ai CA  RJJUII I 

MTsXM(h-R,F-8)  CAROLOlS 

.“wTFsl20ri  + 10,08AN CAR0L019 

F*Reo.0*Mi.(TF/N*(A*MT*flAMOtC)  CAROL  020 

CPrgfl.'0»FAR»WARl/FAR  CAROL021 

MwTsRPF»FAr/MT  CAROL022 

C —CABOLO^l 

ElHCsRHC/lfl.OAMWTF/MWTAGPF  CAR0L02fl 

ElCOsRCO»iroO62O2AMP/MT*20iMZJlMlj*GEf CARDL02S. 

EINOxsRMnx*«6,00e/MwT*GPF  CAR0L026 

C ^ _CAROL027  

return  CAR0L028 

Jk 


• OCJ  CJtU 


CCASMM  CHnnsE  step  3tT  UP  tUr.MENTFl>  matrix,  increments 

subroutine  cash'  ■ . 

c 


CASMMOOJ 
CASMMooa 
C ASMH003 


CHOOSE 


(!)  INITIAL  step  (RESTART)  FOrmUlA 
J ? )_G F N E^R * L_s  P_f  OR  M ULA 


set  up  augmented  _MALRIX_ 
compute  increments 


OOUBI E PRErlSION  A 


real  IVAR 


c 

c 

c 

c_ 


j:0  ^“C•»^■'/0PTS/VERST,T1MEV.VEP3A.  aRFAV.fi  iM.TrON.I  

cd«  ^'oN/CONn/DVAR,  ARE  A,MDni  ,P,  IVAR,  v(?8),LS,LSP3»NExT 
C3MMnN/0F»N/E(?ft), AUPHAA?8),BETA(28,^ai 

C0MMnN/«Arx/A(?fl»29) 

DIHENSniv  0K(?8).RK(28) 

EOUI VAl ENCF  ( VNl , V ( 1 j ) 

DATA  EPS/070001/ 


CASMMOOR 
CaSMM005_ 
c ASMM006 
.CASMM0.07_ 
CASMMOOS 
CASMM009 
CASMMOlO 
CASMH011_ 
CASMM012 
CASMM01J_ 
CASMMOia 

:as.mbol5- 


CASMM016 

CASRHolL. 

CASmmOIB 

CASMHQl.R^ 

CASMM020 

,CASilMXl2i. 


ENTRY  CASI  (HN,QK.HM,RK) 


INITIAL  STEP  OR  RESTART 


CASHM0?e 

CASHM02J. 

CASMM024 

CASMM025- 

CASMM02(> 

-C-A.SiiHn27 


INGEn  b t 

JIL_=_J)_  - 

NEGSsO 

,lO_f  l_*  JOJ 


F2  = HNI 
F3..S  HNI/2; 


Fa  e E3 

G0_-rcU2_ 


ENTRY_CASG  lHN*aK,ilNl,RJO 

general  STEP  ' 

lNG£N-a-2 


JK  = 0 

NEGSsO  , 

20  El  = HM*HNl/(  (2.'»HN1  HNlAKN) 

F2  » hn1*(hn1  t HN)/(2.*HNl  t HN) 
F3  = RNl 

F9_8..f.2 


2 LSP4  s LSP3  ♦ 1. 

DO  « 1=J.LSP3 
00  3 Js1,lsP3 


CASMM028 

CASMM023- 

CASMM030 

CASMMOSL- 

CASMM032 

-CA5iiH033. 


CASMM034 

CASMM03S- 

CASMM036 

CASMM037- 

CASMM05S 

-CASMMOiSL- 

CASMMoao 

CASMMOUl- 

CASMMoa2 

CASMM043. 

CASMM04U 

-CASMOOilS- 

CASMM096 

cASMMoal 

cASMMoas 

CASMM049 

CASmMOSO 
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nooooooo 


CCFILE  MErGF  or  split  FILF3 

SUDMoyTlNE  main  

C 

£ D M M rj  N_/  F J L K.  / r S C 

common  /cPR.)EI/  NPrS,9A0(l?)»rS(12)»llJ(l?),SPV(l2), 

* Mt»r(l?),CP(IP)*FUEL(l'?)»SPAL00(12)»TKE{li!l,OTHER(36), 

* TITlE(20)  .PRINT  (20)»gEX,N,HF,wAP,t2,8HA,  f 2S,  F AR5 , E I N02C  » 

* po»pcucin,Rcu2cii)iRHcci  n»RNJX(in,PT(ii),PS(ii),  

* OLOCd  n.ncat  1 1 ),RICH(2a),FUdL(^B)»FMTH(RR),cnNC(768)» 

.*  MClNCPC2«)iUlJ!ER2(192l 

COMMON  /CG.lET  / GJET(200) 

C 

common  /CJMlXl/  NAMC(i0).TlTLEl(10j,tOf.NT(lO),ADDRES(lO), 

* IDEM  1 ( l01,lNt1DT(9),|jl  rS.ERK.CC.r.CJ.FOOT.OlAJ.MjETfTJFT, 

* PT  JEr*.VJLj,  TJJETj  EJEI/PE.  VC,  ME,  T 1F*-TE  »-AXI  .MJ.KM,  UE# 

* mIXpRE,XlC,Fl(.1"J,  mERGE.nV.CDnI  ,tT  J ,rIP,CT5,CTA,CTS,CT6, 

CT/.CTU.CTV,Crp,CTS,cTM,GA,M,RG,PR,PRT,SC,TREf-,MUREF, 

* sp,sv, slen, DPRiN'.PLnr ,C6. M lx.cF, maxtt,tol,supb, 

X(100),X?RVllOO),aC100),UC{10Q),TC(100),TlC(100), _ 

* PTC{lOO),WJ{lOO).rj(iOO).TTC{190),YSi)NIC(lOO),YCBriOO), 

XOCLOO)  ,tiO(10(U,-YRl  laaj,-YCa.tlQQl,PDtJ-Oa),WV(.lDOi^ 

» MA2{lOO),VE2(tOO),It2(lOO),NXTA,I,Nc,CNAME(l2),ALJC)2), 

* .ALJO(l2),ALEtl2),SCM(12),CPCC3t)),OlFF_  - 

C 

COmmq(^  XCJHIX2/  SUPD,S'IpSTP,C3RE,CnRSTP,MER,MERSTp,NPD, 

» PSI(200),y(200), jO(2oO), 10(200 ),TjOf200),WHn(P00), 

•-..XLN  (200  I,  U 12001,  JOT  C20iEl,-X  MACH  (2Q0)-,PJ3.T  (200 1,-1.10(2004-, 

* PTD(?no),M3l.F)  ( 1 00) , M(ILF2(  mo),  MOLF?(100),MnLF  0(100), 

* MOLF  JOO)  ,MJLFG(  J OOj,M(lLF7ClOO),rtOLF»tlOO),MOLF  V(IOO)-, 

* molF ln{ 100), MOLFll ( loO), MOLE  12(1 0 0), T (20  0) 

C ... 

COMMON  /CSpALO/  Sy('30),RAPS(50),GS(5o),JENO 

c 

COMMON  /THndML/  eRR,ERRMAj, InERR,PRCBR 

LOGICAL  - ERR,ErKMAJ,INERK,PHErH 

LOGICAL  MERGE  , SPLII 

NAMElISI  /A/_MEftG£,3PLlI»NF  - 


MERGE_=-L 

split  = T 

NF 

= 1 
= 2 
= .4 


-MERGE-  FILES 

SPLIT  OFF  files 

FILE  PRESENT 

PHEjCr 

PREJFt, JETMIX  

PREJET, JF  TMIX,SPaLOC 


CALL  FlGERR(S,E«R) 
! MERGE  = .False. 
SPLIT  s .False. 

NF  so 


CF  IlEOOI 

CFILE002  

CF  ILE003 

_C  file  0041 

CFILE005 

CFIlEOOG  

CFILE007 

CFIlEOOS 

CFILF009 

--CF IlEOIO 

CF  ILEOII 

CFILE012  — _ 

CFIlFOI 5 

CFlLEOm_  _ _ 

CF  iLEOlb 

- CF-JLE'IU-G 

CFIlEOIT 

CFILEOia_ 

CFILF019 

CF1LE020--_  

CFlLfc021 

_CF-IL£022_. 

CFlLEoai 

CFILF029 _ 

CFILFo2‘» 

CFIlE026  

CEILE02/ 

-cf-jiLEoaa 

CF  tLE029 

CFILE030 

CFILF031 

CFILE032-  

CF  ilf:o33 

-CF-lLEOiO. 

CF 1 lE035 

CF'JlE036  

CFILF057 

CFILE038 

CFILE039 

-CF ILEOOO 

CF  ILF0«1 

CFILE092.  - 

CFILE093 
CFILE099 
CFILE095 

-CFIlE0  9 6 

CFILEOUI 
CFILFOOB 
CF Ilf  0U9 
CFIlFOSO 


I 

i 
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READ  (S,*) 

_ ir(  ERR  ) RETURN 

IF(  SPLIT  ) 60  TO  500 

“^wrueToTt) 

7 F(JR«a1(1H1,10X»17H**  fJi.E  MERGE  .*?/|0X#  1 OH^ATA  QN  FILE  R//_ 

* 10X,6HPREJET) 

10  write  (O)  nf" 

section  to  merge  files  ( JOB  termination  > , . . .... 

_ PREjET  ** 

12  R t A 0_U.) ^ 

* DIAJ,MJE:, TIJE  T,VJE r,Pf,TF, TIE, VE,GFX,RG, PR, prt, sc, tref, 

_ * mciReF.DU  »Nc,CNAMt.AUE»ScM.CPC»NJ#NM»cII»CT2,cT3,CT<l,cT5,. 

* CTb,CT7,CI  H/G.lET,  T,Uo»THD,TID»ED, 

* MtlLFl,MDLF2,.MnLF3»M0i.rR,M0UF5,MQLF4; • 

* m()lf/,m0LFH,m0LF9»m0lE  10,MnLFl  I/M0LF12» 

_*„N  .PIS/  R All/  ISa  U JxSR  )U  MW.T  / C P / f UEL./-SpJlU>G-ulx£*aiJtitH.« 

* TI ri  E,PRIn1 ,N,HE ,WAR, T2,DE  TA, T25,FARS/ElNn2C»P0/ 

..  V RCO,Rc02»KH.C/RNOX,PT,PS/OLOC/QCO, 

* RlCH/HCINCP/FUJL/ENlH/CONC/OTHERa 

* ,GtX j 

lU  WRITE  («) 

*.PIAJ/.MJE.T..1  lJELI/jyjEJ,PlL>-Ii:/Il£/J^E^F-X«J?Gx£H^PR.LiLSC-.JR££«  - 

* MUREF,D1EF,NC,CNAML, ALE,SCM,CPC,NJ,nM,CTI,CT2,CT3,CT0;cT5, 

*..CTf.,CTI/CTH.,CJET/r,Ua,THD»IlQ.EO, 

* M0uFl/MriLF2»M0LF3»wDLM,MnLF5/M0LF6, 

*.Ml)LF/,M0LF9,M0LF'>».M0Lr  10,MOLFI1.MOLF12, : 

* NPTS/RAD,  TS,UJ,SPV,M,(T,CP,FUEL»SPAL0G,TKE,  OTHER/ 

*-lllLL/PRlNlx,Nj.UFjJ<AK,J.2/flELIA,J25»EABS«-EIJJ02C/£IL» 

* RC[J,RCO?/RHC,RNOX,PI,PS,BLOC,OCO, 

.*  RICH/HClNcP/FUUL#tNlH»cOMC/QIHER2 . 

* /GEX 

. IFt  NF*EQ,1_X  GO  TO  loOO 


j£  I M I x_*  * : 

20  WRITE  ((>,21). . 

21  FJRMAT(10X,6hJETMiX,18X,?hXX) 

23  READ  (2)  KXXI/KREC/  . . ' 

* NAME,TITLri,IOENT»  ADDRES,IDENTI,TW0DT/3ITS/FRK,Gc,GCJi. 

_ * FOOT.Ol  AJ/MjEI/TjEIf  pTjEI  ,VJET/TlJET/F  JET,PE»VE/ME/Tl'.«TE*- 

* AXl,NJ,NM,Ut,MlxpRE ,XLC»F| OWJ, MERGE, NV, CONI, 

* Cri,CT?,CTl,Cr«/CIb»CT6,CT7,CTB/CT9,CTp,CT3,CTM». 

* GAM,RG,PH,PRI ,SC/ ThEF,MURCF/SP/SV,SlEN,0PRIN,PlI)T,C6/ 

* mix,cf/maxiT/ roL/SjPrt/ 


CFILFOSl 

_CFILF052. 

CFILE053 
_CF1LE05‘L 
CFILE055 
CFILE056. 
CF ILE057 
CFltEOSB 
CFILE059 
-C.EJLE06Q- 
CFIlE061 
CFILE0&2- 
CFILE063 
CFIi.E06<l  - 
CF1LE06S 
_Cf_ll.EOBI>_ 
CFILEOGI 
CFILE063 
CFILE069 
.CFIlEO/0 
CFILE071 
_Ci-LL£D72_ 
CFILE073 
CF1LE074. 
CFILE075 
CFILE076- 
CF  ILE077 

criLE079 

cfileobo. 

CKIlEOBI 
-CFlLE0a2. 
CF ILEOBS 
XEaLEoaiL. 
CFIlEOBS 
cfileobb 

CFIlEOST 
CF  ILF;086 
CF  ILE089 
CFILEOStO- 
CFILE091 
CF1lE092 
CFILE093 
CFILE094 
CF  IlF.095 
CFlL£09b_ 
CFILE09/ 
CF  ILF093 
CF  IlEo99 

cfileioo 


177 


i 

.*( 


* x,xp«N,8»i/c»  Tc»Tic,Prr,wj,yj,Trc,ysnNic» 

* YC3,xp,R0,rw,ycn,PD»WV,MA2,VE2,rE2#NXTA,l,  

* NC,CNAMF,  aLJ,  ALJJ*  AUE.SCM,CPC»DUr,cSC 

WRITE  (R) . KXX1,<REC».  _ 

* MAME,T1TLF1  , IDEmT.  AODRES,IOE^)Tl,TWOm*B^  TS»EWK,Gc,GCJ» 

* F0.1T,DIAJ.'MET,  TJEl,pTjfT,(,JET,TIJET,EJET,PE,Vt,ME,TIE,TE 

* AXI  ,NJ,‘4l,0K»WIxpRt,xl.C»K  0WJ,HFHr.E,'4V,C0Ml» 

* CTl»CT2,CT <»CT«,CTS,cT6,CT7»CT8#CT9,CTp,CTS*CTm» 

* GA‘1,RG,PR,Pkt,SC»TREf.MUREF«  SP«SV,St.EN,0PRlN»PL0T»C6» 

* MI  X » C F /-►I  AX  1 1 /iJL  ,3  UPa  i 

* X,xPRn,8»IIC#TC»TIC,PtC,WJ,  Yj,TTC,YSn*4lC» 

* YCB,X0#Pr),Y«,YCD,P0»wV«MA2,VE?»Tt2,NXTA,I,  . . 

* MC»CNAME.AL.I.  ALJ3»  ALE»SCM»CPC»DIFF,CSC 

OLl  25  IJ=1,KREC  . 

READ  (?)  JPFC.KXX.KRER# 

_ _ . • S'JPD/S'JPGr?,caHE,Caf<STP^HEH,MERS.tP^wPO,^ 

* PSI,Y,UD»T  iD # ED# TID»RH0, XL N«U» T, TOT, XMaCH, 

* PT0T#TTD#PT0, _ — — - 

* HdLFl  ,M0LF2,MnLF3,  m0i.F«,MC1LF5«  MQLF6,' 

- * MOLF7,MnLFa#'iaLF9,MaLFlO,MJLFH»MOLr.l2»J 

WRITE  (R)  .iRF  C»KXX,kReG, 

* SuP.D,.SjP.3-LE,CQRUCaRSlP»-WEfi.-'lE83I8,i4BD., 

* PSI,T,U0»TH0,F  D,  TlD»  Rt'0»  XLN,  I , TOT,  XH^CH, 

* PTOT#  nD»PTD,-_  . - 

* M()LFl,MOUFP»MOLF3,MClLF'«»MnLF5,MOLF6,’ 

: * MOLF7,M3Lre,MOl.F9,MCli.rtO,MOl.Fll»MOLFl2rJ — 

XKXX  s FLnAT(KXX)/CSC 

_WRLIE— 2iU— XKXX 

2a  FCJRmaT(10X,PHJFTmIX,F20,5) 

_ -25  continue — 

C 

IK  NF.EQ,?.  ) GJ  TO  loOO- - — - „ 

C 

C* SPALQG-AA 

C 

30  Oa  iS  IJsl.KREC ^ 

READ  (3)  KxX»SY,RADS.gS, JENO 

WRITE  (a)  kXX,SY,KADS,GS»  JENO _ 

XAXX  = float {KXX)/cSc 

WRITE  XhXX 

3u  format (10X,GHSPALDG,F?0, 3) 

35  CONTINUE  . . — . - 

GO  TO  tOOO 

C»  SECTION  Ttf  SPLIT  F UES  ( JOB  INITIATION  ) 

SOORFAoIT)  NF 

WRITE  (6»605)  

READ  (7) 

* DIAJ,MjEr,  I 1JK»  vJEI,PE»TE,TIF»  VE.GEX»RG,PR,PRT,3C»  THEF, 


CFTLElOl 

CFILE102-, 

CFILE103 

CFILElOa 

CUlKOS 

CF1LE106 

CHLE107 

CFII.E103 

CFILE109 

-OILEUJI 

CF  IlKH 

CKLE112 

CKLElli 

CFiLEllfl  

CFIlEIIS 

-CFILEi4(> 

CFILK17 

CFII.E118 

CFILEII? 

CF  iLF.iao 

CHlF121 

-CKLE122 

CF  ILE123 

CF  TLElPa 

CF  ILE125 

CFTLEl?e>  

CFIlF  127 


■i 

1 

1 


t 


CFItF-128 

CFILK?? 

— CF  ILE130 

CF ILE131 

CFILE152-— 

CFILE153 

CF  ILF- 130 

CFILF135 

CFILE135 

CF1LE137 

CFILE138-  

CFILE139 

CFItEiaO 

CFlLEiai 

cFiLFiiaa 

CFTLE103 

..  — CFiuEiaa  

CFlLEiaS 

CFILElflE 

CFItEia/ 

CFiLEiaS  __ 


CFl'.Eia? 

CFILE150 


17H 


* MURFF»OlFF»NC*CNAMt,  ALE*aCM.CPC»NJ*NM*CTl,CT2»CTi,'CT«,CT5»  CFIlEISI  ' 

‘ CT6,CT7,CTa,Cj£T*r,Ui),THO,Tro#ED,  _ CFILE152 

» MnLFl,MDLF2*MnLF3*H3i.F«.‘it)LrS*'10LF&,’  CFIlEISS 

1 MOLF  /,M?LF»,Mni.FV,Mrn  FlO,H.OLn»,Mni.F»2, CFILE15<» 

» MPrs;RAp,TS,UJ, 5PV,MwT, CP. FUEL. SPALDC»TKE, OTHER*  CFiLElSi' 

> TITi.E.PRInT,M,KF.«AK,T?,PFTA,T2S,FARS.ElHO2r.fP0.  CFIlF156 

> RCJ,HCO?.RHr,RMnx,Pl,PS,fiLOC,MCO,  ■ cfileis/ 

> HICH.HCINcP.FUUL.FNrH.cnHC/QTHERZ  CFILEISS 

‘ .GEX  CFlLFlb9 

n.) CfJLtldO 

‘ OlAJ.MJpT,  T1  JFT.  VJfT  ,PE,  Tf  .TIE.  VE.GpX.RG.PR.PftT.SC.  TR£F.  CHLE161 

> mUReF.OIFF.NC.CnahE. ALE .SCH.CPC.nJ»NH.CT1.CT?.CT3.CT«,CTS»  CFIuF162 

‘ CT6.CT7.CT8.GJET.Y.1J0.TH0.TI0.E0.  CFILE163 

» HnLFl.MnLF2.'inLr3.M3LF«.MnLFS.HOLF<>. CFILE16<» 

» MtlLF7.MOLFH.'1flLF9.«<nLFlO.MOLF!l.MOLFl2.  CFIlE16S 

L.\PJ  S . R A 0 , .13 , j j , SPy^jlrt T^  CP-.  £U tLi.S£ALDG . JKt*i3111£Aj CiJLLltb. 

' TlTl  E.PRlNl .N.HF.WAR.T2.HF TA.T25.FARS.rINO2C.P0.  CFILE167 

‘ RC:).RC02.nHC»RNnX,pr,PS,HLQC.QC0, _ CFIlE168 

> RICH.HCINcP.FUUI  .EnTm.CONC.OTHERZ  CFILE169 

• f GEX  _ CFILtlTO 

write  (6.6O0)  CFIl£171 

IF(  nF.EQ.i  ) r.O  TO  IQOO CSllLltL. 

CFILE173 

READ  (7)  .KXXI.KREC.  . _ CFlLEl7a 

' NAlE.TITLFl.  lOENT,  aOdRES.  TOEHTI  . ThO|>T  . 9l  TS.  FRK.  Gc  . GC  J.  CHlEI/3 

' FOJTfOlAj.MJEl.TJET.pT JCT. VJET»TIJET.tJET.PE,V£»ME»TlE.T£.  CFIlETTE. 

' AXI.NJ.NM.UF.MIXPRE.XI-C.FI  OWJ. MERGE. NV, CONI.  CMlEi77 

'_CTl.CL£*j:i3.£-L'UC15.XJ6.CI7..CJajilX2..CJP.£LT5*OJl4 CULtm. 

‘ GAM.RG,p«,PKT.SC,TREF.MURFF.5P»SV.SlEN,0PRlN,PL{)T.C6.  CF ILEJ79 

._MlX,CF,MAxJJ,.TOL.SUPQf CFILET80-. 

' K.xpRN.B.UC.TC.TIC.PTC.Wj.YJ.TTC.YSnNlC.  CFTLE181 

' YCH.xO.RO.YRf  YC0,P0.WV.MA2.VE?.TE2.NXTA,l,  CFILE182 

' NC.CNamf. aLJ.aLJO. ALE.SCW.CPC.0IFF.c8C  CFILEJ85 

XR I T E , R R EtL. : CFJ  Lt4  H 9- 

' NAMF.TITLFl, lOENT, ADORES, I DENT l.TwOGT. HITS, ERK.GC.GCJ,  CFlLfc'185 

1 FfUT.OJ  aJ.MJET.TJET  .PTJET,  VJXT.TUET.EJET.PE.VE.ME.  I1E.T£, CFILE186 

' aXI.mJ.nm.UE.mIXPRC.xlC.FLQRJ. merge, mV, CQNl.  CF1lFi87 

Cn,CT2,CTi,CT9,CT5.CT6,CT7,CT8.CT9,CTP,CTS.CTM, CFlLElSS 

' GAM.Rg.PR.PRT.SC, TRFp,MUREF.SP.SV,SLEN,0PRIN,PL0T,C6f  CFILE189 

. MlX.CFi.MAxiX,  T3L.SUP3, CFILE19Q_ 

1 X.XPRN.rt.nC.TC.TIC.PTC.WJ.YJ.TTC.VSONlC,  CFILE19I 

' YC3,X0,RD,YR,YC0,Pp.wV,MAP,VE?.TE2fNXTA,l..  CFILE192 

i NC.CMAMF.4LJ.  ALJO.  ALE.SCM.CPC.OlFFfCSC  CF  ILH91 

DO  5?5  IJsl.KRFC  CF1LE199 

READ  C7)  JREC.KXX.KREg.  CFILE195 

SiiPo,5'JP3TP.CnRF,CORSTp,F!ER.ME«STP.NPO.  CFIlE198_ 

PSI.Y.uD.THO.ED.TIO.RMO.XLN.U. T.TOT.XMACH.  CFILE197 

PT'JT.TTD.PTO,  CFlLtl98_ 

MOLF  1 , wOLF2,MnLF3,MOLFa,PnLFS.MOLF6.'  CF  ILF.  I 99 

MULF/,>iOLFI>.‘lOLF9,*iOLFlO,MOLFtl,MOUFl?,J  CFILtaOO 


"HITF  (?)  C,  KXX,  KWrC, 

• SU^»0.SJPSI^•.C'1‘<^  f CfjUs’Pf  MfK,  4f  RSTPfNPO, 

• psJ , y,u3, THo.CD, r in.uMu, XI n, j, t.tdt, xhacm, 

• Pl:)T,TT5,nTr),  _ 

• ‘'(lufl . ‘1^t,F?,'10LF  J,  5»  'lOLPfc, 

• ‘’(tLF7f '’3l.F0f  Vf '’JLFlO.PULFt  If  .'iaLFl?,  J 
S2S  COMINUE 

wRUE  (b.bol) 

* IF-{,tjF^LQ>Z_.)_GO-.Ta..lQftfl 

S4o  DO  S35  IJ=t  fKPFC  _ 

read  (7)  KxX,sy,RA03,-S,JEN0 

write  (i)  KXX, 5Y, RAOS.GS. JENO  

SIS  CONTIVUE 
wSIlL_t!>.6Q?J 


bOO  Ft)»‘lAT(IOX,2,>H*«PHEJET  FILF  RE  STOREO  » 1 Ox  , 1 2MF  I L E CHOF  1/) 

bOt  F3R'iAT(10X,?2M**J£If-Ix  FIlE  P E5  I OREO,  1 OX  » I PTF  1l  E CnDF.  2/) 

b02  FaRiAT(10X,22-^**SPAL0,-,  FIlF  Rt  S I ORFO  , 1 Ox  , 1 2RF I LE  CODE  3/) 

bOS  FURRATdHl,  10X,20H**FiuE  HESraRATiUNAA//)  

1000  return 

LMD 


CF  ILF201 
CF  ILF202 
CF  ILF  203 
CF lLt20S. 
CF  ILC20S 

criLt205 

CFIlF20/ 
CFILE208 
CFILF209 
— CFILtaiO- 
CFlLF2n 

CFlLt2i2 
CF ILt2l3 
CFUE2ia 
CF lLt2l5 
-_CFIl,E21Fi_ 
CF ILF  217 
criLE2l8. 
CF iLf  219 
CF 1lE220 
CFILF221 
— CFlLCaaZ- 


SUHHnUTiNE  C0C02B(  P.qTImE  ) _ 

COMHON  /pSfO  / FOA,BETs,TP,X(t6),DHoDMwVTEO»BEO,XMwT,HNEO 
EOOIVXLESCF  (X1,X(  l)),fX2,X(2)),<X3,x(3))#tXa,x(a)),_ 
* (X5,X(b)),(X6,X(6)),rx7,X(7))»(X8,x(n)), 

» (X9,  X(«>)),  (XlOfX  (10))^(XI1,  XjtJLUJ 

CiJMMO»4  /GHSC  7 rr2S),HH(25)»8R(2S),CPZ(25)»DCPR(25) 

C3MH0N  /CPRINT/  PDUm(20) 
common  /cOREQN/  COReO 

LOGICAL  ^COREQ  

common  /COlIMT/  XCOLiM 

c QmmQN  /PSfOx/  MQc»HUM»c02*lR»MAlR,FS»FUgLMM 

"Real  mair 

heal  kio 

DATA  C2/:0iE032B6/,a10/EI0/6.6E«11, to30./»TlME/0./ 


reaction' 


COaOH  s C02AH 


Tk  a TP/1  .4 

EQIO  a EXp(F(7)*F(5)-E(8)-r(l)) 

1F(  COHEO  i'  GO  to  2 

KIO  a A10*EXP(*E10/(1.98S9b*TK)) 

GO "To '3 

I F ( TP.LT.2 2 SO.  ) GO  TO  21 


"KlOsi ,31 
GO  TO_3 
XNUH  a 
X0EN_  a 
KIO  a 
XCOI  a 


♦l2AEXP(-i92fl,i29e57/(l,9859b*tK)) 

1 r3«2b3'5076E7t  IVe7p (T76'97oy99bV7l7’859TATKT^^^ 
l,-78,S29378?*^XP<rl  31^2 ,28^-l(  | ,9aS9>jiTKJ 
XNUM/XOEN 
X7 


lF(Xt  ,Ea.O.‘o  .AND,  XS.EQ. 0.0)60  TO  20 

RHUM  = l'<a.«P«C2/(lSqS.32aTPI 

TIMEk  « oTtme 

TIME  a _TImE*JJJ1EK_ 

TERM'l  'a  ('xi+P.aXStX'StZ.aXbl/HOC 
A a -RHJM*Kl0*(X5+X|/t0l0) 


a a RHnM*K|0*XI/EatO*TERHl 

BOA  a B/A  

X7  a (XCOIfBQA)*EXp(A*TIMEK)*BOA 

IF(  XT. LE. XCOLIM  ) XtaXCOLlM 

DXCJ  a XC0l"X7 

XB  a X6*OXCO 

RETURN 

END . 


COCOZBOt 

COC02B02 

COC02B03 

COC02B04 

COC02B05 

_COC02R_OjL 
COC02807 
COC02B08_ 
COC 02809 
CjCa2Bl0 
C0C02B11 
_C0c02al2_ 
COC 02813 
C0C02Bl(t 
C0C02BIS 
COC 02816 
C0C02B17 

_C.PCQL2BLe_ 

C0C02B19 

COCO2B20 

C0C02B21 

C0C02322 

C0C02B23 

_C0C02,82.‘L 

C0CD2B2S 
C0C02B2t> 
C0C02B27 
C0C02B28 
C0C02B29 
JLDCflZlillL 
C0C02B31 
,C0CD2B32_ 
C0C02B33 
COC  02839^ 
C0C02B35 
C0C02D3b 


C0C02B57 
.COC02838 
C0C02839 
COC 0284 
COC 02841 
-C0Ca2842_ 
COC02B43 

COCOZBqiL 


CCOEFF  EVAiUATFS  COEFFICIENTS  FOR  -G-  EQUATION 

COFFFOOl 

subroutine  COEFF(K) 

COEFF002  * 
COEFF003 

COH'iriM  /CEnOS/  jstart.jeno  cdfffoos 

CnMHON  /CPHni  1/  r.(50.i),*LPH*nf  COFpFOOfc- 

1 OEl  TA(S0. 1 ) COEFFOOT 

cnMifiN  /rJFTnr/  rcj.othj. vjet.fjet.mkt* — — _ coEFFOoi" 

common  /cCHNST/  CONSTj, const?. comsti'.'comsto  coeffoo 

common- /csi  OAT/  STTsthTRiotsoi  .■vcrf5iiT7TKrrsnT;‘or>jfSOTrrrs(5o^ , — coeffcitt 

1 FAR(SO)  coeffoii 

C—  - - COFFF012 

110  03  ?n0  JsJSTART, JENO  COEFF013 

C«  calculation  of  turbulent  VTSCOSTTT  -•  i'aM/FT-SFC"”  — COFFFOlO 

?MuTaC(iNST|  *DE(g(J)  ATLStjiASQRTTTKETji  j COFFFOlS 

CF— r.T;GT  .n  ■ rro  Tfr-rpo COEFF(5T5“ 

c»  SYMMETRY  FORCES  0FO03Y  TO  BE  ZERO  ON  AXIS  COEFF017 

OFODSYrO'  ’ " COFFF018’ 

GO  TO  130  COFFFOIR 

120  JPia.f»l  — • COEFF020“ 

JNls.I-1  COEFF021 

-r»^ — AT  OUTTR  Ei^GF  of  JFT.  USP' ONF.STOCD-pEftIVATIVE COEFFO??- 

IF  (J.Fa.jFND)  JPleJ  •,  COEFF025 

- 0F09SYs(FARfJPl)-FARrjHhj/(3Y(JPI  VmSVTJHII) COEFFOZa' 

130  CONTINUE  COEFF025 

C*  CAICULaTE  COFFFICIFNTS  of  THF  -G-  FOIIATIOM C0EFF026  ' 

BETAT  j,K)=r3NSTR*ZMljT*0FN(J)*VFL{j)  araO(J)*RAO(  jj  C0FFF02'.’ 

GAWNrjTKTsc^iN-sT^FYNirrTOFfrrJT-Avrirrjinrp-AOf  JJ'^Aorj  J AT^FfiDSYVDrdnssY — coFPnrJTET 

IF  (V£L(.I),LT,(1.E-10))  go  to  IRO  C0FFF029 

DFLTA(J,lC)  = -C3NST3*ZHDmOEs(J)*Vf:l7riir*nj577WTi:3(jl1 COFFF030" 

GO  TO  200  _ COFFF031 

too  OELTACJ.KrSO.O  COEFF032~ 

200  continue  CnFFF033 

R rrosrsi c oef  FF3ir 

end  COEFF035 


•CTABPR  Block  data  rn«  tabpbt 

BLOCK  DATA 

•CTABPR'  CTA8PH01 

CTABPHOZ 

COMKON  ^CTfcBPR/  MTaB 

CT ASPR03 

DATA  UTAB/l/  _ 

CTABPWOa 

END 

CTABPROS 

CCUBS3_  C0rPFlCIE'JT8_F0p_CUBIC_SPWlNF_TNTeBPQLATI0^  *ND 

SUBRnDTlME  CUBS  (X,Y»n) 


OIFIL'N CUB3S001 

CUBSS002 

CUBS30P3 

CUBSSOOa 

CUBSSOOS_ 

CUBSSOOb 

CUBSS007_ 

CUBSSOOO 

CliBSSOOJ 

cuhssoio 

__  CUR?S011 

CUBSS012 

CUBSS015  _ 

CUBSSOIP 

CUfl  S S £115_ 

CUBSSOlb 

CU0SSO17__ 

CUBSSOIB 

CURSSPl'* 

tntep’polatiocurssopo 

CUBSSOPl 


DIMENSION  X(N),Y(N) 
dimension  A(aO).B(PO)t,C(<lO) 
dimension  s(ao)»T(«o),U(aoi 


C0MMnN/*FUN/Cl,C2.C3»ca»ITPSZ,FLM»ETA,DIAM»VT3C,flETA 


Eou  I Valence  fA(i)»u(i)),(R(i),T(i)),fcn)»3(i)) 


F(iO  = 
DF(Xi  ; 


DF(xi  : f3 
D?F(X)  = 6 


((A^*X  > A2)*X  ♦ A3)*X  * kH 
= b.*Al*X  ♦ 2.*A2 

If  -•  I — - . 


r.(A)  s i./fi.  - a**eTa) 

or.oi  3 fta/eln»tfrh**(eta-i^)*b*b 

02r.CC»0.E)  « C*(FTA  - 1.  ♦ 2.*ETA*TErmaaETa*D)/E 


FROM  INPUT  table  compute  COEFFICIENTS  FOR  CUBIC  SPLTNE 

A_N  D_5  T FT£  R EilTJ  ATION 

CONI  s .53353333 

CON2  s ,Ib6bb6b7 ___i. 

OXI  3 X(2)  - Xd) 

HYI  s Y(2}_<._jr(l) 

DI  * OyI/OXI 

3(1)  = CQNitDXl 

Td)  3 cnN?*oxi 

^u  Cli_=  01  " (((T(  3)-Y(l))/(X(5)"X(i)))  ♦ DI)/2.' 

NM  3 N-1 

_D0  2 I32.'nm  

DXIM  3 DXl 

DYTM  3 OYI ^ 

DIM  3 Dl 

OXI  3 X(JtjLj_-__X(jj 

OyI  = Y(I*1  ) • Yd) 

DI  3 DYl/DXl 

3(1)  3 C0N1*(DXIM  ♦ OXl) 

T(I)  3 C-tN:>«DxI 

2 U(I)  3 01  - DiH 

S(N)  3 COVMDXI  _ ^ _ 

U(N)  3 (01  ♦ (OYI»OYlM)/(DxdOXlM))/?,  « DI 


DO  3 IsI.Nh 

IT  * UlL^ 

T(l)  3 T(I)/S(n 
IJ(I)  = 0(11/3(1) 

S(IM  ) s Sf  IM)  - TT«T(I) 
U(lM  ) 3 J(I*I)  - TT«j(n 
U(N)  * U(N1/3(N) 


CUBSS022 
CUBSS(125 
CURSS02« 
CimsS02S_ 
CUBSSOZb 
CURSS0P7 
CURSSOtS 
CURSS0_29_ 
CURSS030 
__  CURSS05J_ 
CURSS032 
CUHSS033 

cURSsosa 

_CUHSS055_ 

CURSS03b 

CURSS037_ 

CJ8SS033 

CUBS3o3‘’_ 

cuRSSoao 

CUHSSOal 

CURS30«2 

CliRSSno  5 

CuRssoaa 

CURSSnoS . 

CURSSPU6 

r iBssnaT 
CuRSSOaS 
r )i'isnQ» 
c iissnso 


I 


COmPutF-  Jf  £BX1M-£UB1C.  APLtN£_llOEf/J[Cl£NI3 

66  00  <>  lal.NH  . 

~V  ct^'tinue”*  • 

WRITE  t6j.in0).  XJjXC.lJ.XrN) 

100  FOPIAT  (7Mn(ClNP1,5X.  SHXlP.Fl-J.'SrlTH  IS  OUT  OF  RANCE/1 
l_fLl3.i),J»X.SrtXiJO=-.Ell3T 


OXI  s 

A1  = (A(I  + l )-4(n)/DXl/6.’ 


CUB33066 
cuasso67_ 

CUBSS068 

CUBS3069. 

cunssoTO 

tUSSSOXi- 

0X»SHX(1)»»CURS3072 

CUBSS07i- 

CU9S307£I 


AXI  = 4(T»1 )*X(I) 

_.-_AXl  1Z0X1Z2, 

AIX  s AlX*x(Itl) 

AXI  S AXIaxCU 

AJ  s (4XT  - 4IX)/0Xl/;>.  t B(I) 

AlX  F AlXAXCltlJ 

4X1  = AXt*X(I) 

Jkil_=  . C 4 1 X_._AXll/0 XI/6  >-♦  C-U-L 


_Y1_=  EtXl)_ 

OY  * OF(XI) 


return 


CONFUTE  Y,  dY/DX,  027/3X2  FRO**  INPUT  POLYNOMIAL 
10  41  s Cl 
42  S C2 

A4  ■ C4 


YI  1 F(Xt) 

OY  « 3F()tli 
02t  s 02F(»t) 


— CUBSS07S- 
CUB33076 

tlUB^3077- 

CUB3S078 

CUB3307R- 

CUBSSOBO 

CUa3308L 

CURS3nfl2 

cuassoBi. 

CUB330n<i 

CUa330B5 

CUflSS0B6 

CUBSS087_ 

CUBSSnBB 

xunssoe?- 

CUBSS090 
CUBSS091 
CUR5S092 
CUBS3093 
CUBSS094 
- £UaSS09S 

CUB33rt<)«> 
f jB5sn'»; 
Cij433n<>4 
CU4SSe94 

CUHSSlIO 


return 


c 

C'JBS3102 

c 

tUBSSI 03 

c 

EXcEPTTOnAi  case  at  XsO 

11  IF  (XI  .FO?  0.)  GO  TO  12 

cubssioo 

CUBSSIOS 

TERM  s XT/FLM 

YI  e C(TFRm) 

CUBSS106 

CUBSSI07 

OY  « OGIYll 

0?Y  . 02G(nY. YI,X1) 

cuBSSloe 

CURSS109 

c 

RETUhn 

CUBSBllO 

CUBS3111 

. c 

12  Yl  ■ 1.' 

CUBSSl 12 

CUBSS113 

c 

FIT  A CUBIC  THROUGH  THf  POINTS  ( 0 . , Y 1 > , ( 7o57y? ' )7(  . 05, Y? • • ) , 4ND 

cuqssi la 

r 

(.‘lO.YT")  T>4  OrOFR  TO  find  Yl*  AND  Yl  • • 

CUBSSl 15 

TERM  s ,05/ELM 

Y2  « G(TFRm) 

CUBSSl 16 

CUBSS117 

Y2P  s OG(Y?) 

Y2PP  X 0PGTY2P.  Y?.  .’05i 

CU8SS119 

CUBSS119 

TFRh  s ,io/elm 

Y3  * 6{TERm) 

CUBSS120 

CUBSS121 

Y3P  s DG(Y3) 

Y3PP  8 02C(Y3P.Y3.-'lO') 

CUBSS122 

CUBSS123 

c 

DY  8_t;05*ry3pP-Y2PP)/(,10-.05)/2.’  - .Y2PP)*.05  *_Y2P  _ 

CURSS124 

CUBS3125 

D2y  s y2pp  - , 05* ( Y3Pp- Y2PP) /( .'lO-ToS) 

CUflSSl2b 

RETURN 

runsSlPT 

c 

c 

vso  Case  - assigned  area  is  not  required 

CUB53128 

CUBSSia? 

13  YI  s 1. 

OY  a 0; 

CUBSSI3O 

CUBS313L  , , 

02Y  8 0,' 

CURSS132 

RETURN 

CUBSSl 33 

c 

enD  . . 

CUQSS130 
CUBSSL35.. : 

CDERIV  DFFQ  COMPATIBLE  OERlVATlVt 

8UaR0UTlNE._DERLyfr.Fi  dFqY.  J1 . .^2)  

DFNOM(A,0,r )S(A-B)*{A-R)*(C-A)*(C-A)*(C»A)*(A»B) 


DERIVOOI 

0ER1V002_ 

DER1V003 


1 DO  10  Js.li.J2 

DELAP=V(J)-Vf J-l J 

0ERIV005 

OERIV006 

DELB?=Y(.J*n-Y(J) 

D0D  = 1 ./PF.NnM(Yf  J).  Y(J-«  ) , Vf  Jfli) 

0ER1V007 

0ERIV008 

DFDYIJ)s(DFLA2*0ELA2*(F(  Jfl  )-Ff  J))*0FLB2*0ELB2*(F(J).Ff  J-1  ))")*0D0 
10  CONTINUE 

OErIVOO 

DERTVolO 

11  return 

End 

OERlVOli 

0ER1V012 

GENERAL  ELECTRIC  CO  CINCINNATI  OHIO  AIRCRAFT  ENGINE  GROUP  F/G  i 
development  of  Emissions  measurement  techniques  for  afterburnin- 
OCT  75  W C C0LLEY»  D R FERGUS0N»  M A SMITh  F33615-73-C-2047 
R75AEG459  AFAPL-TR-75-52-SUPPL-2  NL 


A0-AU4b  627 


UNCLASSIFIED 


rtf*  ^ I P " r.  r»  r».  r»  r»  r» 


COERVV  CDMPHTE  ALL  DERIVATIVES  WRT  THf  InPEPENPEKJT  VARIABLE OERVVOOl_ 

subroutine  OERV  0fcRvV002 

DER'/V003 

COMPUTE  all  derivatives  hrt  the  independent  variable  O^tHVVOOa 

OEPWOOS. 

DOUBLE  precision  0Ps1>0PS2  OERWOOS 

,_DERVV0O7_ 

logical  TCnN»RHOCON  OERVVOOS 


REAL  1VAR>MIXMW,M2 

COMMnN76pTs7vFRST'»TTMEV7vEPSAVAREAv7FLiM,‘TCON,PHnc9N,IPRCOD  ’ 
COMMON/CnND/DVAR, ARF  A,^^DnT,P, I VAR,  V,RMn, T , S 1 Gh A (?S > , lS • lSP3, NEXT 
caMMnN/spEr/SNAM(2,30),Mw'r2S),M(2*;),BTOicr?s,30),OMEnA(25,30) 

COMMnN/r,MSr/r.RT(?S).HRT(?S).SR(2S).'CPR(?Sl  .OrPRfgsS 

COMMON/OERn/F(2B) f ALPHA(2n),BFTA(2fi»Pfl) 

COMMnN/NECr/RRjMlJ<MWj|  m2  » gamma,  TCPAj'R  

COMMON/SABS/SI  , AA,BU»s'2/oAio2A,OTERM7lRHO 

EbuiVATENCF~(Ov7lF  (IT) 


02A0T2(D2)  » V*VA02  ♦ OV/VaOA 

■--DV-^Aiy-y- 


_OPS 1 a 0*D0 
OPS 2 s 0,00 


F(I)  a 0. 

1 ALPHAd)  a Oj 

_^E_NM_«_RHa_ 

IF  (VER3I  .NE.  TIMEV)  OENM  a RHOaV 

00-2  Ial«LS 

II  a I f 3 


OSIGMA/OI VAR 
_E  Clli-S-JitT)/DENtl 


c 

r 

SI  Fno  AA 

C 

OPSI  8 0P3l  ♦ Fill) 

32  FDR  RB 

C 

2 0P32  a DPSP  ♦ HRT(I)*f(II) 

Sl  = MIXMWaOPSl 

32  a MTXMM*nPS2 ^ 

C 

- GAMl  a_CAMMA.  - l.‘_ 

C BB  FDR  derivatives 

BB.s  .GAMI /GAMMA aSA 

C 


—OERVVflJL? 

OERVVOlO 

OERvVOll 

DERVV012 

. OtRVVOl3 

DEHVV014 

DERWOlS 

DERVV01& 

. OERVVOl? 

0ERVV016 

DERVV019 

DERVV020 
DFRVVflPl  

OERVV022 

0tRVV023 

nERVV024 

OERVVOZS— 

0ERVV026 

nFRVvn?/ 

DERVV028 

_DERVV.1)^9 

OERVV030 

DtRWOSl  

0ERVV032 

— PEavVQAi i 

DEPVV034 

DERVVOSS  

0fcRVV036 

- OERWOiZ 

0ERVV03B 

-JJERVtVUliR 

OERVVoaO 

OEHvvoai 

OERVV042 

OEHVV043 1— 

DERVV044 

_OER  VtV  OOS 

nERVV04& 

DERvvoar 

0ERVV04B 

DERVV049 

0ERVV050 


I 

j 

I 


_A*  FOP  PEBIVATIVE3 

AA  3 SI  • rB 

ED«GAMt»(S?-91^ 

IF(RHaCON.ANO.V.EQ.O..ANP..NOT.TCON)TRHO«2 

oavar/divar, 

I F_( V E R 3 1 .EQ.  TTmEV  .AND, I P RCOQ_!lE . >>  DA  * VPA 

IF  (VERST  .NE,  TIMEV  .AND.  IPRCOP  ^GE.  3)  DA  « OA/V 

IF  (VERSA  ."nE.  AREAV)  Go  TQ  « 

AS3IRNE0_AREA  .EQUATJJW? 

DTFRM  a OA/ARE*  - AA 

_ T 1_T.J. .' / (HP  ■ l.i 

T2  3 M2*T1 

DV/DIVAR 

F(i)  3 v»tt»pterm : 

_p_RHo/o  i_v  AR : • 

IF  (rN’oT.'  RHQCON)  F(2)  a -RHO*(  T2aOTfrm  ♦ AAi 

OT/OIVAR  . 

IF  (.not;  TCflNirClt)  s -T*(eAWl*T2APTgRM  » 88) ^ 

IF(IRHO.EOr2)F(3js-f*E0 

' OAREA/DIVAR'WlTfnrVAR'  ’ “ 

IF  (vFRSi  .Vo.  tihev  Tand.  (iprcoo  >0."  1 !and:  V Thf. 

* 02A0T2(02A) 

if  (VERST  TnE.  tihev  .AND.  IPRCOP  TeQ.  3T  P2A  b P2ADX2fD ZAI 


T3  3 (D2a  - OA*DA/AREa)/ARF< 

DSIGMA/DTVAr  WRT  IVAR 

DO  3 Ie4,LSP3 

_1_* LPH A(P  3 .0..' 

—Oy/:Q  IVAR  WRT  IVAR 

AtPHA(l)  3 V*T1*T3 

DRHn/DlVAR  nRT  IVAR 
IE_ClNaTl,.RHI]COHl_ALPHA(2i_J 


_?iR!1D*T2a.15 


.C DT/OIVAR  WRT  IVAR. 

IF  (.'nciT;  icon)  ALPHA(3)  s -T*GAm1  *T?Ar3 


GO  Tn  6 

C ASSIGNED  PRES5ljRE.XQUl.TiaNS. 

a otfrm  s da/p 

. 12  3 -I./GaHWa 

c 


.OERVVOSI. 
DERVV052 
DERVV0S3 
DERVVOSa 
_DERVV055_ 
DERVV0S6 
_DERvvosr_ 
DERVV058 
DERVV0S9 
OERVVO60 
_DERVV06l_ 
0ERVV062 
_DERVV06i_ 
DF.RVV064 
■ DtRyyQ(>5- 

DERVV066 
_0ERVV06r 
DERVV06S 
_DERVV0^9_ 
DERVVOTO 
DERVV07I 
DERVV072 
DERVV073_ 
DERVV07R 
DERVV075. 
DERVV076 
DERVV077. 
DERVV078 
0ERVV071_ 
DERVV080 
DERVV081_ 
OERVV082 
DF.RVVQftS 
DhRVVORQ 
.PERVVOSSL 
DERVV086 
_DERV.V08J_ 
0ERVV088 
JiERVY(L8i. 
DERVV090 
DERVV09I_ 
DERVV092 
. DERVV093_ 
DERVV09R 

.PFRVV0?5_ 

DERVV096 
OERVV097 . 
0ERVV098 
0ERVV099.. 
OERWIOO 


DV/DIVAR 

IF  (V  7nE.  o7)  F(1)  « -OA/(RHO*V)<H,olS2sE*Ofc 

0RH0/(J1  VAR  ' 

IF  (.MOT.  RHOCON)  F(2)  m -RhO* ( T2»dTfRM  ♦ 

OT/Ol^AR  

IF  (.NOT.  ICON)  F(3)  a -T* (GAHl •T2*0TERH  ♦ BB) 


DP/DIvAR  WR^  fVAR 

IF  (VERST  .E(3i_TlM£V .ANO^  TPRCOO  D2A 

IF  (VERSl  .NE,  TIMEV  .and.  IPRCOB  .EO.  R)  D2A 

~T 3~ n02A  - OA*OA/P)/p 


ft2ADT2(D?A) 

02ADX2fD2A) 


.DERVV10l_ 

DERVV102 

r)ERVV103 

DERVVIOR 

OfRVVlOS.- 

DERVVlOb 

PERVVlOl. 

OERWlOB 

DFRVVtOR 


DERVVl 10 
PERWlll 
nEHVVll2 
PfcRVVll3 
OERWl  IQ 


C OSIGMa/oIVAR  WrT  IVAR  OERWllb 


DO  5 I«Q,LSP3 

OERWl  17 

c 

5 ALPHAd)  a 0.' 

OERWl  18 
0ERVV119  

c 

OV/OIVAR  WRT  IVAR 

IF  (V  .NE.  0.1  ALPHA(n  s .n?A / (RMHAui * 1 *0 1 

DERVV120 

OFbi/Vj?! 

c 

c 

ORHO/nlVAR  WRT.IVAR 

Ot:RVV122 

0ERVV123 

p 

IF  (.'not.'  RHOCON)  ALPhA(2)  a .RH0«T2*T3 

DEHVV12Q 

. DERVV125_- 

c 

OT/OIVAR  WRT  IVAR 

IF  (TnOT'  ICON)  ALPHA(3i  = .T ARAM f aTSaTA 

DERVV12S 

nFRuuj>7 

c 

6 CALL  PARn  * 

0ERVvi28 

nERWlRR 

e 

RETURN 

OERVVisO 
nrpwi  XI 

END 

0fcRVV132 

f*|on*rt  nr*  o r»r* in r>t 


COFEO  CrN.  ROUTINE-D^FfUSTON  equation  eon.-centerfd/non  centered 

3UBR0UTlNE^DFE01N0IFF,NBCL»JJ»CU#U:alNft) 

Logical  first  . , 

» 

DENOM(AA,'BR»CCI«(AA-BB)*lAA*BBi*(CC»AAWrCC«AAi*fCC»AA)*(AA»BB) 


C 

-C* 


r6EQ-»  EPSL*J*<0F/DX)aALPHA*0(BETA*(0F/0PMI)r/DRHi*6AMMA*DLTA*F 

♦ ETA*(DF/DPHI)  

FM!«30lUT10N  VecT0R-*PReV1QU8  STATION  oESTROVED  BT  CURRENT  STATION 


OFEOOOOl 

OFE00002_ 

OFE00003 

_DFEOOiJfl.9_ 

OFEGfOOOS 

OFEOOOOft. 

DFEOOOOT 

-OFEOOOOB- 

OFEOOOOT 


* aLPHa»rETa.GaHMA,DLTa»EpSLN,ETa**COpFFjcIENTS  in  PDEO 

* DELMl»r)F.LM»  NORMAL  STEP  SIZES  AT  PRFVtqUs  AhD_CURREN.T_STATXONS 

DFEOOOll 

DFE00012 

* DELXb  AXIAL  STEP  SIZE 

• BUClfDl.AN.RN.'oNa  BOUNDARY  COEFFICTEnTS 

DFE00015 

DFEQOOia 

* USES  NON  centered  5-PQInT  DIFFERENCE* 

OFE00015 
DF_£JJ0il4 

* OFFOOOIT 

* _ . DFE00019 

* STANDARD  iMPi  ICIT  FORM 

• 

DFEQ0019 
DFEa0020 

DFE00021 
DFE00Q22 

at  each  mesh  point,... 


' NBC--NORMAL  BC  INDICATOR— L*LORER»UaUPpgR 

bo  backward  difference 

al  USE  Two  POINTS  ABOVE  OR  ■BELOW  Bj^UNDARy 


extra  coefficients  STORED  IN  CARRVfl.l)  AND/OR  CARRTfl.NM) 
*2 U.8E  .B^C.._WHJJK_aATI8FY_DlFFEREMTlAL  EQUATION 


noief— indicates  difference  form  for  dtbeta*of>dphi)/dphi 

B 0 EX PaND  2»ND  DEhIVATTVE 


B|  USE  FORM  applicable  FOR  DISCONTINUOUS  FUNCTIONS 
common  /paran/ 

.*  ALPHA (?0Qi_.._BETA{20oj . QAMMAf2nO^  . 

* EP3LNf200i  , DLTA(200)  , 

_*_F.Mi(aooj . DEHU2IUI}- 


* PHII(200)  f NMl 

.*  Dx  _ ; 

* Bi  . ei  « Di  $ 

* AN  t BN  _ #.0N  

COMMON  /PARAMl/  ETA(200^ 

_C  OH  MON.y  V QFJLiy_NL  C- 


PHI2(200^  * NM 


CF 


eouivalencf  rpHj(i),PHi2(iH 

dimension  CARRT(200^fti 

dimension  PHI(200) 


DFEOO023 
OFEDOOER- 
DFE0002S 
_DFEQ002B_ 
DFE0002r 
J5EEOOJ)2B_ 
DFE00029 
.DFE00030_ 
DFED0051 
-DFE000S2- 
DFE0005J 
-DFEQOOIO- 
DFE00055 
-DFE0003B- 
DFE0003T 
-DFE00038- 
OFE00039 
-OFEOOOaO- 
DFEOOOai 
DFBOOOaE- 
DFEOOOOS 
DFEoooaa- 
DFE00005 
OFEOOOaA- 
DFEOOOOT 
OFE9000B-- 
DPEOCO«» 
DfEOOOSO  - 


DATA  riRaT/T/#NUM/200/ 


1 !ERINObO 


NGOLbNBCL^I 

NGnUaNPCIJfl 

N0F«N0IFF*| 

1F/PH1?(MMJ,I.E^(»H11(N*11)LCQ-I0_10. 


_ OELHIbPHII fSHJ j 
nELTAaPHT2f  *jh)«PHI1  (NhI  j 
»JE»JDa2*rFlX(PELTA/0EL‘ll)fNMl. 

S PHnfJi«PHTl(J«l)»OgLHl 
ALPHA(J)aA|  PHA(NMn 

BFTA(  J5sBETAtNHO_ 

GAMHaC  J)sGaMMA<!NN1  ) 

_ EPSLn( j)BEP3LS<NHl_j 

0LTA( JisOLTAtNMiy 

ETA( J)8ETArNHl^ 

<1  FmI  ( J)aFHl  f NHJ  ) 



IF(J  .let  NENO)  go  to  5 
NMJ«NC*<G  . ....  . _ __  . 


10  NHMlaNH*  1 

CQNaTRUCT  COFFFieiF.MT  APRaY_FOR  'lOOEflLP  JO_(NMm> 

■'OELTA-S  at  Each  STaTIQ-N  ARE  same,  bypass  INTERPOlATinN  SECTION 

T2~jTi  ■ 

0 ELlaPHlKJl.PHIKJ.ll 

OELSsPHIl  c,iAn-PHH(J) 

0EL3ePHl?(,|)»PHI2(J«ll 

_ DFLU«PHlg<.|»n..PHI2TJ) 

YaPHT2(ji 

^DEL30»0Ci'5*t)Fl.«[ 

0EL350»DeLi«0EL3 

_ 0ELttS0»0El.a*nEL0 

ASSIGN  21  TO  KOO 

tFTDELl.FO.GFUS  .AND,  0EL2.e0;0CLa»  nO  TO  19 

ASSIGN  37  TO  KOO 

LINEAR  interpolation  FOR  ALP, GAH,FM2,'EpS. BETA  EK 


NLCBI 

la  ALPaYOE(Y«PHIl« ALPHA* If NHl)  


OFE00051 

OfEOOOSZ 

OFE0005S 

.DFEQ0059 

OFF00055 
PFEOOOSfc  - - 
OFE00057 
OFEQ0058  , .. 

OFE300S9 

nFFQOOfeO 

OFEQOOSl 
OFEQOOfcZ  _ 
0FE00063 
DFEQOOSa  . — 

OFE0006S 

. DFFOO.OSS 

OFE0006T 

DFFQOOS# 

DFE00069 

OFEO0070 

0FE00071 

CFE30072 

OFE00073 

OFE00070 

OFPOO075 

0FEO007S  

OFEOOOT7 

OFEOOOiS 

PFE00079 

PFEQOOSG 

OFEOOOSt 

OFEOOOSZ 

OFEQOOSS 

PFEOOO*J 

OFE00085 

OFE0008S  

DFE00087 

OFEOOOSS 

OFE00089 

PFE0009Q 

DFE00091 

OFE0009Z  

OFEQ009S 

OFE00090  

OFE0009S 

OFE0009I 

OFE0009T 

OFE00096 

OFE00099 
OFEOOlOO 


192 


OAHaVOF(V«PHIl<C*HHA*l*NMl 

P'H?»vnF(Y#PHn,FMl  _ 

EPSsv3F(V»PMIl »EPSLN» 1 (NHl 

PLT*I«YJF(y,PH11,DLTA.!«NM1^ 

ETAlrYOFfY.PHIl,ETA»l,NMl> 

60  Tn  flS»lfc)»MPE 

IS  HayAOEia 

Z«Y*oeL3 

«ETL»YnF(Z7PHU,HETA.1  »NM1  I 

BET  «YQFfY^PHtt .BETAti 

8ETU«Y0Ffii.PHIl,BETA»l.NHl) 

_ GO  TO  30  _ 

C* 

C * _D  1 8 C 0 NT  I N U n U B FUN  C T tQ ►£ ( J E.T  A.* 0 E/J) PH I i.#* 4Ntj 

C* 

19  GO  TO  (gft.lbT.NOF 

IB  W«Y»  SaOFLA 

2«Y«.S*J)EU.3 

NLC«i 

BMHALF«YnFfZ,PHIl,J>ETA*j£Nilli 

FHHAI  FoYOF<Z,Pmi,ETA/l,NMl) 

BPHA1,F*  YOF  fW.PHTl.BFTA.i.NHp 

EPHAl  FaYOFfW,PHIl,ETA,l,NMli 

TF(J.ME.  2>  GO  TO  J>t 

aSVaBMHAi> 

ESVaFMHALF  _ _ _ __  

161  1F(J>E,  NMHli  GO  yd  20 

8SVy«9PJ<ALf 

FSVUbEPN'aLF 

25.J?0  _Ta,KG0.^..m,3.7J 1_ 

21  AUPaALPHA(.t) 

GAMBr,AMNA<4l ^ 

EPSaEPSLNCJ) 

BLl-A  1 a 0 Lmii 

etai.etaTj) 

E.B2«FH<ji^ 

IF(NOF,EO,?)  GO  TO  37 

__.C* _ 

c*  EXPANDED  2-Nn  DERIVATIVE  BRANCH—— 

C J*_JiJLBElA  * 0g7.DPMliZPPHlaP9ETA/PPHl*D^/DPHitBE1 

C* 

0FT8rETA(J5 

SETliaBETAC.tfl) 

- BFTL=BCTA(.f-l) _ 

10  D0al./0EN3M(PHI2(J),PHl2f J«l),PHl2rjBl)) 

D5  F T A a (.D  E L38a>(BETU^PFTl»PELfl  SQa(IIFT«BETi 

32  TSVcALPapXaDD 

TLa2.*TSV*BET 

TM«T9V*0BETA 

TNaOAMaPX  


PFEQOIOI 

.PFEOOlO*. 

PFEQOIOS 

OFEQOlOO_ 

PFEOOIOS 

JEEGOIOO. 

PFEQ0107 

_PFEQ0100_ 

PFE00109 

-DPEQOUiL 

PFEQOlll 

_DFEQ0112. 

PFEOOlll 

.OFEOOILO- 

DFEQOllS 

_DF^01i6_ 

PFEOOllT 

_PrEQ01lO_ 

PFE00119 
_OFEQ012(J_ 
PFC00121 
J)FCQ0122l. 
PFE0012S 
-DFEOOlPO, 
PFEQ0125 
PFE00126 
PFE00!2T 
J)FE0012a- 
PFEQ0129 
JFEOOlllL 
PFE00131 
_DFE00132 
DFE001S3 
_OFJf  00X10- 
DFC001S5 
.PFE00136. 
OFE00137 
PFEOOISB- 
PFEQOllO 
_DFEQ01/tl0_ 
PFEOOIRI 
PFEOOiaZ- 
PFEQOIRI 
PFEOOiaO 
PFEOOiaS 
_DFE00146_ 
pFEooiar 
PFeooiop . 
OFEQOUO 
PFE00150. 


TK»ETA1*I)X*00 

iMKfTKtiM 

* 

ss  CAR R V (J f j J ■ Tmk* 0 EL.m-1  L*D£Ui , 

C A R R V ( J , 2 ) ■ E P S ♦ T L • 0 E L 3 « ♦ T M K • t OELSSO^ftELisO) 

» •OLTAI*t»X 

CARRy{J,5)»-TMK*0EL330-TL*0ELS 

CARRV(j»a)»EP8*PM2»TN 

00  TO  3R 

* 

37  T3V«2,*aLP*DX/0El3<I 

.TL»TSV*BPHaI.P/OELR 

TMsT3V*9MHALP/0EL3 

T><30aM*DX 

Tkm« ’5*EmHaLF/0EL3 

TK  P « .S»E PHALP/OELa 

CAPRYM*ne"TM*TKM 

CARRV(J*2)«EP3*THATL^0tJLAl*J)XATj(fUtKM 

CARRy(J,3)«-TL<»TKP 

CARRYt J,a)aEP3*FH2*XN 

59  ir(j:i.T.WMMl)  00  TO  13 

* 

• 3T0RE  UPPER  and  LOWER  B.C,  IN  CARRY 

» . 

OELTlPPHitPI^PWIlil 

GOJO.  (OOf  a4»<lOO)»NGOi; 

ik 

qp  CA R Rl_(  1,1) • 0^ 

CARRYtt  »2)«91«C1/0ElTI 

CARRy(i,})«C1/DELT1 

CAPRYd  »a)»oi 

GO  Tn __07 

» 

96  CA  R RY(l»n»*CloP  H l_(  2)/(PHI  (3)«(PHT  f S^oPHI  (2)  ^ ^ 

carry!  t,?)»9l*(PHI(2)*PHI('3)|/{PHK2)*PMI(3))*Cl 

CAR»Y(t»3)«-CAR_RY(lj  lj*PHl(3)**2^Ml<2)**2 

CARRY(l,a)B01 

c,o.jn_ai 

k 

POP  D E L T 2 3 1 j, 4P.ELT1 

0ELTlSa0PLT2**2 

_ . CARRY(\,J)fO.’ 

TERM  = 2.*Cl<kALPHA(l)(kBsV(kt)ELTlS 

TFRWPsp.aOi  •i^LPMA  ( 1 ) *0pLT2 

CAPRY(1»2)b2.*RI*ALPHa(1 )»RELT2»TCRM,Cl*EPSLN(i)/0X 
.*_*CI*DLTA(!  )-CI*F3y<kOELTl 

CARRY(|,3)«TERM*Cl<kESV<»0CLTl 

CAPRY(l,a)8*Cl*(CAM»iA(n*FMl<l)<»EP9LN(l  j/0X>9TERR2. 

97  DELTNbPHKN'ObPHKNMHi) 

GO  To  (a8»a9t<llP)»NG0U  . ... 


OFEOPlSl 
. 0FE00152 

OPC00153 

DfE0P15q. 

OFEOPlSS 

PPE0P153. 

OFEOPlST 

0rE00158_ 

OFEQ0159 

orcopitP. 

OFEOPIBI 
- . OPE  OP  1 62 
OFEQPUS 

OFE00164. 

0FC0P165 

DP.E0016.3_ 

BFC0P167 

OFEqP^&S 

'0FE0P169 

0rF0''l7P 

L/E0P17I 

r'FE0PJ72_ 

iP50Pl73 
uFF5'ir4 
0FE0V>‘T» 
i/r  Ji..  ,76 
ope:  177 

DPE0P119_ 

r>rF5Ci7* 
__  0^E0P18P_ 

OPEOPlSl 

0FE0P182_ 

DFFOPlSl 

0PE00i8«_ 

0FE0P185 
OFF00186. 
OFE00187 
_ OFE00188. 

OFEOPIB* 

DFE00t9P_ 

0PCQ0191 

0FE0P192 

0FE00193 

OFEOPlPa 

0PE0PI95 

DFE00196 

0FF0P197 

OPE00198 

OFE00199 

OPEOP200 


c* 

4(1  CARRVrNM.'l)>«aN/DELrN 

DPE00201 

DPE00202 

CARRv(NN.2)«AN*BN/0E(.TN 

CARRV(NM,S)pO.‘ 

OPE0020S 

DFE00204 

CARRV(N>4.4i«DN 

DPE00209 

CO  TO  SO 

OPEQOZOb 

C* 

DPE00207 

49  PHTh1>PHT(nNH|}*PH!<NmN1} 

OFE00205 



PH1H?=PH1 (nH-S)*PHI(Nh«2)  OrEQ020» 

H* « BFFQQ210 


* (PHTM2*2,*PHl(^H)*fPHl(NMM!)-PHl(NH*2))»>PHlMl)  0FE002!l 

DENel  ./tn,-ZTO*PHJ(SMMn*ZTA*PMI(NM»2lj|____ OPE0021* 


CARSv(N'1,n*(ir»ZTA)*BN*0EN 

CARRY (NH.2iBAN«BN*DEN 

DFE0021S 

OFE00214 

[■ 

* •bn*olta(nh) 

CARRy<N‘1.5S«7TA*Rn*0En 

DPE00215 

DFEDOPIb 

1 

CARRY(NN.ai«ON 

Co  To  so 

OFE00217 
DFE00218 

[ 

410  DELTtal./(PHr(NH)«PHl(NMMlH 

OFEQ0219 

DFE00220 

DELTt  3«0PLT1**2 

TERMB*?.*BN*ALPHA(NM)*BsVU*OFLTla 

DFE00221 

DFE00222 

- TER*^3x2,*DN*ALPHA(NM)*0ELT1 

C4R»Y(NM, 1 j«TERM*flN*ESVU*Dri  Ti 

OFE00225 

DFE00224 

CARRY<NH,2l«2,*AN*ALPMA(NM)*0ELTUBN»|PSLNI’MN)/0X»Te(»N 
* •8N*ESVU*f)ELTl 

DFE00229 

DPC00226 

CAR«Y(NM,J)«0, 

CARRY  (NY,  Oi«HN*(GANMA(NHWEPSlN(NKWF*llfNMi/OXUTP»H2_ 

DFE00227 

OPEQOPPB 

C* 

c* 

call  TD3E0  FOR  SOLUTION  TO  SlMUl  TAMPOUB  EBUATIONI.’ 

DPE00229 

DFE00230 

c* 

-JL*. 

DFE00231 

DPF00PS2 

c* 

c* 

PIRST  call  sets  up  ADDRESSES  POR  T09ea..«IIVPA$S  ON  tuHSEQurNT 

DFE00235 

BPFOBPSI 

50  TP(,NOT,  PTRST)  CO  TO  51 

CALL  TDSEO(CARRV.NM,NUH,ERRt 

0FE00235 

pFFQn^lA 

FIR$T«.PaL9E.' 

CD  TO  52 

DFEOOPSr 

DFE0023B- 

51  CALL  TDSPQl 

52  IFfERR.’CT-'  oTi  IFRiNDal 

DPC00239 

nPFnflpao 

c* 

_ c* 

STORE  SOLUTION  IN. FHl  AnO  CONFUTE  OP/OPNI . 

DFE00241 

DFE00242  

. C*  ...  0FF002a5 

EM!(|)«CARRy(l»ti..  OFE00200 

FMI (NMisCiRRYCNH,! j DFEOOZOS 

DELT1*PHI  tal-PHltU OFE0020b 

DELTn«PH1(NH)*PHI(NMMO  OPE00207 

..  . IF(Bl  .’EQ.O*  ,ASO..Ol.FQror)  OPHKlUO.'  •-  — OFEQ02aB 

IFCAN  .ED,  0.  .AND.  DN.EO.O.)  OPMtfNM)soJ  DFE00249 

— J«2  — __  - . ...  DFE0025Q 
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FHl (J)aC4RRV( J<l) 

FHtf.I^OaCiRRVfJai.t^ 

DFE00251 

0FE00252 

0EL4?«PHT(.T)-PHlf  J»i  ) 

DELB?sPHT(.I*n.PHTf  Ji 

DFEOOZSS 

DFED025q 

DOOal  ./0FMn>1(PHI2(J),pHI2(J.h,PHI?(.l*l)i 

OFmI  f j)sf0FL*2*0Fl.A2*(Fj4LtJfn-Fi11.(Jli*i>ELB2*DBLB2_ 

DFE00255 

DFEQ025fc 

* *fFMl  (J)-FMl  (J«m  )*000 

J«J41 

DFE00257 
. ...  OFE0029B 

?F(  J;lE,»JHm1)  go  to  6} 

DFMif  ns«FMi  (n)/DE^.7l 

0FE00259 

nFFOO260 

DFmI  (NM)a(FHl  (NM)*Fm1  <NMMni/DE|.TN 

DFE00261 

C* 

0FE00262 

c* 

0FE0026J 

c*. 

DFE00264 

NMlaNH 

DFE00265 

100 

RETURN 

DFE002fc6 

END 

0FE00267 

I ceocash  thfrmo  phptvs  Of  fqlhrm  cohbn  c.as  - h iNnEf*,'  eocashoi 

^ SLmRPUTl>j£  EOGASH^FAR.WAP.Hr.T.P.FTXrn.FtXMn.Z. gORASHO? 

[;  'H,MwTtS»SPv»A,r.P)  FOCASHOS 

REAL  MkT.7fin.  OVjLBj EOCA3H09 

LORIRAl  FlVCflfFIXNO  E0GA3H0S 

rnMMnN/COlREM/MTnL.HO.OHDT.CTRMAx E0G.ASMfl« 

HTHLsO.Ot  FQGaSHOT 

MOsH, EJIGA  SHOa 

OV(1  1 = 0.0  F0RASH09 

10  iru  ^LT.lB9..0)Tslfl9.Q ^ EOGASHLQ 

TFfT  .GT.QOOO.  0)1  = 900  0.‘0  FOGASHll 

cal L E Q G a 5.TI F Attj!! a R . H c . j: . E ^,LKE.3«JLLXuQ, 7 , H 1 ,51ty »A j:iii E QG A. SH12 

1F((T.fQ. 1«9.0).ANO.(h1.GT.H0))GO  to  20  F0GASHI3 

IFfDVO  i:En.?S:O^Gf)  Tn  20 FORASHIO 

[)Mnr=cp  FOGASH15 

CALL  _»L«EMtl,HL,-5M0  jLtOyj F.OGASHIO 

!F(QV() ).NF. 0.0)00  TO  10  E0GASH17 

BEIUttii EfiGASHia 

C EQGaSH|9 

20  WRt  If(<>.30)T,h1.H0.CP.FAR , FORaSHPQ 

30  FO«'^AT(27HqEOGASH  - A<nl  CONVERGED.  Ts,F7.*2,aH  H*,Fe.?,  E0GASH21 

--  . HQs,  Ea^iil CPa^  Eg  >5  ..  F AR»^  FOuAj ~ ._EBGaSN22__ 

return  E0GASH25 

END E06ASH2<J_ 


n;r>rfc|  I no  n 'r> o r>  r> 


CEOCiSt  THFRmP  PWPTYS  of  FOLORM  CDMBW  RA'S  - T TNDEP. 

SUBRnllTlMF  FnCAST(rAR,WAP,MC«T,P,FTXrO»FlXign,Z» 
'H,MrtT,SrSPv» A.CP) 

_real  '^wT.znn.jj 

'LORIrAl  FIXCn/FlVNO 

^ OP  M ON./CHSr/FF(2S)  , HH(gS).33(?S),CCPi’?S),DCPDT(2S) 

OR  HER  nr  sPEriFS  s H»n»H  ?$n?,n» . M2n,rn,.'cng,N?,A»N0 
IP  Fixro.  7(r0)  AND  /(cn?)  mijsTbe  preset 

J f _f  i.*  N 0 »__?  ( fclOj p_  ?>  mU  3T  8F  PBFSfT 

G E T_E  a I 111  I nRlUH  c QPPQ  3 ITiriN  (MOLfS/Lr  MIX) 

TF(FA».'lt.O.O)FAR  = 0.0 

IK WAk.LF.O,O)WAR=tE“0 

C L PCEq  ? f F AR.WAR.H  C,T.f».FlYcn»FtXNn»Z) 

fntry  for  ‘oeterhtnatiqn  Of  thfRmo  propfriifs  of 

PR'F DF TFRm I nEO  Ml  X T URE 3 . 


ENTRY  FRRASI ( T,P, 7,H»MWT,S»SPV»  A»CP) 

c A_ri_T  (T/1 .6,  1.0) 

...s PF C I F_T  C_M nu R I T.V_(  1 / MW X ) 

10  SPMrQ.O 

no  20  1st  »t  1 

20  SPMa3PM»7(T) ' 

C 

X THERMQsTATTC  PRnPERTlE3 

C 

MhiT  = l ^ 0/3PM 

DATA  RO,  GO.. IJ/1  .90596, 3?.  1700, 778,"?/ 

C P_=  0 2.0 

HrO.O 

.3  = 0 , 0 

no  30  isi , n 

CP  = CP*7(T>«CCP(n 

H=H+7(T)»HH(I) 

3 0_S s 3 ♦ Zlll ♦.tHW uitE EIX ).-ALnGtANAXl  (Zf  lY.l|r-3B)n 

CPsCPaWO 

HsH*pn*T . , _ 

Ss(S-.SPM»Ar6c(H''T*P/t0.696))iRO 

psF  = i ua.o«p • 

SPysRO*  J,l*  t*SPM/PsF 

GAMrrP»MwT/PO  ^ ^ 

r,AMsr,AM/f  R*M-i  2o) 

4 = S0PT(PSf  *SPV*GAM*r.O) 

HFTURN  " 

EliQ 


"'EOGAStOl 

FQCA3T02 

E'fJCAST03 

eogastoo 

FOCASTOS 

EnGAST0_6 

FORAST07 

E'JCASToe 

EOCAST69'' 
FOGASTIO 
Eor.Asfn 
_ EOCaSTIZ 
FOCAST13 

FQGASTiq 

EQGAST J5 

F0GASTJ> 

FOGAST17 

_F0Ga^ST18 

F00AStl9 

FQGA.STPO 

F0CAST21 

F0RASTP2 

E0GAST23 
Ff)GAST?0 
FOCaST25 
F0RAST?6 

eYga3T2/ 

E()RAST29 

rOGAST?9 
FOGASTIO 

FQRASTSt 

FnRAST32. 

FOCAST33 

FQGAST30. 

FOCAST35 
_ E0CAST36_ 
EQGAST37 

EORASUa. 

FQRAST59 

eocastujl 

FOr.ASTOl 

roRASTO? 

FOCASTOS 

FORASToq 

FfJGAST«5 
rtjRASTa8. 
F0RAST07 
FORASTOS 
FnGASTfl9 
EOGA.STS.O. 


‘I 
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UB  H q^U  T I N E EQK  IN  (P>H»FlXCO) 

COMMON  /PSE3X  / H0C,HuM,C02ArR»MAIR»FS»FUELMM 
REAL  ' MAIR' 

COMMON  /GHSC  t FF(?S)»H?(25)«SR(2S),'cPZ(2S)»DCPR(2S) 

COMMO'^CEfJKlN/  BK»  AlK»DELHNO»OEN#XMMEO,XNn»XCO 

COMMON  /KlNlNS/  XMHUN,XMWC»TCON8T,COnER 

LOGICAL  TcDnUT 

Common  /pSE3  / PoA»BETS»TP»Xll6),OMoOMW»TEO»BEo»XMWT»MNtO 

equivalence  (XfTX ( iT) ; (X?, X ('2.' J » ( X3« x( 3) ) » ( xaVx (a ) ) 

* (XS*X(S)) 

Common  /PHopr  / PR*hhr« TR*rCR«RMOR,t)R,WMNTR  ^ 

common  /COTTS  / 0IT3»8LANK 

COMMON  /CKINETT"  0UMk(8<»)»RKl»RK2,RK37RKa»»K5/fK7ENTRYl 
logical  ENTRyl 

COMMON  /ccoco2>  coRaTeTxcoi 
logical  CORATe 


common  /CPRINT/  PDUMt 
COMMON  /SNmM  / AL3P(i50)»  HMT<7S) 

COMMON/OOIREM/KI'NF'IL 

logical  Fi_xcq 

DIMENSION  oTifiB) 

DATA  R0/l,<»e596/ 
bATA  Q / . Ul60i2b6/ 

'get  eouTli  br  iTHTb  e tTTt  e m p /etc!! 


X(7)~«  xCo  ^ 

X(ll)  S XNO 


H « H 

TEQl ^TP 

XJP  = O.JATEOl 

if(poum(20).le.o.o)go  to  10 

kinfil=poum(2o’)*o,i 

REWl N D KTNFIL 

WRI  tFUlNFlL#  1001  )P,Hh»FOA»HUM.HOC»XcO»XNO 

1001  FORMaKMSH  »»Eg<IN«o TEMPERATURE_ITERATION_HISTOR^jB.7xy 

'3H  P=,F8.M,etH  H = ,FiO,fl,8H  FoAs,F9,fc»8H  Huhs,F«»,N» 

'8H  H/C  = ,F6,3,8H_  XC0a,El3,6,8H_  XNOe^El3i6,j5X^_L32X) 

10  call  HCEQ2(FOA,HUM,H0C»lE01,P,FIXCO»7fRUE.«  X) 

XMWEQ  = 0. 

HHl  ' a 0, 

_ DO  12  Krl»ll 

XmwEO  s XMwEOAX{K)ahMT(K) 

12  HHl  s HHl  ♦X(K)*HZ(K)  

• HHl  a ROaTEQl*HHl/XHWCQ  

ER R_  a H H-HHl *_ 

IFCPDUM(2b),(;T,0,0)wRlTE(KINFIL»1002>TE01»XMWtQ,HHl» (X(I),Isl, 1?) 
1002_FOHMAT( JH  T*»F10,4»bM  M“»»FlO,b»5H  Mls»F10.4,27x,2HXat 


EQKIN 

EOKIN002 

'EOKINOO'3 

EOKINOOa 

EOKINOO'5 

EQKlNOOb 

EQKIN007 

EQKIN008 

EOKIN009 

EoKInOIO 

EQKINoil 
EQK1N012 
EUklN013 
E0KIN0_lq[_ 
EQ kino  15 
EQKIN016_ 
EQK1N017 
OIS 


EQK1N019 

EOKIN020 

EOKIN021 

EQKIN022 

E0KIN023 

EQKlN02q 

E0KIN025 

EQK1N026 

ECKIN027 
EOK1N028 
E0KIN029 
OKIN 


EOKIN031 

EOK1N032 

EDKIN033 

EOKINOSO 

EOKIN035 

EOKIN037 

EOK1N059 

EQKIN0S9 

EOKINORO 

EQKlNORl 

EOMNORg 

EOKIN043 

EQKINOqq 

EQK1N045 
FOKIN04b  „ 
EQKIN04/ 

£OiaN.OL4.8 

EUKIN049 

EUKIN05Q__ 
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»<lfcl!>.8/l?X,flfclS,H)  EOKINOSI 

CALL  tjIHEH(ItQl.E(?R,XjP,QV) EgKlNOSa 

IF(  QV(1),nE,0.  ) CO  to  10  EUKIN053 

KINFIL  = 00 ^ _E0K1N050 

TEO'  a TEqI  EOKIN055 


GAK 

a I.+FOa+HUM 

EOKIN056 

SJMH 

a ( Fn A* HOC /FJELmM*MUh*2./ 18,016) /CAR 

EOkINOST 

SIJMC 

a (FnA/FUELMW*C02AIR/MAlR)/CAR 

EOKIN059 

SUMO 

X (HUM/ 10,01 6*2. *( .209«95*C0?Air)/MAIR)/CAR 

EQKIN059 

SUHN 

a ?,*,7Hn0Hl/(HAlR*GAR) 

EOKIN060 

SUMA 

a (,009b2U-C32AlR)/(MAlR*GAR) 

EUKIN061 

ux 

a .B* (CO2AIH*MATR/lO.Ol6*MUH)ASUHM/,70O88t 

FUKIN062 

SPmO 

a ,S*(SU^<j+S[rMC  + S'UMH*SUMN-Zixf73UHA 

EOK1N063 

SPHC 

a .8* ( ,5*SUMH+SUMN+SUMn)+SUMA 

FOKlN06a 

IF(  FUa.GI.FS  ) SP'1C  = .5*(SUMH*SUMNT*3UHcfSUMA 

EOKIN065 

XHWUN 

a 1,/3PMU 

EOKIN066 

XHUC 

a 1,/3PHC 

EQKIN067 

DEN 

a 1 ,/(3PHC-SPhU) 

EOKIN06S 

BEO 

a ( 1 ,/XMwEO-I ,/xMwUN) ADEN 

EUKIN069 

c 

EOKIN070 

c 

calculate  terms  for  kInETICS 

EQKIN071 

c 

EOKIN072 

RHQS 

a 19l,«XMWEaAP/Ti595,32*tEO) 

EOKIN073 

rhocgs 

a C2*RH03 

EOK1N079 

TK 

a TEO/1,8 

bUKlN07:> 

TEMP 

a TP 

EUK1N0T6 

TP 

* teq 

EOKIN077 

Call  ratcon<  p ) 

FOKIN078 

60  Tp 

a TEmP 

F0KIN079 

RATE 

a «KH3CGS**2/XMwE0oa3a(RKl*Xl*x5*RK2*Xl**2»RK3*Xl*X2* 

EOKINOBO 

* 

RK«*X2*J»2tRK5*Xiaxa) 

EOKINOSI 

8K 

a 0,  . 

EOKINOeZ 

1F(  BEO.GE.I.  ) GO  TO  100 

EOK1N083 

B 

a RATE/((1 ,/XMWE0-l,/XMrtC)A*2ADEN) 

EOKIN089 

8K 

a B*(1,-BEQ)A*2 

eukinobs 

c 

EOKIN086 

lOo  return 

EOKIN087 

F.NO 

EOKIN08S 

CERRORl  OIPEm  QUITS 

SUBRnUTlwE  ERROR! 

LOGITAL  NOOATA 

DIMENSIOKJ  a(22) 

COMMON/COIREM/YTOL* YO,OYDX.TUmANY/OQtRFm/NFIi g 

CALL  fLCEOr(NFILE,NOOATA) 

end  file  NFILJ J 

rewind  wrilE 

_ wRTTFtfc,  100)YTOL»Y04^0yI>X.TUNAMY  

100  FORHATtSHOYTOLe.rifc.a^SH  Y0s,Ei67s*7H  DYDXb,F1 
•E16.8)  


DO  10  LIWES*1,3000 

_REAO(NFILEtLli)iji 

IFINPOAI  A)r.O  TO  20 

iO_WRITE(a.UoXI 

110  FDRMaT(2?A6) 

20  CALL  ERROR 

return 


6.B»9H  TUHANYb; 


_ ERRORJO! 

EHR0R102 

...ERRDR103_ 

ERR0R104 

ERRflRlOS 

ERR0R106 
_ ERR0R107. 
ERR0R108 
ERRDR109_ 
ERRORltb 
FRRDRl 11 


ERR0R112 
. FRR3R113. 
FRRORlia 

- ERRQRllS. 
ERR3R116 

— ERROfiltL. 
ERR0R118 

— ERRORHR- 


CERRORC  RELATIVE  ERROR  IN  TNTEGRATinM  RTEp 

FUNCTION  ERRnRC(Y,RK»E» JC»H) 

C COMPUTE  THE  RFLATIVE  ERROR  IN  AN  INTErRATION  STFP  OF  St7E  H 

C . 

C oftermine  The  controlling  Variable 

c 

OOUBI E PRErlSION  ONPt ,0N.0NM1,C»ABSV 


DIMENSION  v(2fl),RK(28)»Er2fl) 

C 

COMMnN/CONn7DUMl?35),LS,l  SP^.NEXT 

CQXMnN/STNT/HMTN.HNMl  .HNiHNPt  .HMAX.‘NH,AVH»EMAX,'ERRN».tCV>KOIJ 

'COMMnN/PQRF/PK  f ?8)  , Qt((28)  ,DuM2  I56)  ■" 

rOMMnN/5KlP/NEGL(25). n , 12, IT 

C 

C » fH_»_HN)/(HN  ♦ HNMlj 

FAr.I  a ARSfH«H/(2;iH  ♦ hN))»<2.*H  « HN)/(H  ♦ HN  ♦ HNMt)5 

e 

FRRORCa  -l7 

DO  J<-  l8l.'LSP3 

Fd)  ■ 0. 

IF.  CABS(RKtD).^»fQlj).;i_Ga_i£i_a 

ARSY  « ARSfY^in 

I F _(  A p S Y...  . )_5J3_JQ_4_ 

DNPJ  s RK(T)/H 

DN  8 QK(.T)/HN 

DNMt  a PK(1)/HNMt 

F A C ?_3  D A B S ( tPNPl  Dm)  j.  .C.*  IDN  - DNmII  ^ 

c CHECK  FOR  Catastrophic  subtraction 

. ____  T F_(  F AC  2 J ! E . _ A B S ( D nP.I OF-oq)  GO  TO  ^ 

Ed)  e FAC1*(FAC2/AB3y) 
r T .1 


II  a I - 3 

C SJ<1P  NEGLECT£D_jjPEtl£a 

DO  2 Jet.ly 

I F_  ( N E G L(JJ_ J£D  1 1 ) GO  TO  q 

2 CONTINUE 

3 IF(  Fd)  .I  f:  FRRORr  V GO  TO  q 

FRRORCa  Fd) 

JC_s  J 

q CONTTNUE 

~ r'eTurn 


._ERRORCOL 

ERR0RC02 

ERRORcnS 

FRRORCOq 
_ ERRORCOS- 
FRRORC06 
_.ERRORC07_ 
FHR0RC08 


ERRORCtO 

FRRORCtl_ 

ERR3RC12 

kount»frrperrorci3_ 

ERRORClii 

FRRQRCIS 

ERRORCt<> 

ERRORCIT 

FRR0RC18 

FRRORCl*)— 

ERRORC20 

ERRORCZi- 

FRRORC22 

ERR0RC21- 

ERRORCpq 

ERRORCZS- 

FRR0RC28 

EKRORCZZ- 

ERR0RC29 
FR  R 0 R CZ-R- 
FRRORC30 

ERRORC31_ 

FRR0RC32 

roorior 


FRRORCSa 

£RR3RC35_ 

FRR0RC36 

ERRORCSZ- 

ERR0RC38 

EKRORCIR- 

FRRORCqO 

ERRORCal- 

FRRORCqZ 

ERR0RCq3_ 

FRRORCqq 


• FILL 


CFItL 


.aUBRQUTlNE_FltL4X*l*Nl*Jiiai 


/rsiTs/BiTS 

DIMENSION  XU0)j.Yli0l 

find  TA.iB  « Vacant  region 

IAkNA*>  

1F(Y^1A-!);E0,8ITS)  6o  TO  99 

a DO  0 lelA.NS 

IF(Yf  D.nL'BITS)  go  To  5 

^eONLTNUi 

IB»NB 

^5Q_TQ_i 

5 TBsI-i 

I F.(  KLO.IAi-GO-TQ-lZ 

fill  vacancies 

lF(VflB»1).NC^Y(TA-l)i  GO  TO  9 

all  VAI.UF3..THE  SAME 

_?^00  8,IIslA*15| 

fl  Y(insY(rA-|) 

KD  Tn  tP 


INTERPOi  ATF 

_9. 0 x„s . X Cl  B 1:^ 

DO  i;  tis1a»ib 

Jt  YCTIl  S (YfIB*ljA(X(Il)-X(IA-l))_f  VflA.-UALXUBin-XIllhi/JDX^ 
GO  BACK  and  search  FQR  MORE  REGIONS 

19  TA  m IR»9 


IF(I.lT.NB)  go  TO  3 

99  return ^ 

END 


FILLOOOl 
_FlLt0002_ 
FILL0003 
PTi  I Anna 


FILL0005 

-_riLL0009__ 

FILL0007 

„F1LL000JL_ 

FILL0009 
FILLOQlfi__ 
FILCOOlI 
_FlLL0jai2_ 
FILL0013 
_riLL0019_ 
FILLOOlS 
— r-IU.flDl.9_ 

fillooi^ 

_FILL001*L_ 

FILL0019 

_FlLLfl021— 

FIULOOZI 


ui'r-r4 


F1LL0025 

JFlULflfl29^ 

FILL0025 

FILL»029 

F1U.0027 


FIllOOZ’ 

.FlLLOLfl30_ 

FILL0031 


CFUEL  THERmD  PRaPERTlES  OF  R*R  FUEL.VAPOR 

C 

SUBRnUTlsE  FIJEL(N,TR,h#CP) 

C 

REAt  K,C(7'.Z) 

C 

c N !s  H/c  ratt:i  of  fuel  

c'  C ARE  NASA  CriEFFlCIENTS  FOR  C2H<I 

C _ 

OATA  T1  n*l,T'<ir).THl/500*0»  !000.()»SoO0.O/» 

'C/^,0SS?!S?,  I , 1 J)91fln5E-?.-'l.  JsSlTSOE-fc.J.'MSSJiQSt-iOf 

•-S.*0i?3<?f)0r-l«,(r.'7t)Oaq4t)F3,'a.‘t)'>87<)597 
» 1 .u2b8R2l  , 1 , 1 3flil«OF.-?,7>fl<>00ftfeF-6,-l,&253&79E«8, 
'6.79<>1258E-!2,7.62<>?582E3,  1.9&2l8l9Eii/ 

C _ _ . . _ . 

PNnM(T)=Al4T*(A2*T»(A3*7*(A/(fT*A5))) 

TKaTR/1.8  

C 

T P f T K , G E .'o  r ^ 5 * T LO  w ; A NO  J K . L E .’t  H I ) GO  Jq_20_ 

wRITF(h,99Q)TR 

1 F ( T K . G T.;  0^0  A N 0 T LEL^I  72  0 Go  Jn_l  fl 

CALL  error 

10  MRITE(f>.99B) 

C 

999.FOR‘'AT(ioHorllEL  TEMP» pR.  1» 22K  OEGR  JS  OUT  i)F-.  RANCE^ ) 
998  FOR'^ATdOH  extrapolated  VALUES  RETURNED.) 

c Telect  Te^perature^Xnge 

20  Ks2  

IF(TK.GT.ThI0)Ks1 

c 

c COMPUTE  ENTHaLPY  of  ETHyLENE 

A2«Cf2,K)/2.0 

A3=CC3,X)/3,0 

A«zC(9,K)/0,0_  

ASsC(5,K)/S,0 

HRTsPNflMLTK) 

H»HRr*l ,9Bs98*TR/28,059 

C ~COMPrjTE  SPECIFIC  hTaT 


AlsC(l»X) 

A2sC(2.K) 

A3sC(3,Kj 

.A9  = C 

ASzC(5,K) 

CPzPNOMCTtl)  *1.98596/26. 054 


EUELOOOl 
FUf L0002 
FUEL0003 
FUFL0004 
FUFLOOOS 
FUEL0006 
FUFL0007 
FUFL0008 
FUEL0009 

euelooio 

fuelooil 

FUEL0012 
FUFL0013 
FUELOOlfl 
FiJFLOOlS 
FUFL0016 
__FUEL001jL 
FUEL0018 
FUELOOl’ 
EUEL0020 
FUEl0021_ 
Fl)EL0022- 
__FUEL0023_ 
FUEL0020 
FUEL0025 
FUFL0026 
EUFL0027 
FoFLOOPe 
__FUEL0029_ 
FUEL0030 
FUFL0031. 
FUFL0032 
FUEL0035 
FUFLOOSa 
_ FuFl0055_ 
HJFL0056 
FurL0037_ 
FUFL0038 
FUrL0039 
FuFlOOoO 
FUFLOCai- 
FUFL0042 
EUFLOOaS 
FUFLOoaa 
FUFLOOaS 
FuFLOOaS 
FUELOOa/. 
FUFl00«8 
FUEL0009 
FUFL0050 


OlO  ,«J  O O 


GE  standard  GUESS  AT_  JET„FUrL  HEATlNf,_v>!Lue EUEL005J, 

, . FUElOOSZ 

__  M y = n « a fc flb.0U»T7977.7»N)/(t  1 , 91  fl.bSf N j FilEL0053. 


FuFLOOSa 


HEAT  OF  VAPURl7>TinM  aT  77F  IS  ABOUT 


, FUEL0056 

HsH-?Og75.0»HV»15S.O FUFlO057 

return  FUFL0058 

i.NO ^ FUEL005? 


I 


eCAHCP  compute  gamma.  CP— 

SURROUTINE  GAHCPr  TT.fiAH.CP. 

— <P.M.'  HECK) 

RfiAS.JI . t2i 

c* 

01MCNST3N  TT(1).GaH(1).cP(1) 

c* 

c* 

VALID  tEHPERATURP  RANgEb  tJ 

LirSfcOO 

1 R0J«RGAS/77S.' 

00  10 

T«TTa) 

TFfT.’LE.SOO.i  GO  TO  50 

C*. 

if(t;6e.i6oo.)  go  To  ao 

GAM(L)a2;2T708/T**  .’070271 

60  TO  10 

C* 

50  GAM(|  )«l*a 

C* 

GO  TO  10 

c* 

ao  GAM(L)«i'2Ra 

10  CP(L)#GAM(|.)*ROJ/(GAH(Li*»l.') 

RETURN 

END 


FUNCTION  6amh  Hiex 

fUNCTlON-GAMHITJ 

IFtT.LE,  BOO.)  GO  TO  |0 
IFtT.CE.  SfcOO.)  60  TO  12 


GAHHa2.'2S70S/T*«  *070271 

GO  TO  15 

lO_6AMH»iiO 

60  TO  15 

12  GAMH«l‘2<5a 

IS  return 

END 


CAMHOOOl 

.6AHH0002 

GAMHOOOl 


GAHH0005 

GAHHODOA 

GAHN0007 

GAMNOOOj 

6AHH0000 

GAMNOOlO 


GAhHOOII 

.GAMH0012 


CGCKP 


sununuT 

COM  M n.N_ 

’logTcal 

COMMON 


REAL 

COMMON 

REAL 

COMMON 


COMMON 

REAL 

COMMON 

> 

Tog  iTaT 

lorical 

INTEGER 

COM»ON 

COMMON 

common. 

REAL 


MATN  DRIVER_ROullNE_FnR  GCKP»I  CaLCT 

InE  'GCKP(  KK  ) 

/TRoUhL/  FRR.E » RHaJ.INFRR i£RliSR 

ER'r.ErRma  J,  InERR/PREpr 

/I^^TA/_N,HP,  wAR,T?,aFTA,T?S7FARS,ElN(}?C,Pfl, 

RCO(l I ),RCO?(t l)»RHCf 11 )#RNOX(l 1 ), 

PJJJJ  i tPS  ( 1 1 ).»  8L0C  ( 1 1 i»  QCUf  1 1 ) 

N 

/■lETDAT/  NPT.StPAOf  l?i,TS(l  P 1 » l|  fl  ? i > SP  V ( 1 » M Wifi  ?i. 

CP(1?).FUU|  (12)»SPALr>Gfl?),TKE(t?)70THER!  (56) 

_ MWT 

/GASCMP/  RICH(t2,?)7Ft}EL(27l27?)7ENTH(?,l?,?)# 

rONC( 16,2, t ?»2)»MCTNrPf 1?,?) ,0THrR?(192) 
/GARTmW/  TG(2,i2,?) ,MwTG(2,l2.2),TA0(t2,2),CPG(2,l2,2) 

MWTG 

/STrTRL/  LSTA,rINAL,cHEM'<»FlR?iTM,FlRSTC,XC,OXc» 

NtST.PflMT  t .OUMSTUn) 

FINAL, FIRSTm/fIRSTC 

._p  0 un  

chemk 

/rPPTNT/  PDUM(?0) 

/rON^  / OVAP,  area, moot, P,TVAR,V,RHO,T,Cf25)»lS,‘l5iJM2(2) 

/pRlN  / PRlN.rt501.NPRNlS,END.Ey3IEP.. 

IVAR 


/rPPTN 

/rON^ 

/phln 


PODTt  s TfaLSE. 


SFT  GCKP  COMMONS 

- E * Lfl  a 1 

T : rG(l,K,2) 

’ t con 


OVAR  3 0. 

1VAR-  .-C  -TAU£K,jj 

NPRNtS  3 1 

PRINT! Dr  jriUCK,.21 

XMW  s MWTG(1»K»?) 

C.A.LL  FM.PYCfJD(“<UClN.Cf C«16) 

TF(  final  .and.  LSTa.fO.1  . AN0.'<,ER.  1 ) POUTl  ■.TRUE.' 

IF(  final  ) WRITE  (6,S0)  K . 

IF(  PDUMf  ID.NE.O.  ) WRITE  (6,50)  K 
_ 50  format  (lHl,/'/////X///:///////y//Z////74rx.27H*A»  S-T  R E A M 
*"  R F,PX»I2,5X,5H**ii) 

C ALL.J5C.1P  LX_S  193-1 

FIRSTCs  .'false.' 

. CALL  M.OVE(l.C,CaNC(l.I,K,li,U,Lj 

TC(t,<,n*  T*l.'9 

GO  TO  200  

199  FRR  X .'true. 


GCKPOOO.l 

GCKPOOo'a 

CCKilO  005 

GCKPOOOR 

GCKPOOOS 

GCKPOOOA 

GCKPOOOi 

GCKPOOOS 
G C K p 0009 

gckpooio 

GCKPOOl 1 

GCKP0012 

GCKP0013 

GCkPOOIR 

GCKP0Q15 

GCKP0016 

GCkpOOU 

GCKPO018 

RCKPOail 

GCKP0020 

GXLKPJIQZJ 

GCKP0022 

GCKP0023 

RCKP002R 

GCKP0025 

GCKP0026 

GCX  £01122 

GCKP0029 

GCKP0029 

GCKP0050 

GCKPOOJl 

GCKP0032 


inwifiliiii 


r,CKP005a 

_ GCKP003S 

GCKP0036 

GCKP0032 

RCKP0058 

i;CKP0039 

GCKPOORO 

- GCKP004J 

GCKP0042 

T GCKPOOOS 

GCKPOORR 

CCKPflOAlS 

GCKP0046 
GCKPOOaT — 
RCKP0049 
GCKP00M9 
GCKPOOSO 


CGCKPJ  RENFRAL  CHFMlCAl_JK.lNETltS_»*Rn6RA!< 

SUORflUTlME  GCKPI(a) 

_£ pqTATNFP  FROM  Diy  PITTKER  3F  NAiAA  

C 

L0GICAL_NEXT.EV_31E_R 

c' 

REAL  !vAR 

c 

cOMHQM/cnMn/niiHi  f a) , l var,  y f ?t\) , 0 ?)»me xt 

CaMlOKj/SI^T/MMlN,HlMT,HN,HNPl .HIAx.MM, AvH^EHAX.ERRM, jCv»KOuNT, 
COMinN/Pt)Rp/PK(?fl)  ,!3Kf?H)  ,RK  {?8),F<2R) 

COMHON/PPl  nj/PRT  mT  (5n)  ,mPrmTS.EN!)»EVSTEP 

COHinN^ /STcTRL/  I STA.FlNAL,CRrH<,FTRRTM,FrRSTC»xr,OXCf  

~ * ^'IST,P0UT1,0UHST1(8) 

LQRICAL FIRSTc, FINAL 

I.OGICAL  POliTl 

CnM^ON  /CPRINT/  POU“(?0) 

C - -----  - - - 

C _ RFaO  and  convert  input,  PFRFQRm  pre-ktnettc  calculations 

CALL  KINP  ■ 

■ 1 IF  (AiFXli  RO  TO  1 000 

c 

C PRINT  RFACTfONs.  assigned  VARIABLE _PRriFlLF»  INTFRRatION  CONTROL 

IF(  FINAL  .AMO.  POUTl  _)_CAlL  OUTl  

'c' 

C confute  (NOn«INPUT)  initial  CONOITIONS 

CALL  PREOl 

_C 

c PRINT  ALL  Initial  conditions 

IF(  final  i CALL  OUT? 

IF(  POil'Kin'.'NE.'O.'i  C*LL  0uI2 

IF  (NFXT)  RO  TO  1 000 

C 

C_  INITIAL  intfgration  steps 

CALL  INTI 

NH  «_2 

AVH  « HINT 

IF  (nExTI  RO  to  loop 

C 

IF  ( r^ini^^FVgTEFj  _Gn_TiLJ 

c 

c AA  INTFGRATnN,_-  PRINT  RESULTS  AFTeR  EVERV  STEP 
2 NH  » 0 

PRFV  r IvAr 

CALL  INTG 

NH  8 NH  A I . 

AVH  « HN  ” . 

IF  (NH  ,NE*  1)  AVH  s (IVAR  - PREV)/Fi'OAT  (NH) 

IFI  FINAL  T CAI.L  'JUT5 


RCKPIOOL 
GCkPI 002 

GCKP1003 

GCKP100« 
_ GCKP1005_ 

GCKPI006 
GCKP1007 
GCKPIOOB^ 
GCKPIOQR 
EfiRPRCKPlOlO 
r.cKPlOl  1 
GCKP1012 
GCKPI 0l3_ 
GCKPIOIR 

GCKPlOlS 

GCKPJ018 

GCKP1017_ 

GCKPIOIB 

GCKPJ0J9 

CCKPJOPO 

GCKPi_0/l_ 

GCKPJ  022 
S GCKPI 025 
GCKPI 02a 
GCKP1025 
GCKP1026 

GCKPIO?! 

GCKPI  028 
GCKPI029_ 
GCKPI 050 
GCLP105l_ 
GCKPI 032 

GCKPI 053 

GCKP105a 
GCKPI 035 
CCKP1036 
_ GCKP1037 
GCKP103B' 

GC<P1039_ 

GCKPlOaO 
GCKPI oai 
RCKPloa? 
GCKPioas 
GCKPI oaa 

GCKPioa5_ 

GCKPlOOb 
GCKPI oa7 
GCKPI oas 

GCKPI 009 
GCKP1050 


IF  (NEXT)  r.0_TO  

HTOP  « END  - IV*R 

IF  (hTOP  .I  E.'  0.)  GO  TO  too  


IF  ((HT3P-HNP1)  .LT.  0.)  HNpl  a HTOP 

GO  TO  ? 

_ locate  first  print  station 

3 00  « lal.NPRNTS 

IF  (PRTNT(T)  .GT.  IVAR)  GO  TO  S 

« continue 

_S_N^a_l 

»*_jNTFGRATnN  PRINT  RESUlTS  AT  PRINT  STATIONS 

00  "10  i*ns7nprnts 

NH  s 


GCKP105L 

GCKP1052 

GCKP1J)53_ 


GCKPlOSa 

.GC.KP1055_ 

GCKPIOSG 

-RCkPJ.057_ 

GCKP1058 

GCKP1060 

GCKPto6l_ 

GCXP1062 

_GCkP10<»3_ 

GCKPlOba 


C 

PREV  8 IVAR 

GCKPlObb 

6CKP10fc7 

c 

SET  NEXT  PRINT  STATION 

GCKPlObO 

PRNT  * PRInT(I) 

GCXP10b9 

c 

intfgrate  To  print  station 

GCKP1070 

b HTOP  s PRNT  - IVaR 

GCXPIOU 

IF  (HTOP  .IE.  HNPl)  Go  TO  7 

__CALL  INTG 

NH  8 NH  « t 

IF  (NEXT)  GO  TO  8 

GO  TO  b 

special  step  to  print  station 

L_C  A L L._  C A S G Jf  H Nj  QK.HTOP.RK) 

ERRN  s E9PnRC(V,RK,E»JCV,HT0P) 

_C  A L L _ P-R  E 0— 

NH  8 NH  » 1 
VH  = fIVAR  - 


IF(  FINAI.  ) CALL  0UT3 
_1  F ( P OU*' ( 1 1 J .NE.Q.  ) CALL  QUT3 
IF  (NEXT)  GO  TO  1000 

—CALL- inti: 


IQQ  RETURN 

C 

1000  WRITE  (b.lOOn  ..  

1001  format  (7Ho(GCKP),5X.abHA  FATAL  ERROR  HAS  OCCURREO 

*ATED) 

RFTURN  I 


GCKP1072 

GCKP1073- 

GCKP1070 

GCKP1075. 

GCKP107b 

GCKPI-0.7-1- 

GCKP1078 

GCKPlOZa. 

CCKP1080 

GCKPlOai- 

GCKP1082 

criTBi 


GCKP108R 

GCKPlOaS- 

GCKPlOBb 

GCKPloai- 

GCKP1088 

GCKPioaa_ 

GCKP1090 

GCKP1091-. 

GCKP1092 

GCKP1093.. 

CASE  TERmINGCKP109« 

CCK  PiO  9Jx_ 

GCKPl09b 

GCKPin97 

GCKP1099 


CGMJO 

C ... 


modify  initial  r.  profiles  to  force  rapid 
homogenization  of  lo«  yrich*s 


_SUBRUIITINE  G.MJDEY 

COMHON  /CHITS  / HUS.BUANK 
REAL  mjet,mUREF,N 

dimension  CNAMK12) , AlF(  t?)  ,SCM(l?j,tPC(3S),r.JE  r(?00),  Y(200) 

• 'JD(200),TH0(2O0), 110(200), ED(200)  . 

real  MdlPI  ( 100)  ,mJlF2(  100)  ,MOL'"^<100),MOLE«(t  00)  , 

. 'MOLPbC  10Q).7MOLKt)C  10  0), -MULF 7(100}, MQLradOOii 

*ml)LF9(  1 no)  ,nOLF10(  1 00)  ,MnLE  1 1 ( 100),HnLF12(  too) 

dimension  RA0(12),TS(i2),UJ(12),SPV(12)  

INTEGER  MWT(12) 

dimension  CP(l2),FUEL(12),SPAL0G(12);iKf (12),0THrRr3fc),  

*TIlLF(2n),p-»INT(  un  ,RcU(  1 1 ) ,Rcn2(U  ),RMC(  1 1 ) ,RN')X  ( 1 1 ) ,PT(l  1 ) 
-LPSdJ.)  ,3LJa(l  10 7 (lCOCU-Lt.Hii:uCaai,OiClNCP(a.R.X,XlJUL-Ua3,ENTHUB 
*C0NC(/6H),nlHER2(192) 

DIMENSION  SPLOGl  (12),F(2,  12,2),PDUM(.?0i 

equivalence  (FUUL(1),F(1,1,1)) 


_N  A ME  LiS  T /UX  111N,POUMj-Y  Alfi 

NAmElISF/GmODOT/NPIS* YMIN,FUEL*P»SPAi DG,SPlDG1,GJET,NJ,R1CH 


DATA  P0UM/20»0.0/ 


-C atAD-g.R£J£T  INPUT. FJU: 

C 

I_REAO_(n , 

• 0IAJ,MJet, TIJET, VJET,PE, TF, TTE,VE,GFX,RG,PR,PRT,Sr,TREF, 
A mURCF,OIFF,nC,CNAME  » ALE.SCM,CPC,NJ,NM»CTl,CT2,CT3,CTa,CT5^ 

• CT6,CT7;Ct«,G.IET,  Y,UD*  THd7tID,EO, 

il_.MOL F- dMOL f-2 , -M 0 L E 3 , m 0 lP  L F- S r-MOL-F^^^ : 

• MOLF7*  M0LF8,  mole  9,  nOlF10,M3LF1  1,M0I-F12, 

.A  NPT;,RAD,TS,UJ,1>PV,Mw1,CP,FUEL»SPALOC,TKE,3THFR, 

• TITLE,PRInT,N,MF,WaR,T2,0ETA,T2S,FAr!>,FINC12C,P0» 

A-RCO, RC 02, RHr.,RN(lX,p  I ,PS,OLnC,OCO, 

• R1CH,HCT.NCP,FUUI  ,ENTH,C0NC,0THER2 

*_,GCX 

REWIND  1 

YMlNaO.30 

YAIRaHITS  - _ _ . . . 

READ(S» A) 

C 

YmIN1s(1.0-YmIN)/YmIM 
DO  10  NNal,NPTS 

10  SPLDGl (NN)=AmIni (SPaLdG(NN),Ym1N1*(FiiEL(NN)-F(?,Nn, I ) )*»2) 
GJET(l)  = SP|.Dr;i(l) 


GMODOOOl 

GMDD0002 

r.MaDOoo3 

OM3DOOOa_ 

CMOD0005 
G.MODOOOb 
, CMOO0007 

GMOOOOOd... 
r,MCID0009 

C-MODOOIO— 

r.MODOoii 
. C.MOD0  012- 
GMOD0013 
— - CMOdOOIU  - 

, CM009015 

X, Gj^noodiix— 

GMOD0017 

CMooooia 

GMn00019 

GMOD0020- 

r,MOD0021 

GMr)DO(X?2_ 

GMODOOPi 
GMODOOaO-. 
GMO00025 
. CMODOOPS  - 

GMOD0027 
6M.00002a~ 

GM0D0029 

6MOD0050- 

GM050031 
GM000032- ■ 
CMDi)00i3 

GMr)D00-39 — 

CMQOOOiS 

GMOOOOSb 

GMno0037 

6M900038 

r.MOOOO  39 

GMOOOORO— 

GMooooai 

GmuoO0«2 

GMnD00«3 

GMOOOOaR 

GMcnno«5 

GM-DDOORp  -• 

GmODOOOF 

GMODOORa 

GMnD00R9 

r.MODOoso 


212 


NPPlrNPTS+’t 

00  50  NN7l,»4PPl 

Js6*(NN-i) 

iF(k*n,Ea.i>so- TO  ao 

Gjn(J)  = 0.5»(SPLOGl  (Nm-1  )+SPLOGl(NN)i 

GJH(J+l)=0,  USPLOGI  (MN«t  )40.9*SPl.f>Gi(»lKj 

IF(NN.E3.'npP1  )G0  To  90 

20  jppsj»a  

DO-iO-J=JPP  rJP9 : 

30  €JET(J'sSPLOr.l(NN) 

CJET(JP«>1  )=0,9*SPLDGUN^J)♦0.1*SP^,06|(N^♦^>- 

GO  TO  SO 

- 90  GJE  T(J*2)=SPL0G1  <NN) 

SO  CONTINUE 

IFCYAlR.NE,QITS)HICH(NPPl)rYAlR 
IF(PoOM(l).Jslt,0,O)WRlTE<6,CMOoat4 


rewrite  PREJET  FILE 


GMO00O51 
GMOOOOS2 — 
GM000053 
-GMOOOOS^ — 
GH000055 
■ GMOOOOSfc — 

ghodoosi 

GMOD0058  - 
G.HD00059 
-GHOO^O^O — 
GM00006> 
GMODOO^a  — 
GMOD0063 
GM000089 — 
GMOD0065 
"•GMOOO  0^8 
GMOOOO&7 
-GM000088 — 
GMn00069 
GM000070 — 
GMOD007I 


WRITE  (t)  GM000073 

A-0IAJ,MJET,T-UET,VJFT,PErTF,TIF»VE^,6pX»RG,PR,PRT,5r.rTRFf-r — &HOD0O79- 

* MUr(EF,0IFF»NC,CNAHE,ALE»SCM,CPC»NJ»NN#CTl,CT2,CT;i,CT«,CTb,  GHOI>007b 

A.  CT6,CT7,CTtt»GJET,  Y,Uc>,  THD»  TI0»£O» GM000076- 

* MOLFI  *'10LF?,MnLF3»Mai,Fa,MnLF5»NOLF6,  GM000077 

*--M0LP-7-r^0Lf4W-MQIr<‘9^0L-F4-0yM0<rP-M-rJ4TH.-P^ GMOOOO^^ 

* NPi;,HA3,T3»UJ»Spv,Nwl,CP»FUEL»SPAL0G»TKKfQTHFR»  GM050079 

- * TI  fLE»PRlNl,N,HF,MAR,TP,HCTA,Ta5,FAp5#€lNnaC»P0^ GmOOOOBO- 

A KCD»9CJ?»RHC»RN0X»P1 ,PS,BlOC,QCO,  GmooOOSI 

A.  RICH»HCINcP^FUUL»ENTH»CONr,aTHERa GMOOOOOa- 

A »GEX  GM000083 

RtlijBN fr»*0000A4- 

ENO  GM000085 


lUM  COMPDSITiQN  CH(N)»*IR-H?0  S 

BRUTF-FORCF  METhO0_ 

LIKE  HTEOl  EXCEPT  CQHPOSI UON 'rETURNED'mOLE  FRACTIONS 

auBHou  T iNE~rtc  Tcj  2 ( F A R ,Ta  r7hc7  t »~p  TfTxc  o7f1  X noTz  Z ) 

LURIcAl  FIxCO,F1xND,SaMix,tROuBL,NOSqlN,DONE 

LOGICAL  OISSOC 

REAL  MF,K1  ,K?,k'J,KR,K5/i.NK6,LNPK6 
dimension  7(11)#ZZ(11) 

■ dimension  RCSWAYRy.OzOi 

common  /GHsC  / FF(?5),HH(?5),SR(2S),CPZ(g5).DCPR(Z!>) 

E0UIVALENCE(DSUMH,3(1) ), (DSUM3#B(2)), (0PK6.B(3n»  

' (DZH2,DZ(1 )). (DZ02»02(2))# (0ZH?O,OZ(3)) 

“ ORDER'OF  "SPEclES  V~Mro7H2T02rbH7H20iC07c027NTrA7Nb 

THOUBLa  .^ALSE. 

SaMIx=(FaR-JLOFaR*WaR-OLDWAR*HC-OLOHc).EO,0.0 
IF(SamIX)GO  to  10 

~C  A L CU  uTt  E ~EQlj  I vTCE  N C E““R  a flO 

OLDFARaFAR 

OLDwaRsWaR 

OLDHCaHC 

MFal2.0Ui;008AHC 

FAHSa0.209«9S/28.9<»66*MF/(l  ,0*0,25*HC) 

ERsFaR/FARS 

TOTAL  pound-atoms  EAC H CONSTITUENT  PER  POUND  MIX 

GARsi ,o*fap*mar 

SUMHs(FAR*H”C/MF»WAR*2.0/l8  70l6J/fAR 
SUMC=(FAR/MF+Jt -9/28,9666) /GAR 

S U'M  0 s (■  wSir 7 r37oT  6»2.  o' *(0,2099  95f  }Efa)/2a,9666)/GAR 
SUMNs2,0*0. /«0881/28,9666/GaR 
SUMA=0.0095?9/28.9666/CAR 
CCa2.0*SUMr ♦0,S*SUMH-SUmO 

■ZZX  = 0,S*(3K-9*28,9666/lfl,016*w*R)*3bMN7077'80R8l 

CCLaSUMC*0.S*SUMH-Z2X 
IT  (tCL,LE,0,0)CCL  = iE^T5 
CCRaO,S*(SiJMO-SUMC-ZZx) 

'lO  BETAleo.Ol 

OPK630,^_  

SET  CONCENTRATIONS  OF  IsOLAtFP  SPECIES,  ZERO  OTHERS. 

CALL  3eTh(1»0,0,Z#11)_  


HCE0200I 

HCEDZOOZ 

HCE02003 

HCE02009 

HCEQ2005 

HCED2006_ 
HCEO2067 
HCEOZ008 
HCE02009' 
HCEQ2010 
HCEOZOir 
HCE02012_ 
■HCE02013 
HCF02019 
HCE02015 
HCF.02016 
HCE020i7 
HCEazoia 
HCE02019 
HCE02020_ 
HCE32021  ■ 
HCE02022_ 
HCF02023 
HCE32029 
'HCE02025 
HCE02026_ 
HCE32027 
HCE02028 
HCEa20P9“ 
JHCE02o3_0_ 
HCEazdsi 
HCE02032_ 
HCE02033 
HCE32039_ 
HCE02035 
HCE_320J56 
'HCEo2037“ 
HCE02038 
HCE02039  ■ 
HCEo2090_ 
HCE0209I 
HCE32092_ 
HCF02093 
HCE92099 
HCEg209S 
HCE02006 
HCE32097  ■ 
HCE020a8_ 
MCE02099 
HCE02050 
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IF{FlXC3)Zr7)sZZ{7)/(ZZ(7)*ZZ(8))*SUMC 
1F(FIXN0)Z(1 l)sZZ(ii)/CZZ(ri)»2tO*ZZr9))*SUNN 
IF( T .EQ .OLDT)Ga  TO  20 

GET  EQUILIBRIUM  CONSTANTS  ' 


OLOT«T 

TXK  s T /1, 8 
CALL  THRM{  TXk  » 1.  ) 

T<  1 = Ex  p ( FF  ( ST*  FFTsy-^Twrrm 

K2=EXP{FF(^)*FF(fl)-FF(6)-FF<2)) 

-KT=FT(  5)  tPF  («.)  -FF  (ST-"Fr(T)“^ 

IF (KJ.GT .88.0)K3sSa,0 
K J = ExP(K3)  ' 

Ka=EXP(FF(8)»FF(5)-FF(6)-KF(7)) 

K5=ExP(FF(9)+FF(a)-2,0*FF(ll)> 

LNK6S  FF(n»FF(S)-FF(6) 


LNPK6:LNK6«AL0G(P/ia.696) 
OISSaC3(LNPK<i.LE.6O.0)  .ANO.  (CCRtGT.lF»8) 
IF  ( .nut  , 0 1 SSOC  ) BE T AYao  , o' 


~lNlTIALne  PRIMARY  SPETTES 


IF(ER,GT.l .0)G0  TO  50 

BETAl  a amaX1(  BETA!.  Z(7)/CCL*  (Z( 1 1 ) »CC) /CCL  ) 

BETAI  s 8fcTAl*l,000000l 

Z(3)«BETAl*CCL-Z(7L  __  

Z(9)aO,5*(Z(3)*Z(7)«Z(li).CC) 

GO  To  00  


30  BETAl  s AMaXK  BETA!,  0,S*Z(l l)/CCR»  0 .5* ( Z ( 7 ) -CC ) /CCR  ) 

BETAl  = BETAl»i.000000i 

Z(0)aBETAi*CCR-0',5AZ(ll) 

TF(FIXC3)C0  TO  55 

AAAaK«-l.'0 

CCCaCCt?.OoZ(a)»Z(li) 

BBBa-(CCC*AAA»K4*SUMC»0,5*3UMM) 

__  CCCacCC*K4*3UMC 

Z(7)r-0,5*(BBBfSQRT(BBD**2-4,0*AAA*CCC))/AAA 

35_Z(5)sCC*2,0*Z(a)-Z(7)»Z(l  1) 

40  2{6)  = 3UMLI*Z(7)-2(1  n-2,0*(SUMC*Z(4)) 

IF(DTSSJC.AND.(Z(0).LE.O.'o)1  Z(a)3tE«50 

_BE.GIN  J1FLRAU3N 

00  100._Irl,30 

RADICALS  from  EQUILIBRIA 

Z(S)a3QRT(KtAZ(5)AZ(4)) 


HCEQ2051 

HCEQ2052_ 

HCE02053 

HCEQ20S4_ 

HCEQ20S5 

HCEQZOSfc 

HCEQ20S7 

_HCEQ20S8_ 

HCEQ2059 

_HCEq2060_ 

HCEQ2061 

HCFQP062 

HCEQ2063 

HCEQ2060_ 

'HCEQ206S 

HCFQ2066_ 

■HCEQ2067 

HCEQZObS 


HCEQ2069 

_HCEq207_0_ 

HCEQ2071 

_HCEQ2072_ 

HCEQ2075 

HCEQ2074 


HCEQ2075 

_HCE02076_ 

HCE02077 

HCE0207B„ 

‘HCEQ2079 

HCEQ2080 


HCE02081 

JiCEQZOBZ 

HCEQ2085 

_HCEQ2084_ 

HCEQ2085 

HCEOPOBb 

HCEQ20B7 

_MCE020BB_ 

MCEQ2089 

_HCEQ2090 

HCEQ2091 
_HCE02092_ 
HCEQ2093 
HCEa2094_ 
MCEa2095 
MCEQ2096  _ 
HCEQ2097 

_HCF.0209S 

HCEQ2099 
HCE02100  . 
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Z(2JaK?*Zn)W7(UWZ?61 HCloZm" 

Z(nsK3*Z(3)*Z(5)/Z(6)  HCEQ2102 

1F(HXC3)G0  TO  50  ' “ ^ ' " HCE02l05 

Z(7)aK«*SUMC*Z(  J)/(Z(<>)*Kil*Z(3))  HCE 02100 

' 50  Z(fl)=SUMr-Z(7)  ■ HCEQ2105 

IF(FlXNJ)Gn  TO  00  HCEQ2106 

202x5=0,0  ' H C r 0 2 i 0 7 

IF(OlSS3C)Z02KSsO,25»K5*ZtO)  HCEQ2lOa 

2(li)=SQRT(ZO2K5»(Z02K5t2,0*3lJMN))-2o2KS  ' HCEQ2109 

60  Z(<))  = 0,5*(SUMN-Z(11  ))  HCEQPltO 

C ■ ^ " ■ ■ HCEQ2ni 

C H>0  COnTI-^UITT  OEFECTS  ANQ  3>B00Y  EQUli  IBRIUm  DEFECT  HCEQ2112 

C HCEQ2ri3 

0SUMH  = SUMH-Z(l)-Z(5)-2.0<r(Z(3)^Z(6)) HCFQ21ia_ 

■ 0SUMO  = SUM0-Z(2)-Z(5r-Z(6')-Z(7)-Z(ll)-2.O*(Z(«)*Z(8j)  HCEQ2115 

SPHso.O HCEQ2116_ 

00  7o  J=l,ll  ■ ■HCEQ2117  . 

70  SPM=SPM*7(J)  HCE02lld 

l>TiytSS0C)0PK6  = LNPK6«AL0G(Z(6)/Z(l)*sPH/Z(S))  HCEQ2 1'l  9 

C HCEQ2120 

~C  TEST 'FOR  CONVERgEmcE  HCEQ2121 

C HCEQ2122 

6UNE=(A3S(h3l/MH),LT'7rE-6<rSUMH“)  ' ' HCEQ212r* 

' .and,  (A4S(oSumO).LT.  lE-OASUMO)  HCEQ212<I 

T,  aTTO  . CAdSCoPKb  ),LT,1e-6  ji  HCEQ2T2ir" 

IF(DONC)  Gn  To  <)9  HCE02126 

C ■ ■ ■■  ■ ' HCE02127  ‘ 

C partial  derivatives  TO  direct  CaNVERGENCE_  HCE02128_ 

~“C  ■ ~ HCEQ2129 

e HCEQ2130 

C UNOlSSOClATED  RICH  MIXtuRES  HCE02131 

C HCE02132 

IF  (JTSSUOr,  j T0~75  * HCE02l33r~ 

ZCnOH?  = Z(7)/Z(3)  HCE02l3‘> 

ZCO0C=Z(7)/S0mC  ■ HCE02135 

DzH2O=(0SUMJ*0.5*ZC00H2*(l.0-7CaOC)*OSUMH)  HCE02136 

'TITTo  + 2c 00 m2 > Z CT) 0 h2 • Z c 0 D c * ( 1 . o7Ka-i,o) ) H'CE02 137 

OZm2=0.5*DSUMH-0ZH2O  HCEq2138 

DZ02=0,0  • - - HCEQ2139 

GO  TO  99  HCE02100 

C HCE02iai 

C HCEQ?ia2 

C DISSOCIATED  MIXTURES  HCEQ2l«3 

C HCEQ2iaa 

7S  Z3sAMAXl(Z('5),iE-36)  ' HCEQ2105 

ZUsAmaxI (Z^9), 1E-I6)  _ HCEQ2ia6 

A(1)=2.0*0.S*(3,0*Z(1)*Z(5))/Z3  MCEQ2ia7 

A(?)  = (ZJ?)*0,5*Z(5)_)/73 HCEQ210B_ 

OCODX=K9«SU'iC/(Z(6)*K«*Z(3)  )**2  ' HCEQ?l«9 

1F(,n'JT,FIXCO)A(2)sa(2)-OCOOXaZ(6)  _ _ __  HCEQ2150_ 


216 


f 


A(3)3(1 ,5*2(1 )«Z(2)«Z(3)«0.S*Z('S>«2,0*SPH)/SPN/Z1 
A(a)*0.5*(Z(l)*Z(5))/Z« 

■ A(5)*2;o*(Z(2)*0.!>*Z(S))/2a 
DNOOOZsO.O 

lF(Z(i|)  ,GTraE-38/KS)ONODO2*0'.5*K5*2(9)/(0,25*K5iZ(fl)*Z(ll)) 

IF(  .NQT.FIXNO) A (S)sA(S) *0^0002 
A(6)  = 0 , 5 * ('Z(1)*Z(S))*Z(2)4Z(4)«SPH 

IF(,NaT,FIXNO)A(6)«A(6)*0.5*DN0002«2f4^ 

A(6)s4(6)/SPM/Z4 

A(7)«2.0-Z(1)/Z(6J» 

A(8)sI;o-2(2)/Z'(6) 

1F(,nDT,F1xCO)A(8)sA(6)*OCODX*Z(3) 

1)'»Z(2)*Z(6)*2,0*SPM)/SPm/Z<6) 

NTlTIE^tTMATls  OF  »FtlMAfty  3PE«ES 

C A L IT^  ti  lvTT kTBTD  Z »nosoln) 

99  TROUBL*  THOUBU.OR.NOSqLN.OR.  (I.EQ.2Q  ) 

PROBLE HDIACnOSTICS 

IF(TRaU8L)MRlTE(6»1000)l*Z 
T000"rORMAT(lX,l2,8X,  lPTlTil,4) 

IFCDONOGO  TO  110 

OZLlMa-o;99*Z(3J 1 

IF (0ZH2,LT70ZLIM)0Zh2sOZLIM 

____Z(i)sZ(S)*0ZH2 

OZLIHa-o;99*Z(4) 

IF(Dza2.LT70ZLIM)PZ02«P2LIM 

Z(4)sZ(a)*0ZO2 

Z(6)3Z(b)»PZH20 

100  C ON T I NUE 

TROUBU*  .True, 

problem  PIACnOBTICS 

no  IF( TRaTrBL)WRITE(6,l00l  )FAR,WAR,HC,T»  P TriXCOfFIXNO 

1001  FORMATdSHO  I H,  

•'  10'x,IHO,10X,2HH?,9X»2m5?»9X,2HOH,9X,3HH2O, 

»2HC3,9x,3HC32,flX.?HN2.9X,2HAR.9X,2MNn/ 

IZSHOP'SEOZ  olACNOSflCS  FARs,F9,6,6H  HAR«,F9,6,5H  HC«»E10,3» 

»4H  T8,F9.2>7H  P=,K1  O.S  ,BH  FIXcaafL2f8H ELI XN0a»L2 ) 

C0MP0SITI0N_RETURNEB_AS.M0LE. FRACTIONS 

call  FMPYC(1,1.0/8PM,Z,ZZ>11) ^ 

return ...  


HCE02151 

HCE021S2 

HCE021S3 

HCE02154 

HCEa2lS5 

HCE321S6 

HCEQ21S7 

HCEQ2158. 

MCE02159 

HCEQ2160_ 

HCEQ2161 

HCE02162_ 

HCE02l6i 

HCE02164 

HCE0216S 

HCEQ2166_ 

MCE 02 167 

HCEQ216B 

HCE02169 

^HCEQ2170_ 

HCF02r71 

HCE02172_ 

HCE02173 
HCE02174 
HCE02175 
__HCE02176 
HCE02177 
_ HCEl32|7e 
HCE02179 
HCEQ21B0 
HCE02181 

HCE02182_ 

HCF.Q2183 

HCE02184_ 

HCE0218S 

HCEP2186 

HCE02187 

HCEU2l88_ 

HCE02189 

HCE02190_ 

8X.HCE02191 

^BCEQ2192_ 

HCE02l9i 

HCE02194_ 

HCE02195 

HCE02196 

HCE02197 

HCEQ219^ 

HCF32199 
...  HCE02200 


CHCE03 


FUl  L-EOUILIBRtUM  composition  CHfN)-*TR-H?n  SYSTEM  HCEO300I 

C 1 IkE  HCEQ?  except  CQHPPSlTlnN  PFTURNFD  MDIES/IR  mix HCEQ3QQ^ 

C ...... 

subroutine  HCERPfFAR»M*R«HC.T.  F .FT XCO. F T XNO. 72 > 

C 

L OG_I  CAL  FT  yCO.FTXNO.SAMIX.TROUWL  »NnSnLN.OONE 

logical  nissnc 

REAL  *<F,k1  .'K?#K3.Kq,KS»LNK6.LNPK6 

OIMFnSTON  7(1  UtZZdlT 

pTMENSn»j  Rf3).  Ar9i>P7T3)  ^ 

COMMON  /RHSC  / FF(25),hH(?S),SR(?5),CP2(25),0CPR(?5) 

C 

EOUlVAi  ENCFIDSUMH.BdT^  # (DSUMO»B(2T).(OPKfc,n(3))» 

' (D7H?,07f  li).  f02n2«DZf2n.(0ZH2a.D7(xil 

c 

C n« OER  OF  SPECIFS  ■ H,n,Hg..n2.QM.H20,C0.C0?.N2.  A»NQ 

C 

T R_n UP L s LSE." 

SAMIXsfFAR-OLDFAR*M*R-OLDWAR*MC-OLOHc).EO.O.O 

IFfSAMTXiGn  TO  10 

C 

c calculate  fquivalence  Ratio 

c 


OUnFAR*FAR 

OLOmaRsWAR" 

OLOMrsHC 


MFst?,0t*l  .'008*HC 

FARSs0.209«95/2B:9666»MF/n .0^0.25*Hr) 

c 

ER=FAR/FARs 

• 

C 

r 

total  POUnO-aTOMS  each  constituent  PFR  pound  MIX 

GARal .O+FAptWAR 

S U N H r L F A R * H C /_M  F ♦ R»  2 IP /JR  ,^016)/GAR : 

SUMC=(FAR/MF  + 3E-R/?fl.5<’6hir/GAR 

SUM  Os  ( w A R n S . 0 1 h±2  0^  ( 0 . ?09<i95t  3E-q  ) /?»  .'96<>6  ) /GaR 

SUMN  = ?ro*b.7fl08ai/28,96<>6/GAR 

SUMAs0.no9x29/2S.'9b66/r.AR 

CCsP.OASUMr+O.S^SUMH-SUMO 

7ZX=n.S«f  3F-u*jS.’9bbb/lB.'016*WAR)*SUMN/0.’7H0We!  

CCL  = SUMC*o75*  sVmh- Z Z X 

TFfcrL.LE.n.OKCLslF-l? 

CCR=O.S*f SUMO-SUMC-ZZX) 

10  RFTAliO.Ol 

OPKbsO.O 

C ’set  CONCErNTRAlTONS  OF  TsoTatED  SPEc7es7  >^90  OTHERsT 

^ p .oTzTTTl 

7f lOlgpUMA 


k. 
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kx  X XX  xz  XX  x'x  XXX. X x‘x  x)x  x*r  x!x  xlx  x'l  X be  X X x'r  ilx  I X zx  i!r  xlx  x’x  X .z  X 
oonnr)npnnnnnr>noooo!nor>o.nn^oorinr>r>ooor>or>oonoo>rioonon 

pOOOaol^OOOOOOOOOOOiOClCIClOOpOOOOOOOboOODOOOOOOOOOOO 

^0|0000|0  0■o00000p0000?^too»000  oooojoo  oopoooioooooo 


0.0  0 : ; ,oo;r» 


lF(FlXC3)/f 7)=77(7)/(ZZ(7)*7Z(a))*SUMC 

1F(  FtXM.nZf  n ) = ZZ(  » 1 )/(77f  1 1 U?.0*77f  <>)USI]MN 

IFfl .FO.lLntJGO  TO  ?0 

“EQuiriWRT'uM  C ONsf A NTS 


HLOTsT 

n(^K  _ e T_/l  .ft 

CAIL  tM^M(  TXK  , 1.  ) 

_ K1  sFxPf  Fr(-^UFF(<I  )»2.  n*FF(S) ) 

"if,>=tV»f"Ff^)*FFfU)-FF('6)-FF(?)) 

K?  = -F(T)*FF(Sl-rF (h)-FFj  I ) 

TFf  KT.r.T  >K.n)K  <sttH.O 

K1  = EXPj[^<_\) 

K a = £ X>  f FF  f n ) ♦FF ( T ) -FF ( 6 ) -F  F ( 7 ) ) 

_ KS=f:xpfFF(o)+FF('4 )-2.o*FF(i I n 

I k'kSs  FFf  I )*fF(S4-FF(6) 

i?o  I sP^hsL  vKhtAi  .jr.(P/ia.<>'>a)  

DlSSnr.r  n.MPKb.'LF,60.'oj.'AND.(CCR.GT.lE»B) 

TF(.Kj3T.r)lSSnc)qFTAi8ft.O 

T ^ I T I A l_I7 E Pp  T M A R Y_s P£ C lES ' 

TFCFR.r.T.’j.’rijr.o  TO  30  

OFTAI  s amaXK  RtTAl#  7(7)/CCL.  (Z{ 1 1 )»CC ) /CCL  ) 

HETAI  « HET»l«1^00000tLl 

Z(3)=dfcTAl .crL-7(7) 

Z.fjt ) =_0_;5iLZl3  ItZ  (7)“Zfln»CC) 

r.ij  Tn  <40 

50  P E T A t _s_A >■  A X 1 ( „n E _T A 1 CRt_e . S * ( Z 1 7J--C C )y c cjlJ 

PfTAI  = PFTA I »1 .0000001 

7(44):»PFTAUCCH-o:S«7(in 

TKCFTxr  n/.n  T'l  3S 

AAA  = X'4-l.”o  ^ 

rcr=rr*p.'o*7(ouz(ii) 

. «PP  = -Cr.CC*AAA>KU*syHCt0.5*SU.HHi 

cccsrcr»x<4*suMc 

LLLls  snRTn3,iH»«?-a:o>AAA«rrriT/AAA 

55  Z( 5)=crt?.n*/(a)-z(7)f7(1 li 

«0  7(6)  = Sll'43t7.(7)-7n!  )-2^0*(f  JNCtZtflil. 

TFCOtSSDC. AND. (7(0). LE. 0.01)  ZTOlslE-BO 

C BEGIN  TTERATnN' 

c 

00  100  Isl.50 

r 

C PaDTCAiS  from  rOIITl  IBPIa 

r._„,  _ . - 

Z(s)ssnRi(K)*zf3)*Z(a)) 

7f?)8'<?«7(  5)  «Zf '4)/Ztbl 


HCE03051 

HCFQ30S2 j 

HCF050S5 

HCFQ50'5« 

HCE03055 

HCE0305b 

HCF030S7 

McraTosa 

HCEf)3059 

HCFO5060 

Hcroiobi 

HCF030b2 

HCEOSObS 

H C Fi?  1^60 

HCE030bS 

HCFOSObb 

PCEOSOb; 

HCFO5068 

HCFaTobO 

HCFDTOTO 

HCF03071 

HCE050r2_ 

HCE03075 

MCEQ307fl 

HCE03075 

HCFn3Q7b 

HCE03077 

HCEQ30I9 

HCEO3079 

HCE0308Q 

HCEOToni 

bLJ:jl3ilS2 

MCE03085 

HCEQSoea 

Hr.F03065 

HCEQ3onb_  — 

HCF03087 

HCEQ3Q!5a 

HCEt)3089 

HCF.05090 

HCE03091 
HCEt)5092_ 

HCFt)3095 

KCE3  30931 

MCF0309S 

“CE0509b 

HCFD5n97 
MCEa3099  . _ 

HCFQ3n99 

HCLQllQQ 


i 
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Z(1)=K3*7(1)*Z(5)/Z(6) 

lF(FtXCD)Cn  TO  50 

Z(/)=Ka*SUMC*7(3)/(Z(6)«K«*2(3)) 

50  7(P)sSI)HC-7(7) 

IF(FlXMr|)Gn  TO  60 

Z 07  KS  s OjJ5 

I F r D I SsnC)7O2K5s0.25*K5«2<Oi 

7(1  hs.STRTf  702X5*  (Zn2K5»?.0«SUM»J)>.Zn?KS 

60  Z(9)rO.S*(SllMN-Z(l  1)  ) 

'h.O  CONTlNulTV  OEFFCTS  AND  s-BOOV  EOUli IfiRlUM  DEFECT 

dMmh  = SUmH-Z(  1 )-7(5)-2.0*(‘7(3j*2C6)) 
r>StNn=Sl.lMO-Z(2)-7(S)-7(bl-7(7i-Z(1  Ol.2.~0«(7(0>»7(Rf 
SPM=0.0 

00  70  Jsl.il 

70  Spm*SPm*7(.|) 

!F(0lSS0r)nPK6sLNPK6«»tL0G(7(6)/7(ii*SPM/7(S)) 

TFST  Fnt^  CoMVFRGEmCE ' 

DONE  g(  ABS  (0S11MM).\T.tF»6AS1IMH)  j 

• .AND^(ABS(nS'UMO)  .l7  . if*(>*sumo) 

' . AND.  ( AJS(r)P^K6_)  .’LT.tF«6  ) 

IF (DONE)  GO  fO  99 

partiai  derivatives  to  oirfct  convergence 
UnOISSoCIATEO  rich  mixtures 
TF(0tSS0C)R0  to  75 

ZC0DH2  = Zf 7i/7f3) 

ZC00C  = 7(7)/SllMr 

p Z H 20  S ( 0 S gM  Cl i 0 3 *7CnPH2A(l.’o-7CODCI»n5UMH) 

I / ( I .0  + 7CO0H2AZC'-10H2*Zcn0CA(  I .0/K«-l,6)) 

D7H2=0.,‘5»DsgHH»D7H?0 

OZOZsO.O 

GO  Tn  99 

piss octated  MIX ly Rf s 

75  Z3SAMAXI  (Z(3jjIE-36j 

zaiAMAxi (Zfa), IE-36) 

A(l)r?.0>o:5M3.n*Z(h»Z(S))/75 

A(2)=(7(2)»0.S*Z(5))/73 

. PC0DXsKa*SuNC/(Z(6)AK«*Z(3))*AZ  

IF ( .NUT.FlXCO)A(2)=A(?)-0Cn0XAZ(6) 

..  A(3)r(1..5A7(l  I^zfPItzl'ltO.SAZlSJ-P.OAS^^D/SPM/Zl 

A('nsO.S*(7(1)*Zf5))/79 


HCEO3I0I 

HCF03102 

HCE03105 

_HCE03I04_ 

HCE03105 

HCE03lfl6 

HCF03I07 

WCF03lflB 

HCF93109 

_hCFo3LL0_ 

MCFOsm 

_HCF03J1_2_ 
HCE03M3 
HCFn31 IQ 
HCE03115 
__MCE03m_ 
KCE03117 

_HCFr)3MA. 
HCE03I19 
HCE03)20 
HCEOitZI 
_HCE031?2_ 
HCE03t25 
_ HCE03t2Q 
HCE03t25 
HCFQ3126 
HCE03t27 
_HCFf)3l2_8_ 
HCE03t29 
_MCEo3t.30_ 
NCF03I3I 
-ijCEQ3ll£. 

HCF03135 

_Hcr03i3Q. 

HCE03135 

_HCF03136_ 

HCE33137 

_i1CEQ3l3?L 

HCE03139 
_MCEQ3I90_ 
HCF03141 
_HCF03I«2_ 
NCEQ31Q3 
_HCr03iaq_ 
MCEQ3ra5 
. HCE031U6 
HCF03ia7 
hCE03i«B 
NCFP31Q9 
-HCEfliliCL 
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DNODnaso.o 

TF(7f 'n  .r.T>F-lS/KSSDNODn?  = 0.'S»KS»Z(O^/f  0.?S»KS»Zf  a)»2( 

lF(.N'JT.FlyMl))4(S)=A{s)»ONnon2 

A(h)=0.S*(7(n*7fS))_t7f2i+?(a)-3PM 

lF{,NDT.FIX'JniA  (h)sA{6j*0.5*OM0002AZra) 

A(f>)rA(6i/SPM/7<l 

A{7)s2.Q-7f 1 )/Z(6) 

A(H)st  ^0-^(?^/7(h) 

ir  f .FI  xcoJA  (8)=A(H)»Dcnox*z(i) 

fj  ir^f  ^2* ^ ( (>  Lilj  CA2 

C ■ ' ■ ' 

Q N F W FSTIM  ij  F S n F PR  I M ^ R Cl^S 

'c 

CA  Lt  SOLV^f  A.n,07.NnSriLNS 

9<»  IR(1JRL=  TRnUHL.DK.^OSnLN.’OR."  {I.FOjzi  ) 

_c 

C PHri'Il  Em  diagnostics 

-C 

IF(  TROUSI  ) wRI  TF(6.  1 00(1)1  ,z 

loop  FORmatCI  X.T2.RX.  lPHEll.<li 

iF(onNF)r.o  If)  no 

X , 

n7LlMs-Q.9<j*Z(3) 

IPC>7H?,LT^*r)7|.IMJDZii2BD2LIJ! 

7(^)s7m*nZH2 


HCF03151 

NCFD31S2 

WCF03155 

HCEQ3150_.. 

WCF03155 

_ HCE03156 

mCFQ31*»7 

HCFQ31SB 

MCF'5''15'> 

f'CFD3160 

HCE031#*! 

HCE03162 

MCE03163 

HCE.Q31A1I 

HCF03165 

_ HCE03160_ 

HCF03107 

HCEQ316B 

HCEQSlOO 

LiCEB3l7Q 

HCFD3171 

HCEa3llL 

HCF03175 

HCEQ3174 

HCE03175 


TF(020?.|  T ,D7LIM)DZ02s0ZLIM 

Z C 'IliZ.L'LlJJlZnZ 

7{6)zZ(f.1*D/H20 

100  continue 

i PROBLEM  DIaGnOSTTCS 

no  IFf TR3UBL )WPITF(6, I OOl )FAR,WAR,HC,T»  P .F T XCO.FlXNO 

-lQ01-FJRMtItXStlO-_l H, , 

’ 1 OX,  im»10X,?HH?,9x,2HD?,OX.?HnH,9X,3HH20 


12SM0PSFO?  DIAGNOSTICS  rARs,F9,6,6H  WARs,F9,6,SH  HCr,El0.3» 
-J'm  _J5,F9.2»  7H Ps,H0.5-#BH  F TXr3s,l  2, 3H  -F  I XNOs  , I 2 ) 

CDHPOSU  ION  returned  ^3  MOLES/LB-HIX 


RETURN 

FND 


HCF03177 

HCEQ3Ufi_ 

HCF03179 

HCE03iBO_ 

HCFQ3181 

HC£0.34a2— 

HCFQ3183 

HCE03180_- 

HCF03185 

HCE05U6- 

.8X,HCE03187 

UCrD3l8a_ 

HCFD3189 
HCF03190  - 
HCF03191 
. HCED3192  - 
HCE03193 

HCFDSlOIl— 

HCFg3l95 

HCF05196 

MCE0il97 


CMYCARB  Ir.NITIDN  PELaY  FOR  RAW  fUEL HYCaROOI 

subroutine ‘HYCA9B(K)  HYCARB02 

CQMNQN  /INOATA/  N,  HE.  w A R,  T2.  BETA  , TgsTfABS,  F IN02C  t PO  » HXC  ARB  03 

* RC3(1|).RC02{1I)»RHCTU).RnOX(I1),  HYcaRBOO  i 

* PT(m.PS(ll),BLOCftn»OCO(n) HYCARBOS ii 

REAL  N ..  ..  HYCARBOfc  i 

COMMON  /JETpAT/  NPTS.3UM{10a),TFRO2T,TfL»TT>U  {I2)^T;IM_2,J1ThER1  (lOiHYcARBOr j 

COMMON  /GAsCMP/  RICH(l2,?),>UELT2;i2T?).ENTH{2,i2, 2),  HYCARBO'B 

» C0NC(lfc.2»12.2)»HClNCPH2»2).0THER2(l<>2) HYCARB09 

“ COMMON  /GASTmW/  T6(2*12«2)<mHTG(2« I 2, 2) * T AU ( 1 2» 2) , CPG (2« I2,2>  HYCARBIO 

real  ^ ^MwTG  HYCARBll } 


COMMON  /OPrfRL/  TlTLE(20),PRtNTf30) 

COMMON  /STcTRL/  LSTA»FlNAL.CMEMt(,F|Rii»TM,FlRSTC,XC»DXC»DUMST(lO) 

HYCARB12 

HYCARB13 

] 

logical  final.'etrstmTeirstc 

INTEGER  CHEMK 

HYCAR014 

HYCARBIS 

f 

r 

COMMON  /CPRINT/  P0Um(20) 

DATA  A,B/-t  7.’67l0i9.ao290.fl80/ 

HYCARB16 

HYCARB17 

'•1 

c 

c 

HYCARB18 

HYCARB19 

j' 

c 

CALCULATE  Ignition  delay 

HYCARB20 

c 

HYCARB21 

:i 

1 OTIMF  s TIm2-TIM1(K) 

TEMP  > tGM.K.I) 

HYCAR022 

HYriRB23 

(i 

i 

•i 

0LLAY1s\:E»30  . 

IF!  TFMP.GF.OOO.  ) 0ELAYl*.001*eXPfA;B/TEMpi 

HYCARB2a 

HYCARB2S 

1 

c 

c 

WEIGHT  INITIAL  INCIPIEnCIFS 

HYCARB26 

HYPaRHPT 

r 

j 

c 

HCl  » 0. 

HYCARB29 

HYrARB29 

i 

TOTF  ■ 0, 

00  5 KK»1.NPTS 

HYCARB30 

Hvr ARR31 

( 

; 

TOTF  s TOTF*TFR(KK) 

HYCARD32 

{ 

IF(  HCINCPKK-lirFQ.  1.  i GO  TO  S 

MYciRnxT 

i' 

HCl  = HCT»TFR{KW)*HCINCP(KK»1)**« 

5 CONTINUE 

HYCARB39 

HVriPHTS 

,1 

TOTF  a TOTF*TFL 

IFf  POUM^lTl.NEf  0.  i CaH  TARPRTI6HTFRETC-TFH.2#i^lni 

HYCAR03S 
_HYCARB31 

ir(  totf.'lf.o,  ) CO  To  6 

Hf.l  s fHrl/IDTFl**.?5 

HYCARB38 

WVr ARR19 

6 HCINCI»{K,2ia  HC 1 ♦DT I Mp/OFL A Y I 

IF{  PDUM{13).NE.P.}  write  (6»  1 1 I^K.'HC I» OELA Y1  » TEMP,’hc1NCP(K»21.  , 

HYCARB40 

HYCARB41  , - - 

1 

11  format (2x,T3f3Xf9EI6. 8/) 

IF(  HCINCPIK.2) ,LeJi ^ ) GO  TO  200 

HYCAR042 

HYCARH03.-  - 

1 

c 

r. 

ADJUST  conc  and  mh  of  rIth  FRACTIOm 

HYCARHQ4 

UYff  RM<|N 

i 

c 

. c_ 

REACTION-^  CLOHLON  ♦ 5n2.a  lOCO  A-tSNiH2  . ..  

HYCARHflb 

HYCARGO/ 

i' 

ii 

c 

-Clfc  « CONCClBflf  K*2i  . . 

HYCARHOS 

HYC  AHHa9. 

ii 

C0NC(16> 1»K,2)s  0. 

hycarbso 
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CONCf  .'K'.’2)s_cnvcci,  ^ HYC*«B?1 

CONCf  7,  1 ,'k7?)s  CnvCf7,l,K,?)*lO,0*CU  HYC*RH52 

CnNC(0.l.K;?)8  CQSC(q.l.K.?Y-s:0»Ct6 HYCARBSJ. 

HCI*JCP(K,2)«  i.  HyC*RBS« 

200  RETURN HYC*MB55 

END  HYCAHBS^ 


CiNTEE  SET  l/P  INO  CALLpOR  INTCCWATinN 

SUBRnUTlijE  inTe 

e 

"c  SET  Up  ANI)  call  for  integration 

c 

c obtain  sugcfsteo  step  size  for  next  InTCCRATIDN  step 

c _ 

external  PeRR 


tnteeooi^ 

INTEE002 

JtNTE'lMl- 

INTEEOOa 

.INTEEOOS- 

INTEEOOb 

.INtEFOOL- 

inteeoos 


logical  NE*T.EL1M 
‘ R E MTTv  A R 

“0  i M E NS  ton'  YNf  3 3)Ty72 8 )fCr2Sj 


C0MMnN/3PTB/VERSI,TIMEV,VFRSA»AREAV»ELlN« 

CD““nN/cnNn/rNPt  r33)*LSfi  sp3»next 

'"CQMHnN/StNT/HMiN.MNm  ,"hn,HNP1  .HHAX.NWf  AVH 

_ C0MMnN/P0RF/Pj{T^fl)^0l<T28),PK(?«),ET2jA) 

coMMnN/spEp/SNAMfa.soi.Hwi^si.wcaswsTQic 


INtEEOIO 

INTEEOll 

1NTEE012 

INTEEOll. 

INTEEOia 

IN,ttEai5_ 

TcON,RHQcnN,lPRCOO  INTEEOlA 

INTEF017_ 

»FMAX.ERRN.JCV,KDUNT,ERRPTnTEE018 

intefoii. 

(25,30),OMEGAf2S.301  tNTEE020 


FOOT  valence  MVAR.YnPI  r5))*(V*VNPir6>)*(C*yNP|(9));(HlNr.'HNMl) 


INITIAL  STEPS  OR  restart 

ENTRY  TNTl 

NRFST  « 0 
FMAX2  « " • 


EMAXS6  s S.*ENAX/(i. 

L S PS  ■ lS  i 8 

HNPt  a HINT 

00_3^«1*LSM-, , 

3 Yn(1)  a YNPl(I) 

■ 2 CALL  C«.31..mN«QE«HMPt;exi 

HN  s HNPt 

CALL_ER£D 

CALL  CAST  fHN.PK.HNPl.OK) 

HNM  L-=_HN 

HN  ■ HNPt 

CAI L PREB 

DO  23  151, j'S, 

IP  (C(IJ.  .GE._fl.J_fiQ_TaL23 

WRITE  ffc.lOO) 

IPO  POR>1AT_t7HOaNlEL.5Xia3HCaMPaaiIlaM->RROR 

*S) 

NEXT  a .TRUE. 

return 

23  continue  

RETURN 

PREP4RE  tTTontTnUE  integration 


INTEE020 

INTEF02L_ 

INTEE022 

__1NTEE021. 

InTEE02<I 

__JNTEE025L 

1NTEE02A 


1NTEE028 

IMT  E E 0 2.9_ 

INTEE030 

INTEE03U 

INTEF032 

UlTEEOai- 

1NTEE03R 

INTEEOIS- 

INTEE03A 

INTEE037_ 

INTEE03B 

INTEE039- 

INTEEOOO 

-INTEEflOl 

INTEE0a2 

-.^lEGATlVE  CONCEnTRATIQNINTEEOAI  . 

iNTEEoaa 

INTEEOai- 

INTEPOAO 

INTEEOAT- 

INTEF0A8 

- INTEF.009_ 

INTEE050 


ENTRY_  IMTC 

DO  « IsI'.'lsPS 

q YNPlfl)  a YMf!) 

CALL  PPEO 

WETU R N 

G E N P B * L__S  TE  P 

FnTRY‘  imt'c 

CALL  CASG  f HN.OK,  HNPl  .~RK) ; 

Selativf  pRRO»  TN  iViegRation  JTEP 

FPPn  a EPRnRCfY.RK.F.  jCVjfHiiPjn 

TEST  FDR  pEf^TART  CO^JOlTlDNS 
IF  ( F RRN  ,1  F EHaX  .fiR. HMPl  .CT.  HMInS  CO  TO  7 

WRTTF  fh.lOl)  TvAR,(3mAm  f J.'jCvi.Jst,  .MN.'HNPt 

lOl  EDR'^aT  (7Ho(lNTf),5x,7HRFSTART.10X,2PHlNDEPENDFNf  \ 
*.2Xf t lH(rGRJJNTTS),SX,?5HCONTROLL^NG  VARIARlE  * »?< 
*,  t 7x7RWHf  NI  , 17X,hHH(N»l  j/qftx/?(EtPr57t0x)//51x'*iHK( 

A,  17X.(.^K0*l  ).  l<»X.6HE(N»n^ 

DO  5 lal.L^Pfl 

IF  (T  ;GT.  LSP5)  GO  TO  5 

WRIIF  16.102)  (SNAH(J,I),J*j,2),PKfIl,0K(I),RK(I),( 
IOP  FDRMAT  (^0V,2Aq«q(10X,E12.5)) 

5 y'nPKIF  a yNdl 

R H_a  __N  H_*  _? 

STOP  after  10  RESTARTS 

IE  (NRESX  .LT,  10)  GO  TO  6 

write  f6.  103)  

103  FQP'IAT  (7H0(InTE),5x»25H10  RESTARTS  HAVE  OCCURRED) 
_ NEXT  8 .true.’ 

return 

6 NRF3T  8 NRP3T  ♦ 1 ’ 

HMIN  3 HmIN/2, 

HNPl  J 

CO  TO  f 

'~j'  HNHl  8 HN 

HN  8 HNPl 

DO  8 Ixf.LSPB 

.IE_(T  _:GT.,i8P3_LG0jrQ_a 

PK(I)  3 (JKfl) 

OKII)  8 RKfl)  

8 YN(I)  s YNPldi 


TFST  FOR  negative  concentrations 

DO  R I31.L8 

_ If.  (C(T)  .GEp  O.i  CO.TQ  9 

WRITF  (6,100) 


INTEE05L 

INTEF052 

^riilfPA*LL 

INTEEOSa 

InTEF055_ 

INTEF.056 

INTCE05r_ 

INTEE058 

INTEF0S9 

intfe'ooo 

InTEE061_ 

INTFE062 

INT£E063_ 

INTEE060 

J r.N  TP  F06S 

variable  s,E13.5INtEF066 
Aa//51X»6HH(N-1 )INTEF067_ 
(N-l ), l7x,qHK(N) INTEE068 

INTEE069_ 

INTEE070 

INTEF071 

r(I)  INTEE072 

.. _INTEF073_ 

INTEE07Q 

_ INTEE075 

INTEF076 

INTEEpy? 

INfEE078 

_InTEF079_ 

INTEF080 

JNTEE081_ 

INTEF082 

INTEEqBS 

INTEE080 

INTEE085_ 

INTEE086 

INTEE0«7_ 

INTEE088 

1NTEF0".?_ 

INTEE090 

INTEF091_ 

INTEE092 

INTEF093 

INTEFOOa 

l.NTE£a25_ 

INTEE096 

INTEF097.. 

INTEE098 

_ INTEE099_ 

INTEFIOO 


NEXT  

RETURN 
R CONTTNuE 


_J)PTION*i  automatic  ELImINATTONS 

IF  (flim)  call  auto 

“Te' t“S TEP''sr7E  FOR  NEXT  INTERRaTION  STpP 
KOUmT  b 0 

lF~fFRRN  .(JE.  FMAX2)  GO  TO  10 

IF  (HN  , RE.  HMAXi  return 

■ CALL  SEARCH  (PERR»EmAX*HN,HNP1»HMAX) 
RETURN  _ 

ro  IF  (frr'n  .Te.  FHAXSbi  return 

IF  (HN  .1 E?  HHINI  return 


CALL  SEARCH  (PERR<EHAx<HHIN,HNPt*HN) 
return  


JNTEEJiLL 

INTEE102 

INTFF105 


INTEEIOR 

JNTEOOS. 

INTEE106 

inteeiot. 

INTEE105 

TNTEF109 

INTEEllO 

_inteeiu_ 

INTEE112 

INTEEIH 

INTEElia 

INTFF115 


INTEEllR 

-INTEEliJL 

INTEEllS 


CINTG  integral  op  y*OX««rRAPEZaiDAL/UNEOUAL 

SUBRnUTlNE.lSTGIYf X| YoXl,H.iIUj 

DIMENSION  Y(l).X(n,YDXl(l) 


EVALUATE  INTfCRaL— • Y*oX  ***rRAPEZOInAL  RULE 

******’*UnEQU*L.  spacing 


J*IL-1 

I«IA1 

DxgXfh-x(T«n  

Terms. 5*rY(n*Y(J-l)) 

YOXl  (n*YOXI  (I-l  )aTERM*OX 
IPIirUT.  Ill)  GO  TO  2 

RETURN 

END 


INTaOOOl 

INTGOOOZ 

INTgOOOS 

-INIQOOOA. 

INTGOOOS 

INTGOOOS. 

INTGOOOZ 

INTGOOOS. 

INTCOOOO 

-INTGOOlIL 

INTGOOll 

INTCOOlZ 

1NT60011 

INTGOOlO. 

IMTGOOIS 
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cJETiNP  Jet— input  routine 

SUBROUTINE  JETINP 

JETINPOl 
. . JET1NP02 

CO 

C* 

r**«***«*«»««»********  SPECIAL  VERSION  FOR  12-SPEClES  ******< 

CO 

logical  tapin,  TAPOT 

JETINP06 

INTEGER  PLOT 

JETINP07 

logical  mchang 

JETINPOB 

logical  AMRTO 

JETINP09 

logical  DPRIN 

JETINPIO  _ _ 

LOGICAL  EOF  , ERR 

JtTlNPU 

logical  AXi,CMPRS»OJET/TURaj.CORE 

JETINP12 

Integer  xprn 

JETINP13 

logical  ENTRYl 

JETINPia 

REAL  MJET  , ME  » MUREF 

JET1NP15 

REAL  MaCh 

JETtNPlh 

COMMON  /filk/csc 

JETINP17 

COMMON  /SInG/  SSO(q3) 

JETINPJ8. 

C3m>iom  /ca«(?Y/  new  JET1NP19 

LOGicAi,  Nfw  _ : JtTJNPaO. 


C'JMIDN  /RSTAR'T/  NREG,RE:STRT,NRES,M!XPRE  jetinppT 

J.  OGJ  CAL UAPRS JtUNEi?. 


common  /edge/  yjete*  sfeoce 
common  /.iETTwO/  jTW3»ZDIA0fI.).NJa 

JET1NP25 

jET1np2'< 

COMMON  /BCo/  UO,  E0»  THO 

COMMON  /CTRL?/ 

JETINPZS 

JETlNP2t> 

A EOGrl  , SFI  , merge  , XmERCE  » YMER6E  , 

A SLOPE!  , SLOPED  * CEpTl  , CEPTO 

JETINP27 

JETrNP28 

common  /MERGE!/  MtR.  MERSTP  , XMRG 

LOGICAL  Twj,  merge  » meR  , MERSTp 

JETINP?^ 

jetinpjo 

common  /PrfoPJa/  macho, REFLO,ri,  TO, MERCP 

REAL  maChJ.M.IETO 

JETINP31 

JETINP32 

COMMON  /Misc/  PM(iO)»  plot 

COMMON  /TNPl/  ENTRYl 

JETINP33 

JETINP3<» 

C* 

COMMON  /Ume3H/MCC(7) 

JETlNP3t> 

JETlNP5t> 

c A A** 
. C* 

aa  input  common 

JtTI nP37 

JETINP38 

common  /INPJtT/ 

A ZOlAJd 1 ). JAXI,NJ»NM.X( 100)#XPRN(100)»CAM.ZRGf6) 

JETINP59 

JET1NP40 

CA 

C*AA« 

aa  control  common 

JETINPqi 

JtTINP'>2 

CA 

COMMON  /CTRL/ 

A NXTa  , CMPRS  , OJET  ■ , TUR0J  ’ ' ' » COEF(IO) 

A NPu  NP3_.  ,_nxc  . XU  , xoo  . . 

JtTINP43 

JETiNPaa 
, JETlNPaS 

JETlNPyb 

CA 

A OSToRISOO) 

jETlNPy 7 

JETINPqB 

C AAA* 

_ CA 

AA  PROfli^E  common 

JETINP49 

JtTlNpSO 

229 


c* 

common  /prop/  PSi(200),Y(200)fUJ(26d)ffHD(200)fED(200) 

JETINP51 

JET1NP52 

c******  constant  and  error  common 
c* 

JETINP53 

JETlNPSd 

c* 

COMMON  /CNfRR/  BITS  , ERR  , GC  » GCJ  , FOOT 

JETINP55 

. JtTlNP56  

C*' 

c* 

»♦***  boundary  condition  common 

JETINP5T 

JET1NP53 

c* 

common  /8C/  UEDGE  , EF-DCE  , THEDCE 

JETINP59 

JETINP60 

c». 

c* 

*****  potential  core  common 

JETINP61 

JETINP62 

c* 

COMMON  /CORED/  XCORE  > CORE  » CORSTP 

JETINP63 

JETINP6(» 

c******  SCALER  (UNITS  CONvEkSION)  COMMON 

C* 

JETINP65 

JETINP6S 

C* 

COMMON  /SCaLF.R/  SP  , SV  , SLEN 

JETINP67 

JETINPfce 

c******  JET  PROPERTIES  COMMON 

C» 

JETINP69 

JF.TINP70 

COMMON  /JEt/ 

* BB(100).UC(100),TC(l00),TIC(100)* 

JETINP71 

JETINP72 

* prc(joo)  , wjdoo)  , Yj(ioo)  , 

* YSOnIC(IOO) 

JtTINP75 
. JET1NP7« 

COMMON  /JETl/  FLnwj,TTO,NX,EJET 

COMMON  /PRpPJT/ 

JETINP7S 
- JfTINPZh.. 

• P » PRL  * PRTT  , RGA8  * SCC  , 

* TRFF  , VSREF  . MACH  . XLC  . 

JETINP77 

JETINP7B 

• XREFL»COlFF»CHI,OUM( laOl) 

COMMON  /xPRIN/  OPRIn 

JETINP79 

JETINPBO 

COMMON  /CPROP/  CT1,cT?*CT3,cTR,CT5,CT6»CT7,CT8,CT9,CT10 
COMMON  /CPrOp?/  ClP*  CTS  f CTM 

JETINP81 

JETINPB2 

COMMON  /ratio/  ambto 

COMMON  /lOFiLE/  TAPIn*TAPOT 

JETINP8J 

JETlNPBd 

COMMON  /pArAM/  8(500), DIAJ(1),MJET,T.IET,PTJET,VJET* 

* TIJFT,PEf  VF.,mE,TIE,Te.  AXI,rG(1),PR.PRT.SC.TREF* 

JETINP85 

JETINPSb 

» MIJRfF,TmO,DIaO(  1 ),MJeTO,TJETO,  VJETO,PTJETn, 

• Tl JET0,mCH4NG( 1)*CK.dY1 ,NMSH,CXPC,CXTP.NRFD. 

JETINPeZ 

JETINPeS 

* Mix,SUPR,MAXIT,TOL,CF,NB(n,  TA3(5),ND(l)*TAD(a)/ 

* D(800)#QUMINP((»bl) 

JtTINP89 
.?(•  TINP90 

C* 

common  /MIxER/  JMIx,Rd(100),XD(100)*2CF,YR(100)  „ . 

Jt  riNP91 
.IETINP92 

LOGICAL  MIX 

COMMON  /floral/  mmaxIt*JSUP,NIT,PSID,'yDD*YOC*  . - - 

* Pl»P2,UcL»ZTnL*UP3TRM,CVC 

LOGICAL.  SUPB,CVG#UPStRM 

JETINP95 

JETINP9<( 

JtTINP95 
.If-  T I NP9S 

CJM-ON  /aCONVC/  VCD(100),PD(100),INDC(100),  CHOKE,  CHOKED 
LOGICAL  CHOKE*  choked 

COMMON  /DFiT/  CLSP(lOO) 

COMMON  /3Ta2/  maCh?, Ts?,SS2, V2,RHO2,dP0X2 

JETINP97 

JtTINPVS 

JETINP99 

JETINPOO 
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REAL  HACH2 

COMMON  /BCM1X2/  GRAOU,Tm,MUW,RHOH.PTF.TTE 

JETINPOl 
. JETINP02  . 

REAL  MUW 

COMMON  /CBoQV/  YCa(100),CL3PCB(100).VCBl  . UCLl 

JETINPOi 

JET1NP0<J 

COMMON  /O'JTMIx/  NXORIC 

COMMON  /INNAME/  MNB(61»MN0(S) 

JETINP05 

jetinpos 

COMMON  /TAR/  DUMI[>(«0)  , lOENT(lO) 

COMMON  /niFEQI/ 

JETINP07 

JET1NP08 

* NC  » CnAME(12)  » AlJ(12)  , AlJ0C12)  ,A|,E(12)  , SCm(12)  * 

* TCPRE(12)  , MCPRF(12I  , CPC(3«12) 

JETINP09 

JETINPIO 

COMMON  /DICTRL/  DIFF  , CNO(IO) 

LOGICAL  DIFE 

JETINPII 

JETINP12 

COMMON  /mOlEB  / ALX(1oO,12) 

COMMON  /BCHOL  / ALE0Ge(12)« AL0(12J 

JETINPli 

JETINPlfl 

COMMON  /JET3/  STA00»nV,3TATF 

COMMON  /LLTEHP/  lterp 

JETINPIS 

JETINP16 

logical  lterp 

COMMON  /SCACfcO/  SCLD»aLXLIM 

JtTINPir 

JETINPIB 

LOGICAL  8CL0 

COMMON  /CRmOD  / CJRmOd 

JETINPli 

JETINP20 

c* 

dimension  TMP(IO) 

JETINP21 

JET1NP22 

equivalence  (IMP(1),PM(1)) 

DIMENSION  XPRNKIOO) 

JETINP25 

JETlNP2a 

equivalence  (XPRNl(l),XpRN(l)) 

DIMENSION  lCHANG(l) 

JET1NP25 

JETINP26 

DIMENSION  DMOLlb) 

JtTINP2/ 

EQUIVALENCE  (ICHANGI n»MCHANG(|)) 

JET1NP29 

EQUI valence  (lAXl, AxI ), (ITV)0»TWD),(1SUP»SUPB)» (IMIXrMiX)  JET1NP29 

equivalence  (IBITS,BIT3) JETINP50 

0IHENSI3N  T10(200)  JETINPJl 

equivalence  (TID(l),Ep(J)) ^ JETINP32 


NAMELIST 
• TIJET 

/A/  OIAJ,MJEt,TJET,PTJET,VJFT, 

# 

JETINP3S 

JET1NP3U 

* 

* 

PE 

AXl 

» VE  , me  » TIC  r TE 

» NJ  , NM  » 

, jETINPiS 

JETINP36 

* 

* 

GAM 

X 

$ RC  0 PR  0 PRT  0 

0 XPRN  # 

JLTINP37 

JET1NP39 

A 

SC 

* THEE  * MUREF  » 

JETINP39 

A 

SP 

f SV  , SLEN  f 

JETINPqO 

A 

A 

DPHIN 

NRED 

fPLOT  , 

» PM  , 

JtTINPai 

JETINPqa 

A 

CXPC 

» CXTP  , 

JETINPqJ 

A 

MCHANO 

1 IDENT  , 

JETINPaa 

A 

Y , UD 

f ThD  » ED  » TIO  , 

JETINPOs 

A 

_£L11^CT2 

t£Ltl*j:i4£XJ5«Cl6iILL7_tCT9»CT9^ ^ 

JETINPab 

A 

_ A 

A 

A 

CTM,CT9,CTP,B»NHf TaB,0,nO»TAO»RESTRT» 

CK»DYl»NMSMf MIX#MAXIT*CF.T0L»SUPB»R0»X0»YCB«-  . . .. 

TWO  , DIAJ  , mJETO  * TJFTO  f 

VJETOrPTJETQfTIJETOrNJOf  

JETINPU7 

_ JETINPOB 

JETINPU? 

JETINPSO  _ 

» NC»CNAHC>ALJ>*LJO»«LE»SCH,TCPRF,HCPRr*CPC»ALX,DlFr 
► .CSC»^3ICT  T,LTERP,COirF,CHl,SCtO,ALXl.l‘<_f_CJRHOO 
DATA  BLANK/bH  / 


C*  BEAD  NAMEtlST  lA  

C* 

_2  CALL  PLCEHR(S,E9R} 

call  SET>i(i,8IT3,  Y,B00) 

V ( 1)»3 1 T S 

Call  StlH(l,BLA'<K,IoEMT,10) 

c*  

C*  initialize  B AH9AV,  DUNmV  single  cell  input 

c*  

IF(,mDT,  NE«)  CO  TO  q09t 

9000  c ALL  sftmi?, HITS, n.sqi«Nn. BOS) 

GO  To  4096 

4091  call  •'OVE(l,3SO,DIAJ»43,t) 

mEns.'trje, 

call  SFTM(5»BITS,ZOtAj(2),4,ZOIAJ(8J^i»ZDlAO(2)f«rSfSOO 
4096  ir(TA“iN)  call  JTFILE(5,0UNVF) 

3 R EAO  ( S_^A J 

call  •^OVE(l»niAJ,S50»43,|) 

919  IF(  E9R  ) RF.TURN  

C* 

C*  _RCSET  possible  BITS  VALUES  

:• 

IFCIaXI.nEJIBITS)  JaXt»IAX1 

IF(1mIx,vE.IhiTS)  JMIX*IMIX 

IK(IT*iO,VE.InjT3)_JTWoaiTNO 

IFdSJR.NE.IBlTS)  JSJPalSUP 

irciAXTT.  VF,IBIT3)  M'<aXIT«MAXII_  

IFITOL.NE.bITS)  ztol»tol 

If  iSta-NE-3LlSl_iCfJ:CF 

IF(C*PC.EQ.'iITS  .and,  TnO)  CXPC»,04 

_ IFCCXTP.E'J.'BTTS  .ano.  Two)  CXTP«,09 

IF(CXPC.F.3,BIT3  .AVO,  MIX)  CXPCa.OS 

IF(CxTP,E3.BirS_.AV!),  Mjx)  CXTP«,05 — 

4001  DO  4010  L»l»ll 

I.FIL.5I.6)_5U_LL  9002 

1F(HC(L) .SFtHiTS)  /4C(L)*RG(L) 

IF(DIAO(l).'nF,HITS)  Zo1AO(L)«DIAO(L3 

400?  IF(L.CT,7)  CU  TO  4005 

IF(lCHAvr.(L).vF.mTS)  '•CC<L)*ICMANCfL) 

400S  IF(DIAJ(L) .NE.HITS)  ZdIAJ(L)«OIAJ(L) 

IF_(nB^LL).ne^1B1TS)  •1N9(L1«NBCl1 

4010  CONTINUE 


f D>  Boo  ) 


MOVE  data  back  TO  dummy  array 


JETINP5I 

JETINP52_ 

JETINPSi 

-JEJLNESiL- 

JtTINPSS 

_JETINP56_ 

JETINP57 

_JEriNP58_ 

JETINP59 

_JETINP<tO_ 

JETINP61 

JFTINP62 

JETINPBS 

JET1NP64 

JETINP65 

JETINP66 

JETINP67 

JETINP68_ 

JETINP69 

JETINP70_ 

JETINP71 

_JEIiNP_7.2_ 

JETINP73 

JfcTINPTO 

JETINP75 

JETINP76 

JETINP77 

JtTINP79 
.JETINPdO_. 
JETINPBI 
JtTlNP82__ 
JETINPB3 
_JLT1NPJ1_ 
JETINPB5 
JETINPflO 
JETINP87 
JETINPB8_ 
JETINPB9 
.JETtNP9a_ 
JtTINP9l 
JETINP92 
JtTINP95 
JtTlNP94 
JETINP9> 
-JLTlfiP9b_ 
JtTINP97 
JETINP9S 
JETINP99 
JETINPOO. _ 


r 1 

I 


4020  CALL  H0VE(S#ZDIAJ,DlAj,ll*l#HCG»HCHAN6#7»t# 

• ZD1a3,OIAO»6,1,ZRG.Hg.6.1.NNB.MB.11.1) 

JETINPOl 

JETINP02 

lAXlxJAXI 

ITW0«JT40 

JET1NP03 

JETINP04 

iSUPaJSUP 

IMlXeJHIX 

JETINP05 

JETINP06 

CFsZCF 

TOLbZTOL 

JETINP07 

JET1NP08 

MAXITSMNAXIT 

JET1NP09 

IFINIX  .AND.  TW3)  GO  TO  444 

JETINPIO 

IF(TrO)  CTl«,175 
lMP(l)»IFIx(P*in)) 

JETINPII 

JET1NP12 

CHPHs*. False. 

KGO»P 

JET1NP13 

JETINP14 

C* 

C* 

MOVE  INPUT  ARRAYS  TO  STnRAGE 

JETINPIS 

JET1NP1<» 

C* 

4030  CONTINUE 

JET1NP17 

JETINPIB 

C* 

C* 

COUNT  NUMBER  OF  AXIAL  STATIONS 

JET1NP19 

JETINP20 

C* 

C* 

JET1NP21 

JETINP22 

C» 

C*. 

IF  MIXfR  nozzle  CASE#  NON-01 MENSIONALIZE 

AND  CURVE  FIT  DUCT  CO-ORDINATES 

JET1NP25 

JETINP2'4 

C* 

IFIRFSTHT  JnE.  BITS)  GO  TO  4300 

JETINPPS 

JET1NP2B 

IF(,NOT,MlX)  GO  TO  44a2 

00  4440  LBlflOO 

JET1NP27 

JETINP29 

lF(XO(L),EfJ,HlTS)  GO  TO 

ttaao  continue 

JET1NP29 

JETINP30 

ERRb.TR'jC, 

GO  TO  999 

JET1NP31 

JETINP32 

c* 

4q4S  NXTAsL>1 

JtTlNP35 

JtTINP34 

c» 

c* 

fill  unfilled  arrays 

JETINP35 

JET1NP3S 

4040  CALL  riLL(XO»RDM»NXTA) 

CALL  FILL(XO>YCa«l.NXTA) 

JETINP37 

JET1NP3S 

TERMn*l,/OlAJ 

CALL  FMPYCf 1#TERMD.X0.X.NXTA) 

JETINP39 

JETINP40 

TfcRMota./DiAj 

CALL  FmPYCC2#TERMO#RO, YR»NXTA,YC»,YCB#NXTA) 

JET1NP41 

JET1NP42 

C* 

CALL  LCFlT(XD»YR,NXTA,l,X0(l),Y99,l,0rCLSF) 

JET1NP43 

JETINP44 

CALL  LCFlT(XO#YCB#NXTA#l#XO(l)#YCBt#l#0#CLSPCB} 

GO  Tn  S 

JETINP45 

JET1NP4!> 

4442  00  4 LslflOO 

1F(X(l),EQ.’GITS)  go  Tq  5 

JET1NP47 

JETINP49 

4 continue 

444  FRRs.TRUE. 

JETINP49 

JtTINPSO 

I 

1 
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CD  TO  999 

5_  NXTAsL-l 

'go  To  6 

C* 

"c*  SPECIAL  x-tasle  processing  On  restart 

c* 

9300  NXXtNXTA*! 

NXD*NV*l 

XUOCrRESTRT 

IF(MIX)  RF3TRT3RESTRT/DIAJ 

C* 

C*  SEARCH  FOR  RESTART  LOC. 


DO  9310  L=Vl100 

IF(X(l),EO.  RESTRT) 
1KX(L).EQ.8IT8)  go 
9310  CONTINUE 

_9311  ERRs^TRUe, 

GO  TO  999 

_9  320_NXTAa|,-i 

IFCnRES  .EO,  1)  GO  1 


NRESsL 
Tg  9320 


GO  TO  9311 


IFII.NOT.  MIX)  .AND,  mIXPRE)  GO  TO  9329 

IF(,nOT._HIX2 GO_ID  (x— 

DO  9390  L=l»100 

rF<xp<i.)._EQ^_0lTS)_GO_TO_935O " 

9390  CONTINUE 

9SS0  NXnRtG»L«l 

CALL  FILL(X3(NX0) »RO(nXO) ,NXO,NXORTG) 

^C  AL  L _F  I LL(xD(NXJ),YC  B CNXOJ  .NXD#  NXQRIC) 

TERmd*1 ,/OlAJ 

NUMSNXORIGfi-NX.O 

CALL  FmPYC( 1 , TERho,XO(NxD) »X(NXX),NUM) 

TERMPs2.«TFRHD 

CALL  FmPyC(2,  TESH!),rO(NXD)  , YR(NXO),NllM,  YCa(NXD)  , YCB 

C*LL_LCFlT(XO,YR,NXORiG,if X0(l)fY99»l,0,CUSP) 

CALL  LCFIT(XD,YCH,NX0RIG, 1,X0(1 )f YCBI, 1,0»CLSPBC) 

NXTA3NXX.tNUlrJ 

9329*  DO  9328  Lsi»NXTA 

If-LXLOC— EQ,-XD.LL1J pEkRD.CU 

9328  CONTINUE 


(NXD), 


TEST  FOR  C0HPRESSIBILITy»TRAN3P0RT  OF 


■INITIALIZE 


b IF{MJET,nC.8ITS)  CMPR3*,TRUE. 

IFIPTJFT.Nr.  BITS)  CNpRSa.TRUF. 

IF(,n0T,  ChPRS)  call  SETM(1,0ITS»PTC,1OO) 
ir(MIx  .ANO,  (RESTRTtEO,  BITS))  NXOrIGsnXTA 

SET  PRInL  indicator ..  . 


JETINP51 

JETINP52.._ 

JETINP53 

JLLlUPiS 

JETINPSi 
..  JETINP5b.. 
JETINP57 

. JETINP58 

JETINP59 

._JETINP60 

JETINP61 

JETINP62 

JETINPb3 

.JETlNPb9 

jETINPbS 

J£UJJE.<Lfe 

JETINP67 

.JETINPbB 

JETINP69 

JETINP_70 

JETINP71 
_JLrijlP72..  ■ 
JETINP73 

JETINP79 

JETINP75 
JETINP76  _ 
JETINP77 

TTNPT8 

JETINP79 
^ JETlNPaO— 
JETINP81 
JF.TINPB2  - 
JETINPBS 

JLTJ^MEM 

JETINP85 

JETINPSb 

JETINPB7 

JETINPSB 

JETINP89 

_JETINP9Q 

JETINP91 

JETINP92 

JETINP93 

JETINP99 

JETINP9S 

_JEIlNR9b 

JETINP97 

JETINP98 

JETINP99 

JETINPOO 


c* 

<JOSO  1F((XPRN(1),E(3^.2>  . .QR.  (XPRNl  ( 1 ) .EQ.2.  CALL  . SETM  ( 1 , 1 . XPRN(2)  . 

JETINPOl 

JETINP02 

• NXTA-1) 

IF((XPRN(1)  .EO.  (-2))  .OR.  (XPRNlrl)  .EO.  (•2.))) 

JETINP03 

JETINP04 

X call  SE1M11,-1,XPKN(2),NXTA-1) 

00  «060  L*2rNXTA  . 

JETINP05 

JETTNP06 

1F(XPRN(L),'E0.I91T8)  XPRN(L)sO 

1F(XPRN1(L)  .EQ.  0.)  GO  TO  fl060 

JETINP07 

JETlNPOa 

IF(Ia9S(XPRM(l))  .EQ,  1)  GG  TO  <1060 

IKXPRNKL)  .LT.  0.)  GO  TO  OOSS 

JETINP09 

JETINPIO 

XPHN(L)al  . 

GO  TO  4060 

JETINPI 1 

JETINP12 

<1055  XPRN(L)a-l 

4060  CONTINUE 

JETINP13 

JETINPla 

if(Tijet,ne,o,)  go  to  10 

TURBjs. false. 

JETINP15 

JETINP16 

C* 

C* 

JETINP17 

JET1NP18 

C* 

C* 

JETINPlR 

JETINP20 

10  1F(CMPR3)  go  TO  12 

JETINP21 

C* 

CA  VJET»VE»TJET,TE  ASSUMED  GIVEN 

c*  . 

JETINP23 

JET1NP24 

MJETsO. 

MEsO. 

JETINP25 

JETINP26  _ 

CPxGAMH(TJET) 

CPJ  s CP 

JETINP27 

JETINP23 

EJETsJ,S/GcJaTIJET»*2*Vjf.taa2 

IF (TWO)  EjETOs1.5/GCjaTIJETO*a2*VJET*a2 

JETINP24 

JET1NP30 

TTE«TE 

PTFepE*(l.*.5*VEAA2/(CC*RG*TE)) 

JETINP31 

JETINP32 

GO  TO  ISO 

12  GAMeGAMH(TF) 

JETINP33 

JET1NP34 

VSEsSaRr(GAM*RG»GCATE) 

IF(Mf,ro.BITS)  GO  TO  t22 

JETINP35 

JETINP36 

VE3ME*VSE 

GO  TO  125 

JETINP37 

JET1NP38 

122  ME.VE/VSe 

125  TRMsi.*.5»tCAM-l.)AME*A2 

JETINP39 

JETINP40 

TTE«TEaTRW 

PTEePEA(TRM)*A(GAM/(G4M*l.)) 

JETINP41 

JETINP42 

IF(MJET.E0.  OITS)  KGOsl 

IF(PTJFT.EQ.RITS)  KG0s2 

JETINP43 

JETINP44 

GO  TO  (130,t40),KG0 

JETINP4S 

CA 

JET1NP46 

no  1F(TjET,NE.SITS)  go  To  141 

CA  . 

JETINP47 

JETINP4B 

CA  determine  TJF.T  (GAMaGAM(T)) 

JETINP49 

JETINP50 
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TLT3VJET*VjET/(HG*GC*mJET*HJET) 

TJETs(TLT/2, 23706) »*(!./. 42979) 

JET1NP51 

JET1NP52 

1F(TJET,GT;  800,  .AND,  TJE T .LT , 3600 . ) GO  TO  1410 

GAMrj  .41 

JET1NP55 

JtTINPSa 

1F(1JET,GE.’3600,)  GAM31,254 

GO  TO  1411 

JET1NP55 
. JET1NP56 

laio 

1411 

GAM«GAMH(TJCT) 

GAM1s3AM/(gAH-1.) 

JET1NP5? 

. JET1NP58  . 

GAM2r,5*(GAM-l,) 

GAMisl./GAHl 

JET1NPS9 

TINP60 

CP=GAM1»HG*GC/GCJ 

GO  TO  142 

jET  INP61 

JET1NP62 

141 

GAMsr.AMH(TJET) 

VJETsMJET»SORT(GAM*RG*GCaTJET) 

JETINP65 

JETINP64 

142 

GO  TO  1411 

EjFTsl  ,S/GCJ*TIJET*TI  iET*V.TFT*VJET 

JET1NP6S 

.IET1NP66 

PTJET=PE*(1 ,+GAM2*MJEt**2)*aGAH1 

GO  TO  ISO 

JET1NP67 

JET1NP68„ 

c* 

130 

1F(VJET,E0.8ITS)  GO  To  131 

JET1NP69 

JET1NP70_ 

ASSIGN  1512  TO  KPGO 

GANG  3 1.38 

JETINP71 

JETTNPr2 

IT  so 

PRAT  3 PT.rET/PE 

JET1NP75 
- JET1NP74. 

1301 

IT  8 lT+1 

GAHGI  s (GANG-1.)/GANG  - - - . ..  - 

TJET  3 VJFT*a2*(GAnG-1,)/{2.*6AMG*HC*GC*(PRAT**GAmG1-1.)) 

1F(  TJFT.GF.BQQ.  . AND  . T JF 1 .L  T . ihOft  \ GO  TO  1 3ft? 

JETINPTS 

JET1NP76 

JETINP77 

.1PTINP7H 

GAM  3 1,/t 

IfX  TJFT.'GF.36Q0.  ) GAH3l.25a 

JETINP79 

.iFTInrBO 

..  1302 

GO  TO  1303 

GAM  3 GAMM(TJET) 

JETINP81 

JKTINPR2 

1303 

IF(  (AHS(Gam-6AMG)).UE.  .001  .OR.  IT.GE.IO  ) CO  TO  1311 

GANG  3 GAm 

jETiNpai 

.IFTTNP84 

-1310 

GO  TO  1301 

GAM3GAMHf  T.IETI 

JETINP85 

JET1NPB6 

1311 

GAMlrGAM/(GAM«l,) 

GAM23,S*tGAM-l.) 

JETINP87 

JETINP88  . 

GAMisi./GAHl 

CPsGAMI *RG»GC/GCJ 

JET1NP89 

.IFTINP93 

TTHJ=(PTJtT/PE)»*GAH3 

GO  TO  KPGO. (1312, 13641 

JETINP91 

JET1NP92  _ 

1312 

131 

EJETsl .5/GCJ*T1 JE  T*Tl JET*VJETaVJET 
MJETsVJET/SQRT(5AM»RG»GC*TJET)  . , „ 

GO  To  150 

ASSIGN  136a  TO  KPGO 

JET1NP93 

JETINP94 

JET1NP9S 
.11  T1NP96 

1364 

GO  TO  1310 

MJET3SgRT((TTRJ-l,)/GAM2)  

VJETs‘1JET*3TRT(GAM*rG»GC*TJET) 

EJETsI,5/GcJ*TIJET*TIjFT*VJeTaVJET 

JET1NP97 

JET1NP9B 

JET1NP99 

JETINPOO 
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c* 

IF(,NOT.  TWD)  GO  TO  ISl 

c**  LOGIC  FOK  Flow  conditions  of  outer  jet 

c*» 

IF(CmPRS)  go  to  IfcO 

MJETO*0, 

GO  TO  1^1 

L60_U  < " J E T 0 .EO.fllTS)  KHO«| 

IFCPTJETO.F'j.anS)  KHOm2 

GOTO  (iTOf  165}_  j__kHO 

165  1F(TjCTO.*NF,BITS)  GO  To  168 

C* ^ 

C*  determine  TJETO  (SAMOsGaHOCT)) 

J£* 

TLTsVJETOov  JETO/(RG*Gc*MJETO*MJETO) 

_TJF10s(TlT/2.23706)i*(1j/,9297?L-  

IF(TJET3.GT,HOO.  .and.  TjETQ.LT.SbOO*)  60  TO  1610 

GANO«l,a  

IF(TJETO.GE,3600.)  6Ams1.2S4 

GO  TO  16  H 

1610  GAH'JsGAMH(TJETO) 

1611  CAMltCAH/IfiAM*!^! 

GAN2s,S*(6aN-1*) 

GAm3«1,/GAh1  

CPsUAM1«HG*6C/6CJ 

GO  TO  169 

168  GAMOsGAtiHCTJETO) 

VJEln«NJFTnoSQRT(GANO«RRACC«TJETO> 

GO  TO  1611 

|69_EjET0*J,S/GCj*iIjETa*LIjF.T0*UET*yjti 

PTJET3*PE»(l.fGAM2*MJET0**2)**6Am 


IFTVjETO.EO,  91TS)  GO  To  171 

_ASSI6N_1712  JQ-JlP.aQ 

gang  a 1,38 

JI »_1> 

PRAT  a PTjETO/PE 

II.  a JT*I : 

GAMGl  a (CaMG-UI/GaMg 

TjETO  a VJCTO**2*(GAHG«l.)/<2,*GAHr.*RC*GC*(PRAT**GAMGl-l.)) 
IK  TJETO, CE. 800.  .AND,  TJE TO.LT, 3600.  ) GO  TO  l702 

_0  AN0_.8  _LaJI 

1F(  TJETO. GE. 3600,  ) GAMOal,25« 

GO  TO  1703  

GANO  a GAMKTJETO) 

1F(  (ABS(CAM6-6AN0)}tLE,  ,001  «OR.'  tT.GE.lO  ) GO  TO  1711 


JETINPOI 

_JETINP02 

JET1NP03 

JETlNPPq 

JbflNPOS 
_ JETINP06_ 
JET1NP07 

JETINP06_ 

JET1NP09 

JFTINPIO 

JETINPll 

JETINP12 

JETINP13 

JETINP14 

JET1NP15 

JElLNiL6_ 

JET1NP17 

JET1NP18 

JETINP|9 

JET1NP20_ 

JET1NP21 

JETJNP22. 

JETINP25 

„JETINP29. 

JETINP25 
- JETINP26 
JETINP27 
JEJjIJPgfl. 

JETINP29 

JETINP30_ 

JFTINP31 

JETINP32_ 

JETINP33 

J£llH£3iL 

JET1NP35 

JET1NP36. 

JETINP37 

JET1NP36_ 

JETINP39 

JETINP«0_ 

jETINPal 

JETINP42 

JETlNPa3 

jETiNPaq 

JETINpqS 

JETlNP_a6_ 

JETINPAT 

JETINpqB 

JETINPqq 

JET1NP50 
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GANG  a GAMO 

CO  TO  1701 

JET1NP51 

JET1NP52 

1710 

GAMJrCANH(TJETO) 

JETINP55  • 

1711 

GAMlsCA'^O/f  GAMO-I  .) 

JET1NP54 

GAM2r,6*(GAMO-l,) 

GAMir 1 ./GAHt 

JET1NP5S 

JET1NPS6 

CPrGAMl*RG*GC/GCJ 

TTR JOS ( PTJF TO/PE) »*GAm3 

JETINP57 

JET1NP58 

1712 

GO  TO  KPr.D,  ( 1712,  1764) 

EJETo:l,5/GCJ*TrjF  Tr,*Tl  JET0*VJET*VJET 

JET1NP59 

JETINP60 

MJE lO=VJEIO/SaRT(GAMa*RG*GC*TjETO) 

GO  TO  ISl 

JET1NP61 

JETINP62 

ASSIGN  176a  To  KPCO 

JtTlNP63 

GO  TO  1710 

JET1NP64 

1764 

EJETOsl ,5/GCJ*T1JETO*t1JETO*VJET*VJET 

JETINP65 

PJEln=SaRT( (TTRjn-l.)/GAM2) 

JET1NP66 

VJETO=mJEI(1*SQRT(GAm*rG*GC*TJETU) 

JET1NP67 

151 

IF(  TWO)  GO  TO  152 

JETINP68 

IFd  JET.EQ.TE)  OJET*. false, 

GO  TO  153 

JET1NP69 

JETINP70.  . _ 

152 

163 

if(ijet,e3.te  ,ano,  tjet.eq.tjeto)  qjeTs, false, 
continue 

JET1NP71 

JETINP72 

IF(,nJT,  QjET)  call  SETm(1,1,,TC»100) 
EEs1.5/GCJ*T1E*TIE»VJeT*VJET 

JETINP73 
JET1NP7.4 

TTOsTJET*,S*VJFT*VJET/(GCJACPj)tEjET/CPJ 

AMHTOs. false. 

JET1NP75 

JETINP.76 _ 

0TB0sARS( TTO-TE) 

TF(DT30.LT.'  .S)  AHUTfts.TRIJF. 

JET1NP77 

JET1NP79 

C* 

CALL  MOVE(3»01A3,Z01Ao,6,  1 , 01 A J»  ZO  I A j,  1 1 , 1 , iiCHANG,MCG,  7,  1) 

JETIVP79 

JETINP80 

C*  initialize  profiles 

c» 

JtTINPBl 

JET1NP82 

20 

NjPsNjAl 

JET1NP83 

NJMxn J«1 

JEllNEflil 

c» 


. c*  BQUN0ARY_Cn'<0lI10SS-^V/VJETsVE/VJeT,.rMElAs0t- 

C*  E/EJET»EF/EJfT 

c*.  _ 

23  THEOGEsTE/tJET 


-Ifc  Lru.RBJJ_E£DGE:jEE/EJ&.T. 
UEOGr=VE/VjET 


JET1NP85 

JETlNPftb- 

JET1NP87 

JET1NPB8- 

JET1NP89 

-JET1NP9Q- 


C* 


C*  mESh  DCEIMITiQn  at  initial  station—  ir  V(1),NE,B1T3. 

c 

c*  input  profiles  used  as  given 

-C* NJcCURREnT  SPfriEtFQ  nESH  uUM^m  OF  .lET  fnPNfff 

c* 

U0«1.  . 

tho*i , 

IFtTURBJ)  £0*1,  


JETINP91 

JET1NP92 

JETINP93 

JETINP99 

JETINP9S. 

-JETlAIPVa 

JETINP97 

JETINPQ9 

JETINP99 

JETINPOO 
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DO  2S10  LLalfNC 

*LEDGE(LL}»HeCLLl 

2310  AL11(LL)=ALJ(LL) 

IF(.N3T.  TMO)  SO  TO  2313 

THOsTJETO/TJET 

UOsVjETO/VjCT 

IF(Tu«BJ)  EOsEJETO/EjET 
DO  2311_LL«li.NC 

2311  ALO(IL)<ALJO(LL) 

2313  10081 

IF(RESTRT.NE.aiTS)  GO  TO  38qo 

lF(V(l),*JE.‘3ITS)_lGga2 

60  TO  (21,30),  160 
C* 

c*  generate  initial  profiles 

* 


21  LC0«1 

_ LUWS2 

NEbNJAS 

YIDaOj 

IF{MIX)  Y(1)«YCB1 
UD(1 


THDdJal, 

_ IF  ( TURBJ) EfllUiU 

C* 

OYls(l,-Y(ULl/FLQA.tt_Nj-lJ 

DV2=,5*0VI 


IF(TWO)  Lh0»2 

IFJ  , N OT , DIFF)  GO  TO  2|61 

DO  2160  LLadNC 

2160  ALX(1,LL)  a ALJCLL) 

2161  60  TO  (22,?222),LH0 

22  DU a_ti EDGE^JO 

dth=theoge-tmo 

IF(TORBJ)  _DE»EEDGE-E5 

1F(.N0T,0IFF)  go  to  26 

DO  <JlLQ_Ll.alrNC 

2170  DMnL(LL)aALEDGE(LL)-*LO(LL) 

G0_T0  26 

2222  DOsUO'l, 

DTH*TH0-1j 

IFdURBJ)  DE»E0-1. 

1F(,N0T,D1FF)  G0..T0.26 

DO  21/1  LLal,NC 

-217.1_D^<JL(I.U8A|.0(LL}-ALJ(LL1 

26  DO  27  LsLOM,NE 

IF(L.GT.NJM)  GO-ID  25 

Y(L)rY(L-nADYI 
„ UD(L)sUD(LON-l)  


JETINPOI 

.JETINP02- 

JETINP03 

JETINP05 

JETINP06_ 

JET1NP07 

JETINP_08_ 

JETINPOO 

_JE.UNP1.5L 

JETlNPil 
.JETINP12_ 
JET1NP13 
JETINPIH 
JETINP15 
“ N 


JET1NP17 

_JETINP18_ 

JET1NP19 

-JETINP20_ 

JETINP21 


JETINP23 

_JE11NP2<L 

JETINP25 

_JETINR26_ 

JETINP27 

JFTTNPPB 


JETINP29 

_JETINP50_ 

jeTinpsi 

_JETINP32_ 

JETINP33 

-JLEJtlN^CL 

JET1NP35 

_JETINP36_ 

JET1NP37 

_JETINP38_ 

JETINP39 

_JETINpqO_ 

JETINPill 

_JETINpa2_ 

JETINPfl3 

JETINPaa 
JETINPRS 
.JET1,n.E,4j6_ 
JETINpti7 
JETlNPq8 . 
JETlNPq9 

jetinpso 


2619 

THDCL )=THO(LOW"1) 
rK(,N3T.T0«0J)  GO  TO  2619 

JETINP51 

JETINP52 

ED(L)=ED(L0W-1) 

IF(.^'^T.DIFF)  G'J  TO  27 

JETINP53 

■IFTlNPSa 

00  2620  LUel.NC 

JETINPSS 

2620 

ALX(L»LL)*ALX(L0W-1.LL) 

JETTNPS6 

GO  TO  27 

JETINP57 

25 

Y(L)  = Y(L-ntDy2 

JETINPSS 

UD(L)=00(L-1)*. 25*00 

JETINP59 

T‘lD(L)  = IH0fL-l)*.25»0TH 

JETINP60 

IF(,N3T,T0R3J)  GO  TO  25l9 

JETINP61 

E0(L)=F0(L-1 )*.25»0E 

JETINP62 

2519 

1F(  .NOT.OIFF)  go  to  27 

JETINP63 

DO  2520  LLsUNC 

JET1NP69 

2520 

ALX(L.LL)=ALY(L-l»LL)*t25*0M0L(UL) 

JET1NP65 

27 

CDNTTMUE 

JETTNP66 

GO  10  (32,2223)  , LHO 

JETINP67 

2223 

DlST  = OIAO/nUJ-(l.*OYl) 

JETINP60 

DYI=0IST/Fl3AT(«<J0-nE) 

JET1NP69 

r0GElaY(»jE) 

JETINP70 

LOn:N£*1 

JETINP71 

NE=MJ0*3 

JETINP72 

njmsmjo-1 

JETINP75 

NJPsNJO*! 

4ETINP7<J 

IHQsl 

JET1NP75 

GO  TO  22 

- . . - ...  JETINP76..  , 

32 

NHMNaNM«NE 

JETINP77 

31 

NE1=NE*1  

JKTTNP7B 

CALL  SETM(1,UE0GE,00(nEi ),NRMN) 

JETINP79 

CALL  SETM(l,TrtF.DGE.THD(NFl).Ni»MN)  . 

JETINPBO 

IF(TUPBJ)  CALL  SFT'1(1,EE0GE,E0C9E1),nRMN) 

JETINP61 

0O(n=Y(NEl-V(NJM) 

4ETINPA2 

IFC.i^OT,  OIFF)  GO  To  3119 

jETINPeS 

00  3120  LLsl.NC 

JFTINPBU 

ALtlsALEOGE(LL) 

JETINP85 

CAl L SFTm(1.A| Fl.AI X(mE1.( 1 ),mRMN» 

JFTJNPRb 

3120 

CONTINUE 

JETINP07 

...  .3119 

GO  TO  (29./jO).LGO 

JFTINP83 

29 

DO  28  L3"<E1»NM 

JETINP69 

TLJs  lLL'tlitlUtJ 

JFTINP90 

NPUbnE 

JETINP91 

NPOsnE 

JET1NP92 

UO(SPJ)aUEoCE 

JETiNP93 

THO(NPU)sTHr.OGE  

JETINP9a  

IF(TURBJ)  E0{NPJ)sEE0gE 

JETINP95 

J-Lt. N OT.DIFF)  GO  TO  5S 

JEIIKPSA 

I 00  2802  LLal»NC  JtTINP97 

I _ 2002  *LX(NP0,LU)=ALE3GE(LU) _ . . . JETINP93 

CQ  TO  35  JtTINP99 

JETINPOO 


C* 


CUMPUTE  CDvSTANt  tFRH3  'in  COFFICIENTS  Of  PDE(5S 


DIA=0IAJ/I2, 

YJETF  = Y(NPU) 

UCLlsUDd) 

I fj  «E  ST  R_T  , nE  , BITS) 


Y J EJ  E *_Y  J ( N RE  S )_ 


COEFinsl  ,/(VJET*0lA) 

IK'TuHBJ)  G3  to  770 

COEF(2)  = Ot ; 

GO  To  76R 

770  C0EF(2)=VJFT/(GCJ*0IA*EJET) 

769  IF(QJET)  GO  TO  771 

C OFF (i)=0. 

C0EF(a)*0, 

GO  TO  77?  __  __  _ 

771  COEF(5)sPJF.T/(VJEt*OlA*TjET) 

CJEF(9)=vJfT/(GCJJ»^DIA*T^EI) 

77?  CO£F(S)sdIa/VJET 

C OF  F ( h S«DIA 

COE"F(  / )sf(4«,*GC/(VJET*VjFT) 

C0tF(9)aiUtt,.GC/(GCj»TJETj  

C* 

C*  initialize  COMMON  /PRQPJ/ 

c* 

RGASsRG 

IF(,n0T,0IFF)  go  to  7772 

WMWlalSaS./RGAS 

CND( l)sl ./(WMRT*VJET*DIA*TJET) 

_777?  NACHsMJET 

PsPE 

VSPEF  = MUREF 

TRFFsTREF 

SCCsSC_^_ 

PRLsPR 

PRTTaPRT 

MACHO=MJETO 

F N T K y I s , IR.Ut. 

IF(RFSTRT  .NE.BITS)  Gq  TO  996 

CALW-JFtpRp  


PRINT  initial  STATION  OaTA 


996  CALL  JTOUTl 

if(tapot  .and,  kfstrt.eq.  BITS)  call  JTFILE(1»Y 
C» 

1000  RETURN 


(NRES)) 


JETINP51 
JETINP52 
JETINP53 
JETlNPSa 
JETINPSS 
JET1NP56 
JETINP57 
JETINP59_ 
JETINPS9 
_ JETINP60_ 
JtTINP61 
JF.TINP62. 
JET INP65 
JETINP6<1 
JETINP65 
_JETJN&^ 
JETINP67 
JETINP68, 
JETINP69 
JETINP70_ 
JFTINP71 
JETINP72_ 
JETINP75 
JET1NP74 
JtTINP75 
JETINP76 
JETINP77 
_JEJl-NPJLa_ 
JETINP79 
JETINpB0_ 
JETINPSl 
JEHNP92_ 
JETINPeS 
_JLLINP^<L. 
JETINP85 
JET1NPB6_ 
JETINP67 
JETINPB8_ 
JETINPeO 
,JETlNP9tt_ 
JETINP91 
JtTINP92  - 
JETINP95 
JtTINP9!» 
JETINP95 
.JLII_NP96_ 
JETINP97 
JETINP99 
JETINP99 
JETINPOO 


•JETPRP  GENFWATfS  initial  PROFILES  EOp  -JETmIX-  JETpRFOl 

SUnunOTlNE  JfTPMF  . _ , _ JETPRFOa 

C')»“*riS  /nPcTRL/  TITlE(20)»PRINT(J0)  JETPRF05 

MRT^fL/^  rNR.EwRntj,  in-RR.prEqR JETPWFOa 

logical  f k-^.LRRmaJ.  lNE«N»pfj£j»R  JETPRFOS 

COM«<n\  /JETOat/  npTS, radii?), IS(12),u(12),SPv(I2),mwT(12),CP(12),  JETPRF06 
1 FUtL(12),SPALDr.(J2),TKr(l?),niHER(^6)  JETPRF07 

COmmhn  /INDATA/  kj.MF. war, T2, beta, T?S,FARS,FlN02C»PO,RCo(ll)f  JfTpHFOB 

1 RCf)2f 1 1 ) , RMc (11 ) , rnox( 11 ),PT ( 1 1 ),ps(ii ), Bloc ( 1 1) ,Qco( 1 1 ) jetprfo’ 

ro»“M_^wcWFFoA/ _ jetprfio 

* OIAJ.mJeiTT  IJf  I,VJEl,GJEr(:?00),PE,TF,TlF,VE»GFX,RG,PR,  JETp‘r>1  1 

1 PR  I, SC, TRrF,MjREr,DlFF,Nr,CNAME( l2),ALF(1?),SCP(l2),CPrC3h),N.i,  JETPRF12 

* NM,CII,CT2,CT3,CI't,CTb,CTh,CT7,CTe,y{2oO),UO(?00),THD(200),  JLTPRF13 

* I 13(200  ), ALX(  1200)  JETPRFIO 

/<EyS/  Kf  ya(  1 1)  .KEYhI  U )»K00A(  1 1 ),K0DR(  1 1 ) JETPRFIS 

cr)«'<nwcRr  f/  rA,c‘),cc,CAA,CBA,ccA jetprfi b 

common  /r.ASCM?/  RICH(2a),FUJL(oH),ENTH(08),CONC(7bB),HClNCP(2«),  JEIPRF17 

* niHER2(iq2)  _ JETPRFia 

COM«c)N  /CBITS  / HMS, BLANK  - . JETPRFIO 

__D1ME^J313^J  lEni  (27),NSA(2b)  JETPRF20 

DIMtNSlJN  RTU>*E(12),CnAmi  (12)  JETPRF?! 

DIMtNSl_JN  r3(200j 

EUuIVAlE’nCF  ‘(ED(l),TlO(n)  JtTp'RF23 

«EaL  _ MiiLFl(lO0),‘'nLF?(1on),NnLr3(l0O),*1JLF/r(100), JETPRF20 

A ‘iOLFj(lPO),Y:)LFf>()00),*iOLr7(lOO),M'JLF«(lOO),  JETPRF25 

A _ HOLFOI  100)  , molFKK  100  ),N0LH  1 ( 100),MC)1  Fl?(lOO)  JETPRF26 

EOUIVAlENCE  (MJLn,ALX(l  ) ),  (mOLF2,  ALX(  101  ) ),  (MULF3,  ALX(?01  ))  , JE  TPRF2  7 

; oyi.  F'l,  AlX(  i_0111_,  (^ULFS.  ALX  ( N 0 IJ  )jS  JI  F 6 , a lx  ( S OJ  ) ) , J E T F 2 B_ 

A (M  JLF  7,AlX(601  )),  (MiJi  Fb.ALXI  701  ) ),  (‘■oi  FO,ALX(HOt  )),  JETPRF  29 

A _ _ _ (MJl  F10,ALx(901)),(M3LFjJ,ALXil_0on)f  ('iOLF12,ALX(1101))JETPRF30_ 


c* 

* 

CA 

c« 


WEAL  N,>iASS,MACH,MJET,MUREF 

LOGICAL  OIFF  j 

OImEnsI  JN  1IJ(  12) 

_E  ' I V A I E N CF  (UJ»  u ) 

NAMiflsl  /A/  1 I J'F'T,  TlE,Rr.,PR,PRl,SC,TREF,MURFF,NM, 


data  LEN| /3,12,1,3b, (.,100, 12, 100, 9, 12, 1,5b, 1, 20, 1,30, 

A b,ll,2,29,2,‘‘0,l,7t.8,l,i92,0/ 

. PATA  \.SA  / 3^  1 H I , l,  1 H .1 , h , J HK  , 1 , I ml  , 9 , J tJN,  1 , 1 HN  , 

A 1 , 2m1 1 , 1 ,?HJ 1 , b,2HK 1 ,2,2HL1 ,?,2hmi , 1 ,2HM , 1 ,2HI2/ 

DATA  CNAhI  /OMfiASl  , OHf.AS?,  a.IGASi,  UHC.AS'),  OHGASS,  yHGASb,  «H(;AR7, 

I «Mr.ASn,«MGAS9,bHGASiO,'5HGASl  1,SHGAS|2/ 


CALL  FLGFRR(  S.INERR) 

READ  (S,A) 

IF(  INERR  ) return 
CALL  SElM(l,nnS,Y,20o) 

CALL  MOVE  (I,Cnami,cnaME,i2,1) 


JETPRF 51 

JFTPRF32_ 

JETPRF33 

JETPRF39_ 

JETPRF  3'b 
JETPRF 3b_ 
JETPRF37 
JETPRF38 
JETPRF 39 
_ IETPRFOO_ 
JETPREOI 
JE  TPHF92 
JETPWF<13 
JETPWFOO 
JETPRFUS 
-_JFTORFOb_ 
JETPRFaT 
JET  PWF9B 
Jt  IPWFa9 
JETRRFSO 
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RJET=12,*K<rOCNPT3fl) 

DIaJs2,^RJET 

PE»PO 

TE«TS(NPT3»>) 

VEaU(NPTS*l) 

GEXeSPftUDG(NPTS»l) 

NC=NPTS*I  ' 

NJsS*NPTS-1 ; 

- OIFFe.THUEr 

MJETaQ, 

VJETaO, 

_FLO(<aO,  

RTUBE(1)*07 

Pi=s.m5927 : 

CCa32, I7a' 

DO  120  lal.NPTS 

■■  IF  'd.Ea.NpTS)  GO  To  lOo 

R T UBE ( I ♦ 1 ) 8SaBT((RAD(T)»*24RAO(l»i)a»2)/2.) 

GU  TO  i l6 

R T U Q r ( I ♦ 1)  a R A GJjJPTS  ♦ 1 J 

~AKEAam,(HTUBE(l*l  )**2-RTUBE(1)*A2) 

MASSaAREA«U(n/SPV(l) 

' FLn*'aFL0WFHA33 

JGAMMA^I  ,0 

if'  ('TS(I),r,T,(800,))  GAMHAs2.2570S/Ts(P A*. 070271 

IF  (TS(i),GF.(3e.OO.))  GAHHA3I.2S4  

MACrtrU(n/SQRT(6AMKAaGC*RG*tS(I)) 

MJFIaXJETtHASSAXACH 

VJETaVJtltHASSAUd) 

_C0NT1NUE • 

MJETaMJET/FCOH 

_VJETavj£T/RLIW 

00  130  Isl.NPTS 

CPCt3*l“.2?»iiLA 

CPC(3Al-l)rCB 

_CPC(3*I?sCC 

SCM(l)s.70 

_ALE(IJs(L»il 

CUNIINUE 

_N.PE1  = NPIS  ♦ 1 : 

CPC(3*NPP1-2)3CAA 

. CPC<3*NPPl-llsC9A ^ 

CPC(3*NPP1 jaCCA 

, SCM<NPPI)3.70 

ALElNPPDai.O 

_NSL=-NJtJ 

NJMlaNJ-l 

CALL  SET^  (l»TIJET»Tlo(l)iNJMil 

NALXsl 00*NPPI 

call  SEIM  I1#0.0«alxU)#NALX) 


JETPRF51 
. JETPRF.52. 
JETPRFS3 
JETPRFSa 
JETPRFSS 

jETpRr56_ 

JETPRF57 

JETPRF58_ 

JETPRFS9 

JETPRF60 

JETPRF61 

JETPRFfe2_ 

JETPRF63 

JETPRF6a 

JETPRF65 

JETPRF6(> 

JETPRF67 

^JETPRFbJL 

JE>PRF69 
_JtrPRF7P_ 
JETPRF71 
■ JETPRF72 
JETPRF73 
__JETJ»RF_7J_ 
JETPRF75 
JETPRF70_ 
JETPRF77 

JEJPRfJfl, 

JETPRF79 

JE1^£.BQ- 

JETPRF61 

J£TPJTF82_ 

JETPRF6S 

JEJPRf  a>i- 

JETPRFflS 

_JETPRFfll»_ 

JETPRF87 

JETPRF8B_ 

JETPKFBO 

J£IP.RF9.Q_ 

JETPRF91 

JETPRF92-- 

JETPRF93 
JtTPRF99 . 
JETPRF9:> 

J£TPRF.9B_ 

JETPHF97 
JETPRF9B 
JtTPRF99 
_ J£TPRFOO 
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00  150  J«NJ,NSL 

If  (J.f'J.MJ)  SCL«.90  

IF  (J.ca.Njti)  SCL=,5o 

IF  SCL».l0 

!(■  (J.FQ.NSL)  SCLSO.O 

T10(J)  = SCL*iIjCTj>^l.-SCLL*TlE_  

ISO  CUMTINUE 

OHS*VE=,01O*WaO(NIM_SJ^1)_ 

Y(1)=12,*HTUbE(1) 

^Ll^(  1)  = IKI) 

THO'dJs  TS(1) 

GJFKDs  S^LOG(l) 

ALX(l)al. 

_PU  200  I = 1,NPP1  

j * 6»(i-r) 

DPs  0 H1A.VE 

DMQ2=0H/?, 

IF  (I.EQ.NPPl)  GO  TO  J60  _ __  

IF  (f)'<.LT,f9TU»E(IM)-HTUBE(I))/2.)  M TO  160' 

r)P=(PTUjr(T»l  )-PTUHE(  i))/q. 

0P02s0«/a, 

IfaO  1 F (t.F.3.  n GO  TO  170 

Y( J)sl?,*RTUHE( I ) 

_ UD(J)  = 0,S*{U{I-1  Iflid)) 

THD(J)=  .5*(T3(T-1)4TS(I)) 

GJET  ( J)s  .5»(SPAL0G(  I-lJ^SPAlor.dlj 

KS100»(I-2)*J 

ALX( K)s.50 

KsiOO*(l-l)*J 

*LX(^)Sj^50 

JPlej+1 

Y(JPl)sJ?,*(HTU3E(n»0«02) 

UDIJPl)  s o,10*U{I-l)»0,90»U(l) 

TH  0 { JJ'  IJ  s , 1 0*TS(  I«1  ) ♦ .90*TSM  ) 

GJFT( JPlTs  ,1 •SPALOGC I-l )+.9*SPAL0G(l) 

KslOO*(  I-2)_tJPl_  

ALX(KJ=t lO 

KalOO*( I-l ijJPl 

ALX(K)s,90 

iL_(i,fil,NPPi  l_Gn_Tn_i_9o 

l7o  Y(J*25=  12.*(RTJ8C( lltOH) 

Y(J*S)  = lP,*{PTU3t  ( n*RTUHE{I  + l))/2,'  

Y(JtO)rl?,*(HTU3t (I»l )-0R) 

JP2  = Jt2 _ 

JPOsjtO 

OO_lH0_J  = Jp2tJP(j 

UD(J)  s U(T) 

THO(j)  = TS(i)  . 

GJFT(J)=  SPALDGd) 

KslO0*(i-l )*J 


JETPRFOJ 
JtTPRF02 
JETPRF03 
jtTpPf 09 

jetppf'os 

JtTPRF06 
JETPRFOT 
JETPRF09 
.JkTPRF09 
_JF  TPHFIO 
JETPRFll 
JF.TPRF12 
jETPRFli 
JETPRF19 
JETPRF15 
■)LTPRF  lb 
'■  JETPRFl? 
JETPRF18 
JETPRF19 
JETPRF20 
JFTPRF21 

JK  TpRF?2_ 

JETPRF*2i 

JETPRE?*! 

jetprfps 

JETpRF2b 

JETPRF27 

_jETJ»JiF?!L 

JETPRF29 
JETPRF30 
JETPRFii 
JF  TPRF32 
jtTPRF53 

^JtTPRF\9_ 

JET'pkFTS 

JtTPRFjb 

JETPRF3F 

JETPWF39 

JETPRF39 

.IFTPRFa0_ 

Jf  TPRF91 
.IF  TPRF92 
JtTPRF«3 
JtTPRF94_ 
JETPRFUs* 

„ JFTPRFi|S_ 
JETPRFflT 
jETpRfaS 
JtTPRFa9 
JETPRFSO 
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CJETPRP  PROPERTIES  0^  JET 

sub«outine  JETPRP 

Lor.icAi.  supErt 

LJJG T rftL  LntRYI 

logical  AXI  , XPR»J  f CMPRS  . QJET  , TURBJ  , CORE 

LOGICAL  SUBGONtTMACH 

LOGICAL  ERR 

logical_a.mbt.o 

REAL  MJET  « ME  , HUREE 

PLA  L_M  * C 

REAL  KCP.HDEEFj MUL 

_COMMOM  /JETTMQ/ ^ 

* TWO  . niAO  , MJETO  . TJETO  » VJCTO  » 

* PTJETO  . TlJETQ_f_NJO 

real  MJETOfMACHO 

COMMON  /BCO/  UP,  EO.  THO 

COMMON  /CTRL2/ 

* .E0GE1_.».  SEI t .merge ...XmERGE_jl  TMERGE  j. 

* SLOPE!  , SLOPED  » CEpTi  , CEPTO 

COMMON  /mERGET/ _ MER»  merSTP_#_.XMRo 

logical  Two.  MERGE  . HER  . MERSTP 

.CO M « r!N_/^ RQPJg/  MACHO. REFLO.YI. TO. MEftCP 

LOGICAL  MERGP 

, . COMMON  /RATIQ/-^^..A.MaT,Q 

COMMON  /INPl/  ENTRVI 

c******  input  common  _ _ 

C* 

COMMON  /INPJFT/ 


* OIAJ  , MJET 

* TUFT 

9 

TJET 

. PT.IET 

. VJET  , 

* PE  , VC 

* AXl  . NJ 

9 

ME 

» Tir 

. te 

* X(100>  . XPRN(IOO) 

9 

* GAM  . RO 

• 

PR 

. PRT 

# 

* SC  f TREF 

9 

MUREF 

c*. 

c** 

****  CONTROL  COMMON 

c* 

COMMON  /CTRL/ 

* NXTA  . CMPR.S 

QJET 

^ . TURB.1 

. cnCFtlOi 

• NPU  , NPO  , OXC 
._*_DSTQRI8Q0i 

XU 

. XDD 

c* 

c** 

****  PROFILE  COMMON. 

C« 

c******  constant. ANO  ERROR  COMMON  _ 

C* 

COMMON  /CNFRR/  BITS  f ERR  , GC  » CCJ  . FOOT 


jETPRPOl 

JETPRP02 

JETPRP03 

_JEIPJ<ED« 

JETPRP05 

JETPRP06 

JETPRP07 

jetprpos. 

JETPRP09 

-JETPRPJJ} 

JETPRPl 1 

JETPRP12  

JETPRP13 

JETPRPIR  - . 

JETPRP15 

.JETPRPI.6 

JETPRP17 

JETPRPia 

JETPRPIR 

JETPRP20 

JETPRP21 

_JETPRR2.2.__ 

JETPRP23 

JETPRP2R 

JETPRP25 

JETPRP26 

JETPRP27 

_JETPRP1B 

JETPRP2R 

JETPRP3P  

JETPRP3I 

JETPPP52 

JFTPRP33 

. JETPRP.34 

JETPRP35 

JETPRP36 

JETPRP37 

JETPRP58  _ 

JETPRP39 

JETPRPRO 

JETPRPai 

jETPRpa2 

JETPRP03 

JETPRPaa 

JETPRPRS 

_jETPRP«6 

JETPRP07 

JETPRPaS  . 

JETPRPRR 

JETPRP50 


1 
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BDIJNRtRY  condition  rOMMON 


COMMON  /aC/  HEOGE 


T E tn  1 A l_ nRE  COMMON 

_ CO ” M 0 N /C ORE* /_X C 0 RE  , C 0 RE  . CO R It 


•R  (UNITS  CONVERSION) 


C 0 M M 0 N _/ S C A LER/  8P  i 8V  . SL E M_ 


*_JEI  PROPERTIES  COMMON 


COMMON  /JE^/ 

* B(IOO)  , UCMOO)  . Tcnoo)  . Tlc(loo)  » 

_*_P_TC(1001  .,_WJU.OO) ._ULU).QLi I 

* vsoNicnoo) 

__cnMMON  /jETi/..Fj.owjjuTro.aiXj£ici 

COMMON  /JET2/  TTC(IOO) 


• P . PRL  , PRTT  , RGAS 

.*_TREFE^ « -YSREF »_mACH -^-XLC 

• REEi  / C f cm  , RNORM 

• HHOfSOO)  _«-..MUL(200) ,.KCP(200) 

A MUEFM200)  , XlN(200)  , 0K(200) 


, Sec 


* RErURB(200) 


_j:QM.MON-/j4ixER/_MiXtiU)(.uoi,acujJLoy>£r-»jitJUii>jxi 

LOGICAL  MTX 

_CQMMaN-/FLnBAL/--MAXlT,‘SUPQ.NlT»P3ID»V!>0*-Y0C» — 

A pi#p2,ucl#tol,upstrn'.’cvc 

LOGlCAt SUgB»CVG,UP.STRM 

common  /iCONVG/  YC3(l00).PD(100),INDc(l00),’  CHOKE',’  CHOKED 

- LOGICAL-  CH3KE._CH0K£0 

COMMON  /OFtT/  CLBPdOOi 

-COMMON  /STA2/LilACH2,  TS2»JS2,  V2*RH02^nPDX2 

REAL  MACHP 


REAL  MUM 

-COMMON  /THRST/WVdOO) 

COMMON  /MIXPRP/  MA2(l00)f  VR2(100),TEP(l00)ir'TMC(100) 

REAL  MA2  — 

COMMON  /therm/  GMC(?00)#CP(200> 

_COMMON_/OUtMXJC/_AlXaHXC — 

COMMON  /CHODy/  YC8(I00},CLSPC8(100>VyCB1  UCLl 

COMMON  /JET3/  STAOD,  nV,.STaTe.  - 

COMMON  /TNnAME/  NB»  TaH(S)  , NO  • TAoERJ 
COMMON  /COnSTE/  CONI 


JETPRP51 
. JETPRP52_ 
JETPRPSJ 

_JE.TPRP-5il 

JETPRP5S 

- JETPRP56 

jETPRPST 

-JETPRP5S 

JETPRP5R 

_JETPRP6Q 

JETPRPfcl 

JETPRP62 

JETPRP6J 

_JETPRP64 

JETPRP65 

_JE.TPRPjbA 

JETPRP6T 

-JETPRP68 

JETPRP6R 

. JETPRP70 

JETPRPTl 

_j£TPftPZ2 

JETPRPTJ 

JETPRPTa 

JETPRP75 

JETPHP76 

JETPRP77 

-JETPRPTS 

jrTPRP7R 

JETPRPSO 

JETPRP81 

-JETPRP82 

JETPRPB5 

-JEIPRPBO 

JETPRP85 
-JETPRPBfc — 
JETPRP8T 
JETPRP88.-- 
JETPRP89 

. JEIPRP90 

JETPRP91 

-JETPRP92 

JETPRP95 

JCTPRP9a 

JETPRP95 

_JETPRP9S 

JETPRP97 

JETPRP98 

JETPRP99 

JETPRPOO 


LOGICAL  STADD.STATF 

C3MM0kJ_/SCALE0/  SCLOiALXLIM 

jETPRPOl 

JETPRP02  

LOGICAL  SCLO 

COMMOM  /MOlFS/  AIXflOn.l2S 

JETPRP03 

■iFTPRPOa 

COMMON  /OIFEGI/  , . 

* NC  . CNAMFtiai  * AtJ<12)  < Al-10112)  . iLE^^i  * 

JETPRP05 

JETPRP08 

* SCMfl2)  , TCPRFd?)  , HCPPFli?)  , CpCIS.I?) 

COMMON  /VOfXI  / TE 

JETPRPOr 

JFTPRP08 

dimension  T(200),  STOrKZOO) 

DIMEnSTOn  vf?nn) 

JETPRP09 

■lETPRPtO 

OlMcNSlON  TKF(200),SToR?(200) 

FDIJIVALEmcf  (Ti^E,l),O$TOR\60li)».t8tOR2ai-*DST0ft(.fc0L>i.  .. 

jetprpu 

JETPRPU 

dimension  yMACHiaOO) 

EOUIVALENCF  f VM4CH ( t ) . DSTOR f fcO 1 ) ) 

JETPRP13 

JETPRPia 

FQLIIVAlEnCF  (Vm.OSToRfflO!  )) 

eduivalencf  irm.osToRf lii . isToRifii.  DSTnRr20ii^ 

JETPRPIS 

JETPRP18 

EOUIVALENCF  (C#>*COEF(^)) 

EOuIvAI.EnCF  (ITmOfTnOl 

JETPRP17 

JETPRPIS 

c* 

data  nreg/i/ 

properties  otmEnsionle33  Unless  otherWtse  noted 

JETPRP19 

JETpRp20 

c* 

1 IFI.nOT.FNtRVI j go  to  10 

JETPRP21 

JETERP22 

ITWOJ»ITWOaI 

NXal 

JETPRP23 

JETPRP24  , 

- 

NVst 

OTOsT.IET-Tp 

XJSXII) 

IGOSI 

JETPRP25 

JETPRP26 

JETPRP27 

JETPRPPe 

c* 

C* 

INITIALIZE  AT  1«ST  STaTiON 

JETPRP29 

JETPRP30 

2 UC(l)8UD(li 

TCdisTHOd) 

JETPRP31 

JETPRP32_ 

TICdiaTTJFT 

PTCdlsl’ 

JETPRP33 

JFTPRP59 

TTC(l)=i; 

IFtAMHTOl  TTCdlaBITS 

JETPRP35 

JETPRP3S 

c* 

IFIMjET.Eo;  0.)  PTC(1)»0IT8 
yjd  )sYDfNPD)  ^ _ . 

evaluate  Mass  flow  in  jeT— stream  function 

JETPRP37 

jetprpts 

JETPRP59 

•IFTPRPflO 

3 EXPai. 

IFIAxli  FXP02, 

JETPRP41 

JETPRPRZ 

CnNlBVJET*c«"*'*FXP 

REFLcB(l)<*r6  _ ...  _ ... 

99  CALL  FMPYCri,C6,VD»Y»NP0) 

CALL  FMPVCfl.F.TFT.FD.TKF.NP^i 

JETPRPOS 

JETPRPOR 

JETPRPOS 

.tftprpos 

CALL  FMPYCfl»TJET»THD,T,NPO) 

IF(  SCLD  ) GO  TO  98  ..  - .... 

JETPRP07 

JETPRPOS 

CALL  SCALEfUD»lTWOJ,l,'Xlli) 

GO  TO  97  _ . _ . 

JETPRPaO 

JETPRP50  . - 
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9B  C*LL  SCALf  rALXn.NO.lTwnj.i.X) 

±7  CALU  PR'JPJ(ITMOJ,TURBj,l,XJ,y*^XtlKE»j,NPO.)_ 

CALL  GAHrPfT,GMC.CP,RGf l.NPO) 

DO  & Lal.MPp  

«AD*1,. 

IFfAXn  RAn»Y0(JLl L 

5 STORl  (Ll«.S*RHO(L)*UD“aT*RAO 

_ _ h PSI(l)*0r_ 

66  CALL  INTG(BTnRl«Y0«PSl«2.NP0) 

_C*_ 

c*  IF  MTXrR  nozzlf  case*  compute  stream 

C * FUNCTIOM  coincident  WITH  DUCT  MALL 

C*  , 

TEf.NOT.  MTX)  go  to  6<i6  * 

YO»YR(n 

Y J_*  YD  (MPO) 

RH6EaT.JET*RH0(l)/TE 

0 P S I F a . 5 * R H 3E * VE / < ^ ET)  >(Yn**EXP«YI a^E Xf 
■pSIDaP3I(NPO)+OP8iC 

POdTaPE 

MA2(naME 

VE?(l)aVE 

TE2(1)8TE 

YC0<t)*5llaL 

TwCd  )38IT8 

666  WJd)*!, 

FLOW.I*PST(NPU)*CONj 

CEJs  G AJt»RG/.CC  

SUDSONa.TRIlE.  , 

GO  To  8760 

C*  entries  at  STATIONS  OTHER  THAN  STATION  1 

a ft 


10  UC(NX)aUO(l) 

-T  C ( N X ) a T HDT4.  j 

TIC(NX)aS0RT(2;ftEjETftGCjftE0(l)/3,)/V,|ET 

11  YJiNxiaVJETE 

Y^EJaYJEIE 

IFITWO)  YSFTaEOCEI 

.1F(  NREG.NF.2- J..NREG*! 

iFi  .’notTsclo  ) go  to  mo 

in  ALXd.NCi.GE.ALXLiM  ) NREG«E  -- 

CO  TO  mi  , 

mi  CO  TO  (t2>i4)  « NREC 

Cft  potential  core  region 


JETPRP51 
..JETPRP52_ 
JETPRP53 
■ JETPRPSa  ■ 
JFTPRP55 
_ JETPRP56_ 
JETPRP57 
_.JETPRP58_ 
JETPRP59 
__JLTJ»RP61L_ 
JETPRP61 
_JETPRP62_ 
JETPRP63 
_JETPRP64_ 
JETPRP65 
_JLrP5P66_ 
JCTPRP67 
^ JETpRp68„ 
JETPRP69 
_JETPRP7JL_ 
JETPRP71 
_J£IP.RP-72_ 
JETPRP75 
.. JETPRP74_. 
JETPRP7S 
JETPRP76  .. 
JETPRP77 
— JETPRP-7a-- 
JETPRP79 
-JETPRpaO— 
JETPRP81 
_ JETPRP82— 
JETPRP83 


JETPRPeS 
— JETPRP86 — 
3ETPRP87 
JETPRPaa— 
JETPRP89 
— JETPRP9Q — 
JETPPP91 
JETPRP92 — 
JETPRP93 
JETPRP9<I  - 
JETPRP95 
_JETPRP96 — 
JETPRP97 
JETPRP98_ 
JETPRP99 
JETPRPOO — 


1?  on  L«1»NPD 

.,TF(  SCLO,),  GO  TO,  1200 

TF(Un(L).NF,UCLl)  GO  TO  15 

GO  tq.  i; 

•00  IF(  ALX(L.nC).CE.ALXLIM  ) GO  TO  15 

15  COMTTNUE 

15  B(NX>»Y3ET-Y0(L»1) 

_ on  TO  ?o 

la  b(mx>«?.*y.?ete 

CL  total  pressure 


20  IF(,nOT.  CmPPs)- CQ_T0_22 

TE>'PsTH0(1>*TJET 

vjcpyjfT^aCLi 

r.AMXGMCfp 

CPJrCPdT 

GAMSGAHHfTr) 

TTCL=TFMP*.5*VJC*VJC/(GCjACPJjACJE.T*E0tli/-CPJ 

IFl.MOT,  *MBTC)  go  TO  1357 

TTC(^)X)«alT8 

GO  TO  1558 

„ 1557  TTC(NX)s(TICL-TE)/lTro?IEj 

1338  CONTINUE 

Xhj«VJC/8QPT<GAM*GC*RG*1EHP1 

TTRJxTTClVtEMP 

PK.SPE 

IFfHTX)  PKeP2 

P0C8pK«(l.».S«(GAM.l  .iAXMJ»»2iAO(GAM/f6AM»»i.h 

PTC(NX)*(PoC-PE)/(PTJeT-PE) 

c*  LOcTtE  SONTC  LTNE~fr~ 8U7fRS0NTC aaa 

CO 

8760  TF(SUBSOM)  CO  TO  29 

TMACHs.'FALSE^ 

SUPERTe.TRUE. 

LKe2 

TE  a 1 

00.-2  \ l-Lall'-N  P 0 , . 

IML.CT.  1 .'and.  U0(L).E0.  UCLI)  I K^L 

TL8TH0(L)*TJEI 

CAMxRAMHlTi) 

VSON=SCRT(dAM*GC*RG*TL)  

YNACHlDaUnCDaVJET/VSON 

lf.( L-’iT^MPn  .AMo:  YMArHfl  >:fq:  YHAPH/flil LK»L- 

IFT.NOT.  SIIPERT)  GO  TO  217 

SUPERTa  YMaCH(L).‘lT,  l , _ „ 

217  TFfTMACH)  GO  TO  211 

TMACHsY.*iACH(L).OE.l,  . 


JETPRPOl 

JETPPP02 

JETPRP03 

-jETP-RP-fi.9 

jetprpos 

JETPRP08 

JETPRP07 

JETPRPOS  

JETPRP09 

_JElPRPlfl 

JETPRPll 

JETPRP12 

JETPRPI 3 

JETPRPIO 

JETPRP15 

-JELTPRPIA 

JETPRP17 

JETPRP18 

JETPRP19 

JETPRP20 

JETPRP21 
^ E TPRP22  ■ 
JETPRP23 

JETPRP20 

JETPRP2S 

JETPRP26_ 

JFTPRP27 

_J  E.I2R  P.2.B 

JETPRP29 

..JETPRP30 

JETPRP51 

JETPRP32 

JETPRP33 

_JETPRPi5 

JETPRP35 

JETPRP3e»_  . _ 

JETPRP37 

JETPRP3S 

JETPRP39 

-JETPRPaO 

JETPRPOl 

JETPRP02 

JETPRPOS 

JETPRPOa  

JETPRPOS 

_JETPRPa6 

JETPRP«7 

JETPRPOS  _ 

JFTPRP09 

JETPRP50 


COUTTNUC 

TFfSUPEBT)  fig  TO  29 

IP(,NOT.  ThaCH)  SUBSOija.TRUe.  ' 

IFt.MQT,  SIIBSON)  GO  Tn  213 

VSnNTC(NX)nO. 

GO  TO  30 

YSO'4IC('4*)*YOrn..YH*CH,VO»LK#RPt>«l) 

IF(.N3T,  FWR)  CO  TO  3a 

ERR*. false; 

Y8n»ITC(M»)«8IT8 

r.O  TO  30 

_PTC{NX)»8lis 

TTC(NX)BaiT8 


.TF(MX.En;i)  r,0_TO_lOM 

WJ(9X)*SFE0GE/Fl0RJ*C0N1 


I U :■  i 4 : K I 


|ifiuUI:l3*l 


_A000..1F(, NOT. .{^tXl-Ca.  10-1004 

IF(8TA0t>)  r.O  TO  loot 

ir(Nx  ,Eo,  _ii_6a_TO_9o* 

YC0(NV)*Y0C 

PJ)lKYlsE2 : 

’F(,NOT,  siinsoN)  inOc(nv)«i 

lF(CHDKE)_INOCliiyi«2 

NA2(NV)cMArH2 

VE2{RV)«V2 ^ 

TF2(NV)«I32 

A* 

C*  IF  MIXER  nozzle  case#  calculate  thrust 

-C* 

906  CALL  TMPU8T(RV) 

. c* - .* 

C*  IF  FLOW  CMOKFO,  CHECK  AVAILABLE  AREA  AT  NEXT  STATION^ 


IFI, NOT.  ChOKEI-  go  To. 4001 

AJ*Yf)0**FXP-YCB!**EXP 

IF(NV,EQ.*  NXORIG)  CO  TO  1001  

NVlaNV«t 

JtNXfixaiNVOi 

CALL  LrFIT(XO,YRtNX0RTC,0,XNX,Y0NX,'l^0#CLSP) 

CA( L LCFTT(XO*YCR»NXOqlG»0»XNX*rCRNX.l*O.Cl  SPCR) 
A2aYONX**ExP-YC3NX**E  xP 

-lF{A2.LCr  Ali-  STATfa.TRUEj 


JETPRP51 

JETPRP52. 

JETPRPSS 

-JLTPRP5A. 

JETPRP55 

JETPRP56_ 

JETPRP5T 

JETPRPSS. 

JETPRP59 

_JETJ>RP60- 

JETPRP61 

jETPRPOa. 

JETPRP65 

JETPRP60. 

JETPRP65 

-JE.TPRP66- 

JETPRPor 

-JETPRP6S_ 

JETPRP69 

-JETPRP-70- 

JETPRP71 


jetprpts 
JETPRP7A- 
JETPRP75 
JCTPRP76. 
JETPRP77 
-AEIPRPlfl- 
JETPRPTT 
_ JETPRPSfl- 
JETPRP81 
JETPRP82_ 
JETPRPSS 
_JEJJ>RPAil- 
JETPRP85 
— JETPRP86- 
JETPRP87 
JETPRPSS 
JETPRP89 
.-JETPRP90_ 
JETPRP91 
JETPRP92- 
JETPRP93 
JETPRPOO 
JETPRP95 
~JETPRP96- 
JETPRP97 
JFTPRP98. 
JETPRP99 
JETPRPOO- 


toot  CALL  OTCST 

RETURN 

. End 


JETPRPOl 

JETPRP02. 

JETPRP05 


CJMESHH  HESH  REOISTrIBUTTOW  EOR  TR*ig3.  REGION 

SUBROUTINE- JMESHN  

COM»inN  /PARAM/  OUm(16o1  ) ,SH(200)<NM*hUHl  (7) 

c^MMnN  /rtPL/  BiiHgdsS.  npb'  oiiM^rBo^S 

COMMON  /UMfSH/  HCHANG.CK.OYI.NMSH  , CXPC»CXTP,NRED 


_1__PS1EcSM(NPd) 

DpSIFsOVl *pSIE 

LR-l'  C K -±l 

CONeoPSlF/rKl 

no  s l»i»n.mSh, 

EXP»ELOAx(i  -1) 
_5.  SM  ( 1.  iscaN*fCKA*t 
NPOsnmSH 

to  RETURN 

END 


JME3HM0J 
. JMESHMOi. 
JMESHM05 
■JHESHMOq. 
JMESHM05 

j.meshmoo_ 

JME3HM07 

JMESHM08_ 

JmFSHm09 

-JmeSHMIOl 

JMESHMU 

_JMESHmi2_ 

JME3HMI3 

_JMESH.MlfL 

JMESHhIS 

JME3HM10 

JHESHMtT 


CJTCTRL  MAIi^  jet  control  routine 

SUBROUTInE_JTCTR| 

LOGICAL  SUPC»SUPSTP 

LOGICAL  HCHANG 

LOGICAL  C0R3TP 

_ logical  bypass 

logical  EnF  » err 

LOGICAL_  AXI  J XPRN  , CMPR3  , QJET  # TURBJ  . CORE_ 

real  mjet  , HE  » mur’ef 

COMHON  /RSTART/  NREG. Rr3TRT.NRES,HTXpRE 

LOGICAL  MjXPRE 


COMMON  /JEtTWO/ 

•_  TWO  __,_OIAO , MJeTQ  , TjETO  , VJETO ( 

* PTJe'TO  , TIJETO  , nJO  , 

REA  L MJF.Tn.MArHO ; 

COMMON  /gCo/  U0»  E0»  THO 

common  /CTRL2/_ 

• EOGEI  , SFI  , MErG'e  , XMERGE  , TMERGF.  , 

* SLOPE!  , SLOPEO_»  CEpJI  »_CEPT0 

COMMON  /mErGET/  MER»  HERSTP  , XMRG 

_L_OG ICAL  Two.  MERGE  , HER  , MER3TP 

C******  INPUT  COMMON 

C» 

COMMON  /INPJET/ 


yjETj)__j 


j»_DiA.r  __ 

* TIJET 

* PE 

* AXI 

* X(tOO) 

* GAM 

* SC 


PTJET 


VE 

NJ 

J<PRN(  10^ 
RG 

TREF 


PR 

MUREF 


CONTROL  common 


COMMON  /cTrL/_ 

* NXTA  » 

* NPU  _ 

D3 TOR (900) 


CMPRS 

NPD 


TURBJ 

XU 


COEF(IO) 

XD 


profile  common 


COMMON  /PROF/'  P3r(260)'rY(200)»UD(200r»THD('200),EO(2bo; 


constant  and  ERROR  common 


COMMON  /CNERR/  bits  , ERR  , GC  • GCJ  , FOOT 


c******  boundary  condition  common 

C* 


jtctrloi 

JTCTRL02_.. 

JTCTRL03 

J-TCIJT.LO« 

JTCTRL05 

jTCTRl06__ 

JTCTRLO; 

jtctrlob 

JTCTRlOO 

_ JTC  JRLUJ 

JTCTRLll 
JTCTRH2  _ 
JrCTRLlS 

jtctrli'* 

JTCTRLlS 

JT£lRLy>_ 

JTCTRLIT 

JTCtRLIS  _ 
JTCTRLl’ 
JTCTRL20_ 
JTCTRL21 
_ JTCTRL22 
JTCTRL2i 
JTCTRL24__ 
JTCTRL2S 
, JTCTRL2t> 
JTCTRL2/ 

j_JTCTRl28 

JTCTRL29 
_ jrcTRL30_ 
JTCTRL31 
JTCTRL32  _ 
JTCTRL33 

JTCTRLSH 

JTCTRL35 
jTCTRL3t>_ 
» JTCTRL37 
, JTCTRL33 
JTCTRL39 
_ JTCTRL90 

JTCTRLRl 

JTCTRL92 

JTCTRLR3 

JTCTRL99 

jtctrl^s 

_ JTC  TRL"** 

JrCTRL'U/ 

JTCTRL99 

JTCTRU99 

jtctrlso 


c* 

COMHON  /BC/  UEOGE  , EEOGE  , THEQGE 

jtctrlsi 

JTCTRL52 

C*i 

»*•**  potential  core  common 

JTCTRL53 

c* 

JTCTRI  S4 

common  /cored/  XCORE  * CORE-  » CORSTP 

COMMON  /SUPER/  SUPCfSuPSTPf X3UP 

JICTRLSS 

JTCTRLSO 

c* 

»****  scaler  (units  conversion)  common 

JTCTRLS7 

JTCTRL58 

c* 

COMMON  /scaler/  sp  . sv  . slen 

JTCTRlSO 

JTCTRL60 

c* 

c*< 

k****  JET  properties  common 

JTCTRL61 

JTCTHL62 

c* 

COMMON  /JET/ 

JTCTRL6J 

jTCTRLfc** 

* B(lOO)  , UCdOO)  , TC(IOO)  , TIC(lOO)  » 

* PTC(IOO)  . WJ(IOO)  . YJdOOl  r 

JTCTRL<>!> 

JTrTRLAi) 

* YSONIC(IOO) 

COMMON  /JETl/  FL0«J,  TTO.  NXN  . EJET 

JTCTRL<>7 

JTCTRL68 

COMMON  /JET2/  TTC(IOO) 

COMMON  /IIMESH/  MCHAnG.CK.OY1.NMSH  , CVPC . CXTP. NRED 

JTCTRL89 

JTCTRL70 

COMMON  /jETi/  STAOO.  nV,  STATE 
logical  STADD.STATF 

JTCTRL71 

JTCTRl 72 

COMMON  /mixer/  MIX»RD( J00),ZO(100),CF,Yft(l00) 

LOGICAL  MIX 

JTCTRL7J 

JTCTRL74  

c* 

DATA  BYPaSS/F/ 

JTCTRL75 

JTCTRL78  _ . 

c* 

c* 

initialize  at  first  STATION  — INCL'JDE  STATION  WHERE  CORE 
DISAPPEARS  AS  A calculation  STATION  TO  BE  INSERTED 

JTCTRL77 

JTCTRI  78 

c* 

ncalcsnxta 

JTCTRL79 

JTCTRL80 

1 CORES, FALSE, 

SUPCs. FALSE. 

JTCTRL01 

. JTCTRL02  

MER=. false. 

NXPSNRES 

JTCIRL’'! 

JTCT«L8'4  . - . 

NXNsNXPtl 

XUsXf NXPl 

JTcT»L85 
. - - JTCTRL8S 

IF(,NOT,  MIX)  GO  TO  2 

NV32 

JTCTRL«7 

JTCTRLB8  . . . . 

STAODa.FAL'SE, 

STATES. FALSE. 

JTCTRL89 
■ ITC  TULRf' 

2 XOsX(NXN) 

DXCsXDikXU 

JTCTRLRl 

JTrTPLRZ 

c* 
c* . 
c* 

_ CALL_JTSTEP  F0R_JN.TEGRATIDN  TO  NEW^^CALCULATIDN  STATION 

3 CALL  JTSTEp 

JTCTRLR3 
- JTCTRL9<( 

JTCTRL95 

JTCTRLQ*! 

c* 

IF(ERR)  GO  TO  1000 

JTCTRL97 

JTCTRL93  - - . 

c* 

c*. 

TEST  FOR  END  OF  POTENTIAL  CORE 

JTCTRL99 

JTCTRLOO  _ — 
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• 

c* 

c* 

ALSO  TEST  FOR  DISAPPEARANCE  OF  SUPERSONIC  CORE  IF  JET  IS  SUPERSONIC 

JTCTRLOl 

JTCTRL02 

c» 

IFTCORE  JanO.  CDRSTP)  GO  TO  5 

JTCTRL03 

_JTJLLRMit 

1F(SUPC  .and.  SUPSTP)  GO  TO  5 

IFTMER  .AND.  MERSTP)  GO  TO  S 

JTCTRL05 

JTCTRLOS 

c* 

GO  TO  20 

JTCTRL07 

JTCTRL08 

c* 

c* 

RELOCATE  JET^PROPERTIES  Up  1 LOCATldN— 

INSERT  XDCORE  AnD  SET  XpRN  T 

JTCTRlOO 

JTCTRL 10 

c* 

5 assign  9 To  LGO 

JTCTRLll 

JTCTRL12 

XTEST  s X(NXN) 

IF(  ( XTEST. 'ne. XCORE). aNQ. (XTEST. NE.XSUP). AND. (XTEST. NE.XMRG)  ) 

JTCTRL15 

JTCTRL19 

* GO  TO  501 

ASSIGN  IS  TO  LGO 

jTCTRLIS 

JTCTRLIS 

GO  TO  8 

SOI  NH  = -(NXTA-NXN*!) 

JTCTRL17 

JTCTRLIS 

NlsNXNtl 

CALL  M0VE(5»X(NXN)»X(Nn.NM,  1,B(NXN),B(N1),NM,1, 

JTCTRL19 

JTCTRL20, 

• TTC(NXN),TTC(Nn,NN,  l.XPRN(NXN).XPRN(Nt)»NN»  1» 

* YSUNtC (NXn) » YS3N1C(N1 ) ,NM. 1 ) 

JTCTRL21 

JJCIRL22 

call  MavE(S. YJ(NXN), YJ(N1 ),NM, l,UC(NXN),UC(Nl),NM, 1, 

• TC(NXN).IC(Nl),NM,l,pTCiNXS)»PTCiNlj,NM»lj 

J1CTRL2J 

JTCTRL?<» 

* 11C(NXN),TlC(Nn,NN,t) 

CALL  '’OVE(l»Wj(VXN),»(.i(Nn,NM.l) 

JTCTRL25 

JTCTRL2S 

6 IF(CnRE)  X(NXN)aXCORE 

IF(SllPC)  X(NXN)»X3UP 

JTCTRL27 

JTCTRL26 

IKMfR)  X(NXN)3XMRG 

7 XPRN(.MXN)a.TRUE. 

JTCTRL29 

JTCTRL30 

fl  1F(  CORE  ) CORE*. false, 

IF(SUPC)  SliPCs. FALSE. 

JTCTRL31 

JTCTRL32 

IF(HER)  MERs, FALSE, 

GO  TO  LGO  . (9»15) 

JTCTRL53 

JTCTRL39 

9 NCALC  3 NCALC»l 

NXTAsNXTAtl 

JTCTRL3S 

JTCTRLSb 

c* 

c* 

COMPUTE  JET  PROPERTIES 

JTCTRL37 

jTCTRLSe 

c* 

15  TF(MTX)'  STaDDs.TRUE. 

JTCTRL39 

jtctrloo 

20  caLl  JETPRP 

21  IF(ERR)  GO  TO  1000 

JTCTRL'U 

JTCTRL02 

c* 

c* 

c» 

PRINT  profiles  if  REQUESTED 

30  if(xprn(nxn))  call  JTOUTP 

JTCTRL«3 

JICTMLO**  _ 

JTCTRLOl> 

.ITCTRI  «t> 

c* 

c* 

• c* 
c» 

IF  CORSTPsTf  redistribute  MfSH  AFTER  DISAPPEARANCE 

OF  potential  core 

JTCTRL«7 

JTCTRLOS  

JTCTRLa9 

JTCTRL50  _ - _ 
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90  IF(,N0T,  CORSTP)  GO  TQ  50 

IF(ByPASS)  00  TO  50 

JTCTRLSl 

JTCTRL52 

if(mchang)  call  JMESHh 

BYPASSs.TRUE. 

JTCTRL53 
JTCTRI  5Q 

c* 

• JTCTRL55 

t* 

INCREMENT  COUNTERS,#,  TEST  FOR  END  Op  PROBLEM 

JTr.TRLSb 

c* 

SO  NXNCNXNAl 

JTCTRL57 

JTCTRLSS 

NXPsMXP+1  JTCTPL59 

IFfNXN.GT.  ^^CAI■C)  GO  TO  1000 J T C I RLf>(L 


TF(>ilX  .AND.  3TATF)  GO  TO  1000  JTCTRL61 

1F(  .NOT,  _STA_00) NVaJJ^VU JTCTRLOi 


IF(MIX)  StAOOs, false, 

C* 

JTCTRL65 

JTCTRLfcfl 

c*  CONTINUE  Integration 

C* 

JTCTRL65 

JTCTRL66 

too  XUsXO 

JTCTRL67 

go  To  2 

JTCTML68 

c* 

JTCTRL69 

1000  RETURN 

JTCTRL70 

END 

JTCTRL71 

j 


edge  ljcate  edge  of  JFT  Nf«  r C0-0KD1NATES 

SUBUnUII^JE  JTEOGb(X,  Y£,PSIE,  AOOP) _ 

logical  half 

logical  axi  

coMHnN  /jettwo/ 

* TWJ  , nlA3  , MJfTD  . TJFTO  « VJETO  . 

* PTJETO  , TIJETO  f MJO 

SEAL  MJEEOfHACHO 

common  /?C0/  U0»  Eo'f  tho 

COMMON_/CTRLa/ t L 

* EOGFI  , SFI  , mEhGE  • , XMERGE  t YMFRCF  , 

* SLOPfcl  SLOPFO_/  CEjiTi_  ^ 

CLlMMfl'J  /mE'rgFT/  mER»  MERsyp  , XMRC 

CDM'-ns  /PRnP.Ja/_MACHQ,_REFl  n,  Yll/YO/MERGP  

LOGICAI  hERGP 

^logical  Two,  MERGE  , HER  , HER3TP 

common  /MISCZ  PM(lO) 

log  I C AJ_  A.DDP 

common  /SFTNEW/  LKK,lCOR 

COMMON  /=>RnF/_P^Sl(?CiO1,Y(20O),UO(2POi»THO(?a0)/EI>C?O0) 

common  /VOKXi/  LEI 

COMMON  /TNPJET/  niAJ,MJET,TjETLC)UMlt7)»TEjAXl,DUHI2(203i-»RG 

CO^‘MDV  /r>C/  UEnCE,EEOC.E,THEOGE 

D M M P N_/  P P J I / P.  :>  U MpR(iqi2) 

C-Jm'-on  /par  am/  uGIFf  2oO)  ,PSI  1(200  ),  Dump  (!?01  ),SM(  200  ),NM, 

* OUMPl  (7) . 

COMMON  /ERASE/  0UME(806) 

COMMON  /CTRL/  DUMcKlJ),  NPD_  » OUMC2(«03) 
common  /XPHIN/  OPHIN 

~AITER1--  COMPUTE  8.C.  FoR  NEXT  TRIAL  AT  MASS  BALANCE 

CO  MM  ON  er7~m  I YTr  n ( 1 0 0 ) ri^nTb  ),cf,yr(100) 

LOGICAL  _M1X__  _ _ 

COMMON  /FLOBAL/  MAxiT,SuPfa,"Nlf,PSlO,YDO,YDC, 

*  P Lf.P  ?.  .UCL.TJL.UPSTRU.CVG 

lOGiCAL  SllPn,CVG,  OPStRm 

common  /CNEWK/_.SITS,ERH,GC,GCJ,Jf.OOI 

LOGICAL  ERR 

COM-ON  /AC'jNy£^_Y_CO(UOi,pDti00  7tlHBcHOOJ*__(;jjOKE,.. CHOKED—  . 

LOGICAL  Choke,  chokEd 

common  ./PFII/ CLSPCl  aOL 

common  /STa2/  MACm2, Ts2,SS?, v2,RH02,0POx2 

— real  HAC'12 

COm^ion  /RCmIX2/  GRADU,TW,mIIW,rhOW,pTf,TTE 
P.FAL  HJOl 

COMMON  /CHOOY/  YC6(1oO),CLSPCB(100),YCBI  , UCLl 
CLDMMQV-/ayj.MU(/_\X  PH  IG 

LOGICAL  DPRIN  ... 


JTFOGEOl 
0TEDGE02. 
JTEDGE03 
JTFDGEOa 
JTEDGE05 
_J.TE3Gr.P,6_ 
JTE0GE07 
JTEDGtoe. 
JTEDGE09 
. JTEDGtlO_ 
JTEDGEll 
_JT£Dr.tl2_ 
JlfcDGElS 
OTEDGUa 
•ITFOGEIS 
JTEDGE16_ 
JlEDGF.l  7 
-J.!EDGLLa_ 
JTE3Gr.l9 
_JTEDGt20_ 
JTE5GE21 
JTr5GE22_ 
JTEDGt23 
_JJEDG{J>.1. 

.nEDGF.as 
jTrDGE2(»  . 
JTEDGE27 
JTEDGE28 
.tTEDGE29 
-JTEDOESJL. 

JTFDGESI 

..OIEDGtJa^ 

vMEDGESS 

JTEDGE3U- 

JTEDGEiS 

_>n-E2GE3-9_ 

jTFDGr37 
JTEDGF.38 
JTFDGr39 
JTF.aGt90 
.HEDGE  01 
JTE3GE02 
JTEDGEOi 
JTEDGLOO 
jTFOGEflS 
JTE9GLU^ 
JTF5GF<i7 
.J1EDGLU8-. 
JirDGL09 
JTEOGhbO 
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COMMON  /scaled/  sclp»alxlim 
LOGICAL  SCLO 

JTEDGESl 

JTEDGES2 

common  /mO|  ES  / ALX(loO,12) 
COMMON  /OIFFQI/  NC,00iF(1?0) 

JTF0GE53 

JTEDGE5R 

EOuIvaLEnCF  fIE»  LEI  ) 
dimension  STnRI(200) 

JTE0GE55 

JTFDr.FS6 

EOUIVALENCF  (STOP!  (1),DUH.P(1)) 
dimension  vI(200),RhO(200) 

JTF.DGE57 

jteddf.sb 

equivalence  (YI(l)«DUMP(20lh»( 
DATA  LFFF/200/ 

RHO(I),DUhP(401)) 

jteodf.sr 

JTEDGE60 

c* 

DATA  IOF/0/ 

JTE0GF61 

JTFDr.E62 

c» 

c* 

IF  males. TRUE,  EDGE  IS  TAKFN  AT  SO 

PCT  VElOCTTT  line  (Y102) 

JTE0Gt6i 

JTEDGE60 

* 

IE  r 1 

JTEDGt65 

JTFDGE66 

ADOPs.FAlSf, 
half*. false. 

JTFDGE67 

JTFDGEAB 

ir (Pm nrj . nf.o.)  Hale»,true. 

• 

JTEDGtbR 

c* 

JTEDr,E70 

c* 

c* 

check  jet  I'D  Tor  i-si  poInt  where 
redefine  jet  EDGE  CONDITIONS 

UDmUeDGE 

JTEDGE71 

JTEDGE72 

DO  6620  LsifNPO 

ir(UD(L).En,uEDGE  .And.  ledge. Eq.  o')  go 

TO  6621 

JTE0GF73 

JTFDGE70 

6620  CJ'jTTVUE 

6621  NPO=L 

JTEDGt73 

,JTFDr.E76. 

— 

TFK.NOT.  MIX)  .or.  (mix  .and. 
IF((.Nnt.  MIX)  .OR,  (“IX  ,ANO» 
NPDlsNPD-l 

DIFEUsA'1S(IIFDGF-UO(nPd-1)) 

UPSTRM)) 

yPSTRM)) 

THD(NPD)sTHFDGE 

FO(NPoi*ECD6E. 

JTEDGt77 

jtfdgf.tb 

JTf DGt79 

JTEDGEBO 

if(.n'jt,  mtx)  r.j  TO  1 

DO  6720  L»t»NPO 

JTEDGEfil 

JTrDGEfl2 

6720  FfHfKt  ) = I«a.*f»2/(RG*TH!)(L)*TjCT) 
LE1=nF0 

JTEDr.EBJ 

jtfogebo 

LFsLEI-1 

PSTE  = SM(LE1  ) 

JTEDGF  flS 

JTFDGFfib 

RHOts'yHOlLEl) 

UEEsUDILEI) 

JTEDGEB7 
jteogebb  _ 

GU  TO  JTfcDr.FS') 

C* JTEi)f:f‘>0 


C*  JTFDGfil 

C*_LCrATE  FP3F(S).  nF_  .ItT(S) JTESOE'T^ 


C* 

C* 

— PIllNl  where  velocity  difference  is  .98AMAX.  VELOCITY 

DIFFERENCE  across  The  JfT 

J1FDGK95 

JTt jgfrr 

C* 

C* 

1 UCLlsUOd)  ~ 

LK  = 1 

JTFDGFRS 

JTEDGE96 

JIFDGhR/ 

.IIFIDrRB 

-- 

DO  2 Lsi.npD 

UDIF(l)=Aas<UD<L)-l'CLl)  ... 

JlfcDGrRR 

JTFOGtOO 

I 


f' 
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IFd.EO.l)  r.O  TO  2 

TESTA  = UO(t-l)»l,E-<> 

TESIB=U0(L-1)-1.F-6 

IKUO(L)  .tE,  Testb  .vNjj.  upU)  .tE,.TEST\_.AND..  L.LT.LFf  F)_LK=L__ 

2 RHn(L)  = l«‘).»P/(^f:»THO(L)*TJET)  • 

TESTE  = AMAX1  (.9n,PM(3)T 

c 

C E T r Rm  I.N  E_ E D G E_  F RQ !_« Ol F -F.H A CJ  IQ 

C 

IF(  lOF,En.’0_)  GO  T0_2220 » 1 

IF(  .'vOT.SrLO  ) GO  TO  2220 

LE  S T E = Ama  X 1 ( .98.PHf3T  ) 

GO  2208  LElsl.NPO 

IF(  ALX(LEl,NC).r.E. teste  ) GO  T3  220o  

2208  CONTINUE 

2?0RJE_  ._=_LEi-1 

SLOPEOs  (Sm(1 El )-SN(LF ) )/(ALX{LE1 ,NC)-AlX(lE»NC)  ) 

PME = S-.fLETtSl  OPEOa(TFSTE-ALX(lE.NC)T 

CALL  N0VE(1»SM,PSI1/LE»1) 

PSIULFDs  PSIE 

O'J  2210  LSI# IE 

2310  SinWICDs  ?./(RHn(L)*uO(L)) 

HHOE  s yOF(PSIE,S'(,RMO,  1 ,NPO) 

I.' E E = YJF(PST E«SM,Uo,  l,NPf)) 

STORKLEDs  2./{RH0E*UEE) 

Vld)  = 0,  „ 

call  INTGISTOHI.PSII .yI,2,IE1) 

_ __  YE  = YI(LEI) 

YSV  s YE 

rF(  AXI  ) yE  = SQRT(2.ayET 

CALL  MnvE(J»Yl,Y,LE,n 

call  “'nVE(l>ALX(l,NCT.U01F.NP0»H 

GO  TO  OOOl 

2720  ULI^  = TrsTE*A3SlUr0cE-UCLl>  

IFTHALF)  Ul  IN  = .!j*AflS{uEDGF.-u6{l)) 

lffl=ek 

IFCOp'RIN)  call  TABPRT(2M(.k,L<»1a1»0) 

IF^(OPRIN)  CAl  L .T>0_PRTLaHtlOIFtJjOIF_^NPD,XQ,J^j 

C* 

c*  

c*»**  locate  outer  streamline  • ******** 

_c* 

c*  FOR  OUTER  SThEami  INE—  CHOOSE  T'IE  MInImUM  OF  INTERPOLATED 
.__C* AN3_tXJRAp:iLATEI?  .VALuES 

C* 

LElsO  ..  . __  

L = NPn*l 

31(l_L *_L-1 

IF(  UUlFfLT.l T.ULIN  ) GO  TO  301 

IF{  L.Gt.LK  ) GO  TO  3oO  


JTFOGFOl 
JTEOl'.tOa 
JTE0GE03 
OTEOGtO**  - 
JTE0GE05 

JlLOCULl! 

JTEDGtOT 
_ . JTE0GE09 
JTEDGE09 

JTEOGtlO 

JTF9GFI 1 

JTFDGC12 

JTEOGEll 

JTEDGF.I«  _ 

JIEOGElS 

JTEDGEIP—- 

JTFOGEI 7 

J.TEOGLL9 

JTEOGEll 

JTEOGtZO 

JTE0GF21 

JTEDGE22._ 

JTEDGF.25 

J-T£iir.t.i« — 

jrE5GF25 

_.JTE5Gt28 

JTEOGtPT 
_ 0TFt)GF?8 
JTEOGEP? 

JTEDGESQ 

JTF0GE31 

__0.rS5Gf.32 

JIF5GE33 

JTEDGE3« 

JTE5GF3i> 

J.l£2GEJL6 

JTF5GF.37 

jrF.5Gr3B 

JTF0Gr39 

_ JrEOGtUC 

JIEOGtai 

JTEsr.L'Tg 

jiEor.ta3 

JTEOGt'TR 

JTEOGERS 
JTE5GER8  - 
jTEor.tR/ 

J.IEOGtRS 

J IFSGtR’ 
JTEDf.tSO  . _ 


-01  LEt 


= L + l 


JTEDGf.Sl 


LFsLEl-l 

..  . JTE')r.E'>2  . 

SLflPFDs  ( S 'I  ( LE  1 ) -S >1  ( LE  T)  / ( UO I F ( l‘E n -U»)IF  ( l'E ) ’) 
PSTE5=S>i(LF)*SLnPEDA(lil.IM-UOlF(LE)  j 

JTEDGES3 

jrE0GE‘>9 

IF(,N[)T,  HALF)  CO  To  6 

PSIErPSIEl 

JTE0GE55 

JTEDGES6 

tTE  =~Tt 

JIEDGfcS/ 

GO  TO  8 

jtedgfsb 

h lEEslEI-2 

JTFDGKSO 

SLnPEr=(S'i(LE)-SM(LEE))/(UDlF(LE)-UOTF(LEE)> 

JTF0GE60 

PSIE2  = SM(Lr)  + SL0PEE*(ilLlM-iiDlF(LE)> 

JIFDOf 61 

PSIEsAHINl fPSIFlrPSlE?) 

JTEDGE62 

8 UEE  = VJF(PSIE,SM,UD*LEE,NPD) 

JIFDGfcNi 

RHOt  = YClF(PSlE,SM,RH;i»LJ*MPD) 

JTF-)Gfc69 

968  DO  9 L=lfLF 

JTF5GF65 

« STORT(L)=2./(RH3(L)aOO(L)) 

JTFD0F.66 

STORI(LEl)r2./(RHOE*llEE) 

JTEDGfc67 

c* 

JTFDr.F68 

c* 

JTE0Gfc69 

c* 

MOVE  psi  array  to  scratch— storage 

JIFOGFTO 

c* 

JIF-DGETI 

CALL  MOVE(1»Sm»PSI1,LE»1) 

JTFDGF72 

c* 

JTC5GE73 

c* 

TNSERT  edge  streamline 

JTE')r.F79 

c* 

JTFDGfc75 

PSIl  (LEDspSlE 

* 

JTEDGF.76 

c* 

JTFDGr./7 

c* 

oeterminf  y-  cooroinates  Integration  of  stream 

function 

jrF.9Gfc78 

c* 

JTF5GE79 

c* 

JTEOCE80 

c* 

USE  trapezoidal  rule 

jifogfri 

X* 

JTF0r,L«2 

YI(I)»0, 

JTFDGF.Si 

YCBisO- 

JTEDGEBN 

IK, NOT,  MTX)  GO  TO  399 

JTF5GF.8S 

CALL  Lr.FTTfXD«YCn«NXUPlC«0«X*DlAJ.Ylrl  1 .1 

JTFDGT  86 

YCBlsYHl) 

JTEDr,KB7 

-IF(AXn  YltnsO. 

JTE0GE88. 

399  CALL  lNTr.(STnRIrPSIlfYl,2»LEn 

JTFjGF.eR 

YE  = YI(LFl>  . . . 

JTEDGtRO-. 

YSVSYE 

JTEDGt91 

IF(AYI)  YtrSaRT(YCfll*»2f?.*YFl 

.ITF'5GF92 

c* 

MOVE  Yj  values  to  Y ARRaY 

JlEDGtN^ 

_CA 

JTE0GL9'4  . 

LXsLE 

JTE36E9S 

TF(MIX)  LXsLFI  ...  

JTEDGE96 

90  CAl L MnVE(lfYI,Y,LX,l) 

JTFOGhR7 

IFIMIX)  GJ  TO  8888 

.ITFTGI  ort 

c* 

JTF0Gt99  • 

c* 

continue  Integration  to  npo-i  . ... 

JTEOGEOO 

c*  extrapolate  for  NPO  PDInT 
c*  

tiOOl  NPOl  a NPD-1 

MXsl  


IF(NP01,EU,  LE)  MXa2 
IFCNPDt.EO.  LE)  GO  Til  flS? 


DO  <J?  L=LE>»NPDI 

H?  STnRI(L)=2.'/(RHQ(L)*yO(LL) 

call  INTGfSTORIrS'l,  Y,lEI»NPOI) 

887  IF(OFDGE  ,r.T.  0*) G3_T0  ^8887 

GO  TO  (868,889),  MX 

c 888  SLnpr=tTtNPo v ( p_n u i )^/ ( od t f ( npo Ff ^gppi -i ) ) 

C y ( ^ p n ) = Y ( \ P'  M ) ♦ S L 0 P E * ( D b I r ( N P D ■)  -J  0 T F ( N P D 1 ) ) 

888  SLtlPF=(Y(\PTl)-Y(vPpl-l))/(S''(NPO|)-SM('>JPDlrl)) 

Y(fJPO)  = Y (NPDl  ) ♦slope*  (Sm(NPO)-S'I(nPDI)) 

GO  TO  3888  

C 839  SLnPE=(YSV-VfMPDl))/(uLIM-UOlF(SPOl)) 

_C Y(NPo)  = Y$V4  3L0PE«( JOlF(MPp)-HLIM) 


JTF.OGEOl 

.JlEOCtO? 

JTEOGfOS 

JTEOGEO<» 

JTEOGEOS 


839  SL0PF=(Y,SV-Y(MPD1  ) )/fpSlF-SM(NPDI)) 

__  Y(NPD)  = YSV  + SL  JPE*(SM(*.'PP)-PSIE) 

GO  TO  8880 

8887  STORI  (NPr^)^2./(RHn(^'PJ))*UD(MPJ^.^J 

CALL  lNTG(STfl9l,SM,  Y,nPO»NPO> 

8888  Y(1)sYCB|  


J1EDGE07 

JTEOGEOa- 

JTF.DGE09 

jtf.dgeio 

JTF9GK1 1 

JtEDGElS 
JTEPGF ja 
JTE3GE15 
JTEDGtl6„ 
JrE0GEl7 
JlEDCEJ.a_ 


IFf.NDT,  AXI)  GO  TO  5811 

IKfNOT.OPPlN)  GO  TO  19 

CALL  TA4P«T(9HPSt 1,PSt 1, LE»i0»0) 
CALL  TA8PRT(aHY(L)»Y»NP0#t0,0)  _ 
CALL  lA9P«T(SHYJ(L)»TT»LE,t0»0) 

CAL  L JLaM'*.  IJC  SilSJi!.'’  I jlSH'  KI.LE.  10  >0) 


jrE0GEl9 

JTE3GE20.. 

JTE0GF.21 

jrr5GE22. 

JTE0GE23 

JTFQGrPU 

JTfOGF.2S 

JTEDGL?.a.. 

01^)81.27 

JTEDGE2B_ 

JTF3Gh29 
.jrEOGLlO- 


1*RITE(6,  l07)PM(9),UtOGE»ULlM»PSlE,NPt)»NPDl,LEl»LF,MX,HALF,MlX,YC81.nEDGEM 

J0_7.  format  (JX// _ JTEDGL32 

1 2X,8Hpm(9)  s,Et<l.6»2X,8HUE0GE  a,Et a,6,2X,8HULlM  s,E19,b,2X,  JTF0GE53 

^2  8HPS1E  _=rtl0,6// .JTfOGEStt. 

3 ?X,8HNP0  s,  18, 10X,8HNPni  = » 1 » OX , BhL  E 1 =,16flOXf  JTE3GF.35 

“ =/  16// JJEJ)GL3jll_ 


b 2X,8MMX  =, t6»10X,8HHALF 

6 eMYC6l_  _s,Fl9,.61 

19  continue 
DO  7 L=2*NeD 


:»L8ftOX,8HMlX 


5,L6f lOXr 


7 Y(L)=S0«T(YC81*»?+2. *Y(L) ) 
_.3811_CQNTLMUE • 

C* 

c*  .determine  IF_NFW  point  is  to  be  added 

c* 
c* 
c* 

-C* 


IF  TNOaT  AND  mERGEsF,  LOCATE  BOJnoaRy  OF  InnF.R  JFT 


IFImeRgE  .or.  (.not.  Two))  CO  TO  30 
OL1ml  = TESIE*A3S((I0-1,) 


JTF9GF.57 
_ JIEDGE38_ 
JTFDGh39 

JlF.DGf90- 

JTF.  )GE01 

JTEDGER2. 

JIEDGERi 

JTFDGERR 

JTFDGFRS 

JTEOGtRb 

JlFOGKal 

JTE0GE93 

.nF.5Gh9  9 
JIEDGESO 


- 
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rfsr2=uOTi ‘^-6 

TESTl  = UO»l  ,E^6 

’C*  ^ 

C* y)CATE  NEAREST  ME3H  PoInT 

C* 

00  200  l=i.npo 

1 f rJOTt^  . LF  , TfTf?  7^^.  U0(L)*GE.  test!)  UDTlT^uO 

1F(0D(L)  .EQ.  UO)  go  to  259  \ 

'200  CONTINUE 

C* 

C*  ASSUHr  JETS  HAVE  "HirRCEO--'  SFT  CO-TROTNaTES  OF  MERGE' POTNt' 

C* 

WFRGFs.TRUE. 

MERGPs.TRUE, 

SFI=SM(>4MERGr 

EOGtI=V(NMFRG) 

XMFRGEsX  ■'  • 

rHFRGEsboGFl 


* 

_C* COMPUTE  coefficients  IN  LINEAR  EO^HOnS  CONNECTING  THE 

C*  nozzlE  cqrverS  with  me>»ge  point 

CA 

CEPTTs'oUO/OIaJ  ~ 

Slope  Is (yherge-cfpTD/Xmerge 
^ ^ _ 

SLOPEOs(rMFj^.EM.)/^E«G£ 

GO  TO  50  ■ ■ . ■ 

C*  _ __ 

c*  set  NMeHGE  to  L + li  STUHe  inner  EOGE'SF'aNo  co-ordinate 
-C  *.  

2i9  NUSL ^ 

DO  260  LsI.NU 

IF(UD1F(l).'GF,UL1ML)  go  to  210 

2bO_CJNnNUE 

210  NMERG=t 

NMuGlsj.-! 

SLOPS=rrM(NMERr,)-SM(M«HGl  ) )/(UDIF(NMf«G)-UOIF(NMRCi  ) ) 

SFt=S'’(NMH(;i  ) + SLnPS»f 'jLIHL-UDIF(NmRGI))  

SLriPv  = (Y(NMEHCT-V(NMR'-,l))/(SM(NMFRr.)-SM(NMRGl)) 
EnGEI=Y(N‘iKr.n*SlOPY»(SFI-SM(vMRGI))_  _ _ 

*50  TF.StUs.OON 

^IF(P-(p).NEa._Q.L_TESTusP“(2) 

IFILKA.LE.  5 .AND,  jOIFlNPO),EQ.UOTF(NPDi ))  LKKs« 

IFOIFFj.UT,  TESTU  ,0r.  LKX.LfcfJ  ) AOOPs.TRUE,-  

LKK=l KKtl 

IF(OPRIN)  WRITE  (6,72??)  ADOP.DIFFU.TESTU 
7222  FORMaT(//12X,L6/2X,2Ei6,«) 

JL* 

100  RETURN 

END  


JTFDGE51 

JTF.DGES2 

jTEOGEbS 

-_:_JTEDGE5a. 

JTFDGESS 



JTEDGES7 
_ JinGESS 
JTF0GE59 

J1EDGEbO_ 

JIEDGCM 

jTFOr,E#^2_ 

JlFDGtbS 
_ JTEDGtba_ 
JTEDGFbS 

JTEDCF.66_ 

JTEDCE67 

JTFDGF68 


JTFDGK69 

JTE3GF70 

JTEOGF.T'r 

JIEDGF72_ 

JTEOGE75 

JTrDGh70 

JTr‘)GE75 
,_JTFDGt76 
JIEOGF77 
JTFDGF7B 
JTF^GE  79 

JI£0GE.ii!L. 

JTF)(.E8l 

JlFDF.Fft2_ 

JTFDGESJ 

JlfOGESa 

JlFDGtH5 

J.T£3GtRi. 

JTEjGtni 

JTE0GE«8_ 
JTFDr.KB9 
_ JTEDGF.90 
JT Foot 91 

JTF.^GrOi 

JlFDGf  91 

..  .JTr.-'GE99 
JTF0Gt9S 
JIFDOERb 
JTFDGt9/ 

JJEDGL9a_ 

JTf.TGl  99 
JTEDGtOO 
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CJTFILE  STOR*r.E  OF  AEHO-DATA  FILE  FoR  PLOT  OR  NOISE 

subroutine  JTFILE(  NTRY,XX  I 

JTFILEOl 

JTFILE02 

logical  ENTRvi 

LOGICAL  FOUND 

jtfileoj 

.I1FILE09 

logical  mChANG 

LOGICAL  AMbTO 

JTFILE05 

JTFILE06 

logical  OPRIN 

LOGICiL  EOF  , ERR 

JTFILE07 

JTFILE09 

logical  AXI  , XPHN  » CmPHS  , tJJET  , TUrBJ  » CORE 
LOGICAL  ENTRVI 

jtfileor 

JTFILEIO 

REAL  HJeT  , ME  . MUReF 

REAL  NACH 

JlFILEll 

JTFILE12 

real  ''nLFrtl00)»M0LF2(100).*lOLF idOOl^MOLFRlIOO)# 

• HOLFSC 10O),“3LF6( 1 00 ) , MOl  F 7 ( 1 0 0 ) , MOlF8 ( | 0 0) , 

JTFILE13 

JTFILE14 

• N0LF9( 100).MOLF10( lOo) »MOLFl 1 ( 1 00 ) » MOLF 12 ( 1 00 ) 

JTFILEIS 

common  /CNFlLf/  nF 

.ITFILEI6 

COMMON  /rSTIRT/  NR£G»RESTRT»NHE3»H1XpRE 

JTFILtl/ 

LOGICAL  MTXPRE 

jtfileib 

COMMON  /CTRL2/  Tm00T(9) 

common  /difeoi/ 

JTF1LE19 

JTFILE20 

* NC.CNAME(J2)»ALJ(12),AlJ0(12)*ALE(I2), 

* SCMCl?),TrPHF(12),HCP»F(12),cPC(J.l?l 

JTFILE21 
..  JTFILE22_ 

COMMON  /OIcTRL/  OlFF  , CNO(IO) 
logical  oiff 

JTFILE23 

JTFILE2a 

COMMON  /moles  / ALXdPOO) 

COMMON  /RCmDL  / ALEoGe(12)»ALO(12J 

JTFILE25 

JTFILE26 

COMMON  /FliK/  CSC 

JTFILE27 

COMMON  /P*«AM/  . 

JTF1LE29 

• U(200). T(?O0)*TOT(200) »XMACM(200).PTOT(200)»  TTD(200) 

* pro(2oo)»nJMP9(ao9) 

9 

JTFILEP^ 

JtFlLESO 

COMMON  /ratio/  AMBTO 

common  /Mlsc/  PMdO),  plot 

JTFILESI 

JTFILE32 

common  /INPI/  ENTRVI 

JTFILE33 

COMMON  /UMfSH/  MCHANG.CKfOVl.NMSH  , CXPCfCXTP. 

NRED 

JTFILFia 

c* 

c 

(•••  INPUT  COMMON 

JTF1LE35 

JTFILE36 

c* 

COMMON  /INPJET/ 

JTFILE57 

JTFILF58 

• OIAJ  , mJET  , TJET  , PTJET 

* TUFT 

9 

VJET 

» JTFlLt39 

JTFILE40 

• PE  » VE  , ME  , TIE 

• AXI  , NJ  f NH  , 

9 

TE 

» JlFILt«I 

JTFILF«2 

• X(lOO)  , XPRN(lOO)  , 

JTFILE43 

* GAM  , RC  , PR  , PRT 

* SC  » TREE  » MUREF 

9 

JTFUtaa 

JTFlLE«a 

5j5_ 

JTFILt'iJ) 

c*** 

AM*  constant  and  error  common 

jTFILt«T 

c» 

common  /CNFRR/  bits  , ERR  , GC  » GCJ  , FOOT 

- 

JTFILE«8  

JTFILEaR 

_ c» 

JTFILtSO  

1 
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c**»***  BOUNDARY  condition  COMMON 

_C» _ _ _ 

COMMON  /BC/  ue'dge  , eEOGE  » tmeoge 

c* 


c******  potential  CORE  COMMON 

c* 


JTFILESI 

JTFILEi? 

JTFILE5J 

.JI£IL£5iL 


COMMON  /CORED/  XCORE  , CORE  , CORStP 


C* 


C***A**  SCALFR  (units  conversion)  COMMON 
c» 


COMMON  /scaler/  sp 


sv 


SLEN 


C» 


COMMON  /JETl/  FlOwJ, TT0,NX, EJET 

COMMON  /PRoP.n/  

'*  P • PRL  • PPTT  , RGAS 

* TRPF  , VSRFF , mACH  , XLC 


3CC 


* RErl,,C»Crtl  ,RN(.1RM, 

* RH0(r?00),O0Mli(600),XLN(2O0),DU  M 1 OTajSO  J. 


JTFILES5 

JTFILES^ 

J (FILES/ 

JTFILE58 

JTF1LES9 

JTF1LE(jO 

JIF1LE61 

JTFILE62 

JTF1LE63 

J1FILE69  

JIFILEhS 
_JIFIL£fe6 


COMMON  /XPRlN/  DPRIN 

COMMON  /rOAlA/  PUM7  ( U)  , NFCSV,JMRW  

CUM-ON  /CHPOP/  CTl,CT?,CT3.CT<i,CfS,CT8»CT7,CTa  ,CT9,CT10 

COMMON/  PRnF/  PSI(?00)»Y(?00),IID(200>.ThD(?00),ED(?0Q) 

common  /jtl/ 

* 9(100), jC(ioo),TC(ioo),T]c(ioo)j 

* PTC(i00),wJ(l00),YJ(j00),YSONlC(100T 

COMMON  /JtT2/  TTC(IOO)  

common  /cTrL/ 

* NXTA  , CMPWS , QJET f TURBJ , CnEF(lO) 


» NPa  , NPD 
A T 13(20  0)  _ 

COMMON  /lAO/ 


OXC  , XU 
DSTOR(60O) 


XDO 


JIFiLEfe/ 

JTF1LE69 

JTFILEfeP 

JTFILE70_ 

JTFILE71 

_J  T F I LFJ2 

JTF1LF.75 

jTFlLE7a 

JTF1LE75 

JTFILF.76 

JTFILE7/ 

JJF1L£7J_ 


C* 


* NA«t  ( 1 0) , T ITLEI  ( 1 0) , IDENT,(  10)  , AOOREs(  J 0)a  IPENTKIOJ  


CU M M ON  /mIxER/  mix , RO(100).x0(10O).Cf.YR(1OQ) 

LOGICAL  M f X 

COMMON  /FLOBAL/_,MAXlT,SLiP9,NlT»P3lD»YDO,YC»Cj 

* PI,P2,ULl,T0L,UPSTRM,cVG 

LOGICAL  SiiPn,C  YG,  OdStRm  

COM^inN  /aConvS/  YC)(100),PD(100),InOc(10O),  CHOKE,  CHOKED 

_kyG  I c Ai c *iJKE.j_c  M On  E a 

COMMON  /D(-rl/  CLSPCloO) 


JTFILE/9 
.JTFile80_ 
JTFILF.ai 
JTFILt82 
JIFILEfti 
_J.IiLLLE8y 


common  /S1a2/.  maCH?, ^52,SS2,V2,RHO^,oPDX2 
REAL  MACH? 

COMMON  /9CMIX2/  GRADJ,TW,“.U«I,RHOW,pTf,TTE 
HEAL  MUW 


common  /mIxPHP/  MA2(iQQi,vE2(lQQ).TE?(inQ),THCflQn) 

real  ma2 

common  /THRST/  "V(IOO) 

COMMON  /TJTMIX/  NXORIG 

C'Jmh(jn  /CUnOY/  YC3(l0f>),CLSPCB(l00),YCBI  , UCLl 


JTKILE8S 

JTFILEef> 

JTFlLFfl/ 

JTFILE80 

JTFILE89 

JTFlLtRO 

JTF ILE91 
JIFILt92 
JTFlLE9i 
JTFILE9ii 
JTFILE9S 
J]FlLE9b 


JTFILE9/ 
JTFILEV8 
JTF  ILE99 
JTFILtOO 
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COMMON  /JETS/STaDO# NV.STATF 

common  /kEYS/  KEY(U),KEYH(1  1 ),KOPA(ll),KOPB(U) 
COMMON  /MEpr.hl/  ME«,  MFH3rp»  XNPO 

COMM  ON  /s  OPE  w /_  SOf^C  y P I XSUP 

'common  /CPPTP2/  CTP,Ct's»CTM 

COMMnN_/p«nPj<J/_MACH F L 0 , Y I ,J(Q ,_H E « G E 

COMMON  /constf/  coni 

COMMON  /FiLiNO/  KRECfKXX 


EQUI VAlENCF 


(MnLFl,ALY(t)  )_,  013^  2 , A L X (10  1))»  (HOLE  3j 
(MIJLFa,ALX(36n)»  (M  jLFS»ALX('401)), 

(MOcFb*  ALX(SO  n ) » {M'JLF7»  ALX(601  ) )f_ 

(MOlEB*  ALX(  701)  ),  {MJLF9,  ALX(80n  ), 
(MOLF10,AlX(<)0  1)),  (MOi,Fll,Al.X(100l))f  _ 
(MOLF12,ALX(n01  j) 


DIMENSION  nJETOOO) 

DImEnSUm  lE-N2(1  n.N3gA(10),i.ENl  (S),N3A(q) 

FrjUlVALENCF  (UE,VE) 

raijivALENCF  (co,cqef(6))  

DATA  ENT«YI/T/ 

D A TA  NSA/ls^l MJ,6» IHJ/ 

DATA  NSPA/S.PMl I, 1»2HIL, 11, IHI, iO,?HTjA5»2HjK/ 

DATA  IRLANK/ti2o2020202020/_ 

data  IPM(1F/S‘UPR0F/ 

data  KXXI/2HXX/  _ 


:*  NTRYsl  wRITF  profiles  AT  STATION  XX 

:• ntrys?  write_cl  props^  and  input^vaoiable^ 

:•  ntry=3  ' hfao  Cl  ppups  and 'iNPijT'VARiAOLES 
;• ^NTRYsa  reclaim  PR0F_IlE_AT_.SJ_A.TJON J<x 

1 GO  To  (10, 100, 120,200)  , NTRY 

; * 

10_  IFI.NOT.fNTRYI)  GO  Tq_11  

CALL  FMPYC(l,VjET,U07u,NPb) 

__  CALL  FMPYC(J,TJEl,THD^TtNPD)  _ 

KRFC  = 0 

11  E N T_RX1_=  I F A LS  Ej 

KRV.C  3 KHECtl 

KXX  3 CSC»XX*,5 . . 

ixRITE  (3)  KRrc,XXX,KREG, 

* SUPn,SJP3TP,CnRF  , COPSTP,  MF9,  ME'RSTPfNPD, 

* PSI  .■y,'jD,T-(P,EO,  TI0,RMU,  XLN,u,  I ,TOT,XMACH, 

,*  .PJOTy  UD/  PJLD, 

• mOlF  1 , M0LF2,  MriLF3,MnLFa,MnLF5,MOLF«», 

• MOLF7,'10LFH,'lOLF'>rMO|_FlO,M3LFn,MOl'Fl^»  J _ 
no  TO  1000 


.X(20l )), 


JTFILEOl 
JTFILE02 
JTFILE03 
_jrFlLEO‘L 
JTFILEOii 
JTFILE06 
JTFILE07 
JTFIL£08_ 
JTFILEO? 
_JTFItF10. 
JTfILEII 
0TFILE12 
.ITFILE13 
JYFILE1‘I_ 
JTFILE15 
■JTFILElfe 
J)F  ILEl 7 
JTFIlEIB 
JTFILE19 
JTFILE20 
JTFILF.21 

_JJEJLE.2.?_ 

JTFILF23 

JTFILE24 

JTFILE25 

JTFILE2(> 

JTFILE27 

^JTFI1.L2J_ 

JTFILE29 
JIFILE30 
JTFILE51 
J rFILE32 
JTFILE33 
JTFILF39 
JTFILE35 
jTF1LE3!> 
JTFILE3/ 
JTFILE39 
JTFILE39 
.JTFILErO_ 
JTFILE<II 
J1F1LE«2 
JTFILE<I3 
jTFILEau 
JTFILEflb 
-JTFILEIB, 
JTFILE«7 
JTFiLF.aS 
JTFILE«9 
JTFILESO 
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100  REWINO  3 

WRITE  (2)  KXXI.KREC, 

JTFILE51 

JTFILE52 

• NAME,TITLF1 » lOENT, aOdRES, loFNTl,TwboT,BiT3,EHK,GC,CCJ» 

JTFILE53 

• FOOT,OIAJ,'1JET,TJET,pTJFT,VJET,T1JEI,FJET,PE.VE.WE#TIF.TE. 

_.JTFILF5« 

• AXI,NJ,N'1,UE.MlXPRt,xLC»FLn-<J,‘1F.Rr.E,NV,C0Nl, 

• CTl,CT2,CT3,CT«,CTb.CT6,CT7,CTB,CT9,CTp,CTS»CTli* 

jtfiless 

JTF1LES6 

• GA'1,RG,PR,PRT,  SC,TREF,MURfc  F,SP»Sv/S|  EN , OPRI N,  PLOT,  C6, 

* MIX,CF,MAXIT,TOL,SUPb, 

JTFILE57 

JTFlLF.Sa 

* X,XpWN,n,IIC,TC»TIC,PTC,Wj, YJ,TTC, YSONIC# 

• YC8,X0,RD, Yk,YC0,PD,wV,MA2, VE2»TF2,MXTA.I. 

JTFILE59 

JTFTl  F60 

* NC,CNA>1E,  ALJ,  ALJO,  ALE»SCm,  CPC,0IFF,CSC 

00  101  lj:|,KREC 

JTFILE61 

JTFILE(.2 

REAO  (3)  JRF.C,KXX,KREC» 

» SUPO,SUP3tP,CORE,C3RsTP,MER,mEH3TP,nPO, 

JTFILE63 

JiFILtfcR 

• PSI» Y, JO, TMD,E0,TI0»RH0,XLN,U,T»T0T,XMACH, 

JTFILF.6S 

* PT'JT,TTP,PTn, 

JTFlLFaa 

• MClLFl,M0LF2,‘ir)LF3,y0LF/»,MnLF5,M0LF6, 

• NULF7,  «3LFa,HnLFV,  -iULF10,M3LFll  »MQUf12.  J 

JTFILE67 

JTFILEaa 

WRITE  (?)  JREC,KXX,kReG, 

• S'lPO,  S'JPSTP,CORF,CaRSTP,MFR,MERSTP,NPO. 

JTFILE69 

JTFILE70 

* PSI,  Y,Ud»THO,EO,TID,HHO,XLN,'J,T,TOT,XMaCH, 

• PTDT,TT0,PTD, 

JTFILE71 

JTFTI  F72 

* *inLFl,H3LF2,MnLF3,M0LF«,M0LFS»M0LF6, 

• H0LF7,y3LF8,MDLF9,M3LF 10,HOLF11,MOLf12.J 

JTFILE73 

JTFTLF7a 

101  CONTINUE 

GO  TO  1000 

JTF1LE75 

JTFILE76  — 

C 

120  READ  (1) 

JTFILE77 

JTFTI  F78 

* OlAJ,MJET,TIJEr, VJE1 ,pe,tf,tie,ve,gfx»rc,pr,pht.sc»trff, 

* MliRrF,OIFF»NC,CNA*1F.f  ALE,SCM»CPC,nJ»mm,CT1,CT2.CT3.CT«.CT5. 

JTFILE79 

JTFTI. FRO 

* CTh,CT/,CT3,GJEr,Y,UO,THD,TlO,EO, 

* NOLFl,M3LF?,MOLFi,M3|  4 . MOLF  S . NOLFb 

JTFILEfll 

jtftlfhp 

• mOLF7,mdlf9,MOLF9,‘1'JlP18»N3LF1  1,M0LF12 

IF(  NF.GF.?  ) READ  (21  KXXl.KREC. 

JTFILE85 

-JJi’ I LEliil 

• NAME.,TITLFl»  inEMT  , AOaRtS,  lOENTl  ,TwnoT,inTS,ERK,GC,c;CJ, 
_*.rC10T,DlAJ,M.JET»TJET/PTJFT,yJET«TUET,EJEl,PE,yt«ME,-TIE,-I-E, 

• AXI,.*4J,NM,Ur.MIXPRF..  KLCfFI  OW  J » hERGE  , N V , CON  1 » 

.*  CTl,CT2,CTi.CTR»CTb»CT6,CI/,CTe,CT9,CTP,CTS.CT>1»... 

• CAM,RC,PR,RKT,SC»THFF»hUHFp,SP»SV,S|  EN , OPR  I N , PLOT , C6, 

JLJ11X,CF^.'1AX1IjTI1L<SUP3» 


• X,XPRN,H»tlC,TC,  IIC,PTC,WJ,YJ,TTC,YSr)NlC» 

_»_X,xp«N,3,uC».TIC»PTC»rtJ,  YJ,TTC»  YSU.njIc. 

• YC3,X0,R0, YR,yC0,PP»wV,MA?, VE2»TE2#NXTA»I» 

• NC»CNAME,ALJ»ALJ0»ALE»SCN,CPC»01FF«r3C  - - 
CO  Tn  1000 


200  KKFSs  CSC»XX*,S 

03  210  IJsi,kREC  

REAO  (2)  jREC,KXX,KREr.» 

* Sl)RD»SypbTP,CORE»COPSTp,MER.MERSTP»wPO, 


JTFILE85 

- JTFILE83. 
JTFILF87 

--JTFILEaa 

JTPILE89 

-JTFlLtRO- 

JTFILERl 

- JlFILt92 
JTFILE95 
JTFILERO 
JTFILF.va 

-JTFlLt9a_ 

JTFILE97 

JTFILE9b 

JTFILE9R 

JTFILEOO 


* PSl,Y,UO»T'HO,PD»TlO»RHO,XLN,L),T.fOT,XMACH, 

* PTDr,TTO»PTD# 

* M0LF3»MaLP‘'*  m6lF5.molf<>7 

* MnLF7.^nLF8,‘inLFR.MOLFlO.MaLriUHOLFlg>J 

WRIlF  (i)  JRtC.KXX.KREG# 

* 3UPD.SUPSTP,CnRF,C'J«STP£MEH,»lFR3TP/?|PD# 

* P3I,Y,UD.THI).FD,1I0,RM0,XLN,'J.  t .TOT.XMACH, 

* PTOT.TTO.PlD.  . _ 

* ‘lULFl.lDLFi.lhLFi.HOLF  a,  MflLFS#  M0LF6, 

* HtJ L F7,MnLF8,>inLF9,Mj|  F 1 0 , MflLF  1 1 » MfYLF  1 2.  J 

IF('kXX,EU.KRES  ) GJ  TO  220 

.210  CONTINUE  _ _ 

ERR  = TtPw’F, 

_NRnE  (6,2«n  xx_ 

211  F3RMAT(lH},.V2X,rOH3TAtlON  X= , F 1 0 .6, 2X» 1 IHnqT  ON  FILE//) 
GO  Ttl  1000 

220  wHlIF  (6,221)  XX 

221  FURNaT(1H1,///2X,2Qh»i>JeTH1X  RESTART Xs,Fl0.6//) 

*IF(RIX)  hIX"PR£=,TRUE, 

10  06“R'E  TURIN 

END 


JTFILEOI 

JTFILE02 

JTFILEOS 

.JJFJL-tQA 

JTFILEOS 

JTFILE06 

JTFILE07 

JTFILEOS 

JTFILE09 

JTFILF.IO 

JTFILfcll 

JTFILE12 

JTFILE13 

JTFILFIO 

jIFiLtlS 

JTFILE16 

jtfilLit 

JTFILElS 

jTFILbl9 

JTFILE20 

■JTFILE21 

JTFILE22 


I 


I 


1 


1 
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CJTINIT  INITIALIZE  NeW  PHQBLEM 

SURPnUTlNF  TTTNTT 


r.  A***************"************************************************* 

c * ? ***♦.*  ******  ? * * ******  SPFcTaL  VFRSiaN  _F0R..I  2_5PEC  IFS-************ 

L nr,  I r A L_  n pyjj 

INTEGER  P|  DT 

Lfir.irAi  fntRyi 

logical  mchang 

LHGICal.ERP 

LOGICAI  Axl  , XPRN  , CmPRS  , OJFt  , TUR8J  , CORE 

REAL mJET_i  Mf_f-_‘<OREF 

COMkinN  /RSTARI/  NREG*RrSTRT,NRFS,MTXpRE 
OGICAI  MTXPRF 


COH'^ON  /DIFEOI/ 

* NC  . CNA>if(12I  . ALJfl?)  , AljOCI?)  .AlF(I2)  , SCM(l?i  . __ 

* TCPPFd?)  » HCPRFd?)  , CPC(5,12) 

^cn“j^nN  /oiriRL/  otff  . cnp(io) 

logical  diff 

COMMnN  /mQi rs  / Aixcino.lpi 

C'l^iON  /rCMOL  / ALfDGeI  12),  ALn(l2) 

c*--_ ; 

INPUT  COmNON 

c*  _ . _ 

COM  MON  /INPJE’T/ 


* OIA.I 

, HJFT 

■HiHj 

* TT.IFT 

• PF 

$ 

$ VE 

, ME 

* AXI 

, NJ 

, NM 

* xnno) 

, XPRN(IOO) 

t 

* GAM 

, RG 

, PR 

, PTJET 


> TIE 


qua  I 


c*  MESH  Common  aFtER  oisappl arancf  of  potential  corf 

c* 

c******  CJNTROl  common 

.c_* 

common  /CTRL/ 

N X 1 a ,_c M p R s_ _n j Ej , turrj 

* NPJ  , NPO  . OXC  , XU  , xoo  , 

_*  osinRfR00,i _ 

c* 

PROFUF  rOMMON 

*CA 

COMMON  /PROF/  PST(200) , YIP^O),  _PRF(200,?1 

c* 

E******  CJnSTAnI  ANO  EPPOR  COMMON 

c* 

-B  U.S-  f_LP-R_i_GC-x-j;  tJ-,  ^DOI 


f—COEF  f_l  OJ 


JTINITOI 


>**.ITINIT(J<»_ 

rAAjTiNiTOS 

JTINITP<>_ 

JTINITOT 

JjJiillM- 

JTINIT09 
,__JT1nIT10_ 
JTINiTl 1 

JTIntijl?_ 

JTINITIS 

JTiNiTia 


JIINITIS 
jTINIT16_ 
JTINihZ 
J T I N I T 1A_ 

JTTnIT'19 

JTINIT21 

JTINII22^ 

JTInIt23 

_ JTINIT?«_ 
JTINIT2& 
TTNIT?«> 


JIINIT27 

JTINIT28 

JTINIT29 

JTTNIT^O 

jTTNITH 


JTINTTIJ 
..  jTINlT?a_ 
JTl nIt55 
_ _JTTNIT'56_ 
JTINIT57 

.JTTNII^9_ 

JTINIT59 
, JtTNTj<IO 
JTINITal 
jTiNiTaa 
JTTNlTai 
■iTTNlTua 
JT I Nl T^S 
JTjNiTaj, 
JTTNTT«7 
jTlNjTaS 
’TINItO’ 
JUsJLTiCL- 


nOijNOABY  CdNOTTinKI  rOMMON 

r.* 

/flC/  UfRGP  , EEor.F  , 
c * 

PJTENTTAt'  CORE  COnMnN 

c* 

coMHn^J  /rnpcn/  xrnRr  » tore 


rHEDr.c 


roRSTP 


_s caler  (Units  cqmvcrs in ni_^ m « nii 

CA 

CJmmpn  /scaler/  SP  . SV  , 3LEN 

c* 

JET  properties  COMMnN , 

c* 

C IMMPN  /.;ET/ 

* aciob)  , iiC(ino)  , TCfloO)  , ilrdoo)  , 

____  * Picnooi  Hj(iQQ) . YJdooi  » 

» Ys.iwir(ioo) 

cnuMnN  /lEiw  ELnwj.  ito.nx.f.ift 

CClMMd^  /DmpSH/  MCHAMG,CK»nVl  , VHSH  , CXPC»f;XTP,NREO 

j: bM_MfjN_xED££y yjE r fc , sefdge • , 

c» 

COMMON  /^Iisc/_PM(10)» piJ3_T 

COMMON  /INPl/  ENIRYt 

cQMHnN  /tettwq/ 

* iw:i  , r»iAn  , mJfto  » tjeto  , vJftO  « 

P 1 ■»f..T.O..i..NJa 

COMMON  /RCO/  UO,  E0»  IHO 

___  ..REA  I H J F 1 p_/Ji  AXHQ 

COMMON  /CTPti/ 

A FOGFT  . mFI  . 


* Si'JPET  , SLOPED  , CEpIl  , CEPTO 
C OM.MO N_/ M E R G FLT y_  M ER.  M^R S X mrg 

lOniCAL  TW0»  merge  » mfr  > mFRSTp 

C*  - 

common  /mixer/  MTX,RD(tOO),XO(tOO),CF,YR(JOO) 

I OGlCAl  MIX 

COMMON  /FLOBAL/  MAXIT, soph, NTT, PSir),YDO,yDC, 

PUP2, IICL,  IOL,UPSIRM,’c.YC 

I ogtcal  siiPH»rvr,»upSTRM 

COMMON  /ACONVG/  YCO(loO),pnciOO).lNOr(lOO).  choke,'  choked 
LUClCAl  choke.  chokEo 

common  /nFTT/ Cl SPf InOT 

COMMON  /sTa2/  MACH?,Ts2,,SS?,V?,RHO?,nP0X? 

real  mAch?  . , 

common  /nCMiX?/  r.RAbu,TW,MIJW,RHOW,pTF,TfE 
real  muw  . _ 

COMMON  /CHoOy/  VCR(1oo'),CLSPCH(IOO)  'vCH1' iiCl  1 
common  /riUTMTx/  NXORIr. 


JTI.nITSI 

.JTINI_T5^ 

jl  INITSS 

JIINTTSS. 

_JTIN1T56._ 

JTTNTT57 

JTINTTSS 


JTINITS9 
.JTImIT60_ 
JTTNIT61 
JTI nIT62_ 
JT  TNIT63 

JUHLIAIL- 

JTTNTTfeS 
_ JTInIT6<>_ 
JTTNTTfe? 

_JTlNlT6a_ 

JT InIT69 

JllMlI-IQ— 

jttnittj 
JTI.NIt72_ 
JTIN1T73 
JTInTT7<»  . 
JTINIT75 

JJ.I..N1T76.... 

JTTNTT77 
JTI.NIT7J_ 
JTTNIT79 
. JTI.NITOO— 
JTlNlTBl 

MJ..NlTn2— 

JTTnItBJ 
_ jTiNrTa<i_ 
JTTnTTBS 
jTiNiTaa_ 
JTTNIT67 

jTT.NiTaa— 

JITnITBR 

JTIMTRO- 

JTINIT91 

JTrNlT92. 

JTTNIT93 

III.Nlt9'l 

JTTNTT95 
JTlNlT9(>  _ 
JTIN1T97 
JTINIT9B 
.JTTNIt99 
- JTINIIQOL- 


272 


CDH-^nsi  /INNftME/  WB»TAB(S)»ND.TAO(a) 

CDHMnM  /SCALfcO/  SCLO#ALXIIM 

JTINITOI 

JTI*JTT02 

LOGIf^Ai.  SCLO 

JT iNtTO J 

CHMMn'j  /rKMDn  / cjrmOo 

JTINIIT09 

DImEnSID*J  TAB!  (5),TA0i  (a) 

JTIMITOS 

DIMENSriM  TMPdO) 

JII^JlTOb 

eqijivale'jcf  (iMP(n,PM(n) 

JTiNiTOr 

oiMENsnN  HHC^).  cpa(3).  rpcn?(3).  rpH2n(3) 

JTI^JIT09 

DI^ENSUM  cTARN(h) 

JTIMIT09 

DATA  CTAR«J/5HAIR.  3HCO?»3HH?n»<»H  ,6H  ,6H  / 

JTTmITIO 

data  BH/ms93.7(i,-i6'i^i3l  .R/i.-l  1 9593.^6/ 

JTINITII 

Data  CPA/‘>.9^0  3,fl.  929F-ii,S.9fl9F-8/ 

JTIMIT12 

DATA  CPCn?/6.?19,3.776F-3,-l .09aE-A/ 

JTI'JITIS 

Data  cph?-3/7 . 2S6,  l .?7  7t-3,fl.73SE-8/ 

JTIMITl « 

DAI  A TARI  / l'<X,2HXrj»?HfjD,  3H  YC9  » 9HXPRN/ 

JTImITIS 

DATA  TADJ  / I HY,?HIJ0,3HtI0.3HTH0/ 

JTlMlTlb 

i McHAMr.a.TRUE. 

JTiKilTl? 

NMSH=71 

JTI»J1T18 

CKSJ  .'o80<>9«75 

JTlNlTlR 

OYls'ooi 

JTIK'ITPO 

CXPCs.02 

JTT^JTT21 

CXTPs.02 

JTTNIT22 

NHEDaiO 

JTJ*JIt2J 

data  5TTS1 /DT77777777777/ 

JTI^JIT?g 

BIISsBTTSI 

JTIMT25 

2 call  SFtm(1,HIT3.MJFT.10T 

JTI'JiTPb 

Pr=ia,69S9« 

JTINIT27 

TFst! 8.6RB 

JTImITPB 

TIJkT»0, 

JTINIT29 

TIEsO. 

JTI»JIT30 

TWflr.'F  ALSE,’ 

JTI»JIT31 

CAIL  SFT«{  ! .BITS.MJETn.'l) 

JTTMIT32 

TIJETHsO.' 

JTTMT35 

N.jnsRO 

.lTTKJlT3a 

mewgfs.’false. 

JTIWItSS 

AXir. TRUF. 

JTIMT36 

NJ=30 

JTI^JIT37 

MMsHO 

.ITI\JIt39 

r.  A M = 1 . « 

JTI»jrT39 

RGs53.3a  . _ 

JTIMTaO 

PRa,72 

jTI*jTTai 

PRT=1 . 

JTlNlTfl? 

SC.201  .'b 

JITMTaS 

TRFFsO . 

tTT vTTUg 

MUREF*0, 

JTINlTflS 

c» 

JTI'^lTab 

3 OjFTs.TRDE.’ 

jTImTT'17 

TDRD.ts,  TRUF  , 

JT iNiTaa  - 

r* 

Jt  TNTTaR 

JII^IJSO  . 

I M 
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S CALL  SFtm(?,BTtS,X,10o,y,200) 

_ call  SfTM(1,0,XPRN,100) 

'DPRIns.ValSE. 

^ CaL  l”  S“F  T 
IMP(1 )=0 


PLOTsO 

FNTRYla.TRllE. 

mix's.falseT 

CFs.f^O?  

MAXlTa25 

S 

upstbms, true. 

CVCs.^aLSE. L 

I'll  s|  ,p.h 

...call  SFTM(l,rt,,YCB,100i_ 

CALL  SFTm(u,hiTS,RO, lOO.XO# lOO.VR, 10ft,YCO,100) 

CAI  L SFTMCliO.  INDC..  IQO) 

»<na5 

NO  s n 

call  BnvF(?,TABl,TAR,S»  t,T*01 ,TAD,a,1) 

.NCa3 

CALL  inYFC  1 ,cTABN,CNAmF.,(,,  1 ) 

DlF.Es..  FALSER 

CALL  SETM(?,nTTS,ALJ» l8, Al  X,  1200) 

CALL -SELT . 

ALF( 1 )=, 9903a 

ALEC2Js,0Qai3 

ALE( 3)*,00033 

«1J(  OS.9Z 

ALJ(?)s,oa 

— .AuicsJt.oa 

AL  j;)f  1 ) = .’9a 

ALJJ(2)  = .*02  

ALJJfS)s;02 

CAI  I 5trTMf  t f n , ^HCPUFryfl). 

CALL  $FT«(i,600.,TCPRF*3) 

CAI  L vnxFCa.KH.MCPRF# 3.  i,CPA«CPC(iri),3.  i»cprfr2,cpr(i 
* cpH20,C9cn,3),3,n 

RESIRTrdITS—  ..  

NRFSsI 

M LX  2a£jL,X/U-S£, 


JTIN1t59 

JTINIT60_ 

jTl»gIT61 

.rTTWlT<>2_ 

JTTNiTfcS 

a_ 

JTl»gIT65 

JTIM1T66 

jTI»JlT<>r 

JTTSIT6B 

jti'»jit&9 


JTTN1T71 
JT1NIT72- 
.)TINIT73 
jriNlTTa 
JTIM1T75 
-j-i  iJjirriL. 
JT1NIT77 
-.1  TINT  1-78- 
JTINIT79 
jriNiiaO- 
JIINITBI 
-JT4-VilT-fi2- 
JTINITB3 
jTiMiiaq 
.itinitbs 
- jiiNiiaa- 
JTlNlTfl7 
-jiiMiTaa- 
JTINITB9 
JTINITPO- 
JTIN1T91 
.ITIMIT92 
.ITINTT93 
JILNlLSiL. 
FTINITPS 
.rTlvIT96 
JTTNITOT 
JTTNIT9B 
.iTliglTOO 
JTIalTOO- 
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CJTOUTl  jET/nUTPUT  *T  STATION  1 

SUBWOUTltJE,  JTDUTJ  


^LOGICAL  -EOF  ERR 

logical  AxI  , XPRN  , CHPRS  « OJET  * TURBJ  t CORE 

RE*L  MJfT  , HF  i HURpF 

Com-^DN  /.IETTWq/ 

* T^J  . nIAO  . MJFTn  « TJETO  , VJETD  » 

* PTJFTO  . TIJETO  , NJO 

REAL  _mJFTO, MACHO 

COMMON  /OIFEOI/ 

• NC  . CNAMFdai  . ALJfl2Lt-*LJ5(17j_,ALe(J?i  I SCm(12L« 

• TCPRFd?)  , HCPRF(12)  , CPC(3,i2) 

C 0 MMON  /OtrTRL/  OlFF  . CNOdpr  

LOGICAL  DIFF 

coMMnN_/Moi‘ES  /_ALx(ioo, i2j ^ 

COMMON  /ftCo/  UO,  EO*  TWO 

_COMMnN  /CTrL2/ 

* EDGfl  , SFT  , MEflGE  * XMERGE  t YMEROE  » 

• SL QPEl  . SLOPFO  . CFpTt  CFPTO 

COMMON  /MERGfT/  MER»  MERSTP  . XMRC 

_ LOGICAL  TWO, _ MERGE  , MgR  , MgRSTP _ 


INPUT  COMMON 


COMMON  , 

* DIAJ 

_*_TJJ[ET_ 

* PE 

_*  AXI_ 

* X(lo6) 

» CAM 

* sc 


, mjeT 

-J 

, VE 

L NJ 

, XPRN(tOo) 

§ RG 

f TREP 


, TJET 


PR 

MUREP 


. PTJET 


, V.IET 


control  common 


COMMON  /CTRL/ 

-•—N  XI*_ . CMP  RS . Q.IFT ^ 

* NPU  . NPO  . OXC  , XU  * XDO  , 
„•  DSTORWOOK  _ 


.coef:uoi_. 


profile  common 


constant  and  error  common 


COMMON  /CNfRR/  bits  , ERR  , CC  » GCJ  . FOOT 


JTOUTlOl 

JTOUT102 

••*JTnuTl03 

t»**JTOUT10O_ 

••^JTOUTIOS 

JTOUTlOb 

JTOuTlO; 

JTOUTIOB 

JTOUT109 

JTOUTllC. 

JTOUTIII 

JT0UT112 

JTOtJT113 

jTOUTlia 

JTOUTllS 

JTOUTil6_ 

jTOutllT 
JTOuTl  18 
JTOUT119 
. JTqUTIPO 
JTOUTi21 

JT0UT122_ 

JT0UT123 
JT0UTl2a 
JTOUT125 
JT0UT126 
jTOUTiar 
_ JT0UTl£8_ 
, JTOUTl?? 

_ JTnuTl30_ 
# JT0UT131 
.TTOllTHB 
JTOUT133 

^JTnUTJ30 

JTnuT135 

JT0UT136 

JTOUT137 

JT0UT138 

JTOUTISR 

_,_JTOUTJuq_ 

.JTOUTIRI 

JT0UTlfl2 

JTQUT1«3 

JTOUTIRR 

JTOUTiaS 

.._JT0UT1«6_ 

JTOUTIOT 

JTOUT1R8 

JT0UT109 

JTOUT150 
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B JUND4RY  condition .cPMMOK 


COMMON  /BC/  OEDGE  . FEI 
> »*»*  POTENT lA i'  CORE  COMM qN 
C P M 1 /COPED/  XPC ORE  I 


>>»«•  SCALER  (UNITS  CDNVEpSl 


COMMON  /SCA|,ER/ SP_ 


JET  PRQPFRTlEa  COMMON 


COMMON  /JETl/  FLOWJ»TT0.NX.rJgT 

COMMON  /JAR/ 

Jr,  N AMF  C 1 0 1 f T.ITJLE  (_loj  »J DENT  ( I oLaDORES T 10  j .JDENT  1.(1 01 

COMMON  /MixER/ jiix»RO(ioo) .xoiiooi/cr^yntiooL 

logical  mix 

_C_OMMnN  /FLOBAL/  MAXlT.SUPR.NlT.PaiD^XDD.YDC, 

• P1.P2,UCL,T0L.UPSTRM,CVC 

_ LOOIC*L.  Si|PH,CVG>UPStRM_  

COMMON  /aCoNVG/  YCt)(l00),PO(lO0)»tNDr(l00)7  CHOKE#  CHOKED 

LOGICAL  CHOKE#  CHOKEO  

COMMON  /OFtT/  CL3P(l00i 

common  /RTa?/  MACH?.  T!«?.ss».v>.RHn9.hPny> 


REAL  MACH? 

_c OM_M 0 N J BCMIX?/  G RA DP .TW#mU ^ #RH3H. PTp.TTE 

REAL  MUW 

’oiMENSlON'^HEA^rca#?)#  H^AD?(2#2)#  HEaOIcITpC  ^ 

_i_f.aHMJJL2jJX0R-M2t2J-lFJlRMil.^i.*_XLt2flLal 

DIMENSION  HEAOU(?#3i#FORMq(2i 

DIMENSION  HEA05(2#2)#F0RM5f2i 

EQIJIVALEnCF  (TI(1).  OsTORdii 

EOUIVALENCF -tKAXI# AXli#  (KQ#QJEJi*_(KMPR8»CMPRSi- , 

ecuivalenCf  (ktom#tko) 

_£0UIVJ1L£.NC£ UajXj.MlXj 

DATA 

* MEA0lCl#n/2ilHPLANE  - _.AXI SYMMETRIC/# - - 

* HFA02(l.n/2«HISaTHERMAL  N-I SOThERmAL/# 

* HrAD3(l#n/2<lHlNC0MPRESS.  COMPRESSIBLE/ 

DATA 

-»_HEADiLt  1 1 i /.SliKaititGLi CO-PLAAIAJI tO«lA)NULAR / 

DATA 

AHEADSd#  i )/2uHEREE  JEtCONFI  NED  JPT/  - - -- 
DATA  SI.  ANK/6H  / 


JT0UT151 

JT0UT152 

JT0UT155 

JTOUIX59_ 

JT0UT155 

JT0UT156. 

JTOJTIS/ 

JTQUT15B. 

JT0UT159 

JT0Utl6Q_ 

JTOUTlfcl 

JT0DT162. 

JTQUT163 

JT0UTl6«t 

jTOUTlfcS 
■ JTQUTlfe» 
JTOUTifcT 

JT0UT168_ 

JTOUTlfcR 

JTOUT170_ 

JT0UT171 

JTQUT.LL2_ 

JT0UT173 

JT0UTl7q 

JT0UT175 

JT0UT176 

JT0UTI77 

JiaUTX7.a_ 

JT0UT179 

JTOUTlSO- 

JTOuTlfll 
- JT0UT182 
JT0UTIA3 

JTOUTiatt- 

JTOUT185 
JT0UT188 
JTDUT1S7 
— JTOUTiaB- 
JT0UT189 

JTOJTiQO 

JTOSJTIRI 

JT0UT192 

JTnUTl93 

JT0UTl9a 

JT0UT195 

JTOUTlRi. 

JTnUT197 

JT0UT198 

JTnuTi99 

JTOUTIOO 


o n 


c*  'set  variable  headings 

_ C*_..  ^ 

1 NaXIsKaXIAI 

N pa K OiJ 

NCMP«KmPR3*1 

_ _ NJFTTSNAXUKTQW  

IFlNJETT.en,  2 .and.  AXl)  NJETTal 
KMlXa_lHiX*l 

* 

» CJNBTRDCT  HJlLERlTH  HEADINGS 

* 

DO  ? L»1.‘2 . 

FORHKLIeMFAOKL.NAXl) 

,F0R'^?a)eHFA02(L*NQ)__ 

rO»H«(L)eHFAOa(L.NJETTI 

F.OR 5.t  tJ_*H£AQ5i  L«KMlXS 

? FaRM3(L)»HFAD3IL«NCMP) 

c* 

C* 

xtref»tref.__.  

XMUReFbHURpP 

XSCSSC  , ^ 

iFfTREF  ;Nf.  0.')  GO  TO  5 

XTREFaBITa__ 

XMURFFaBiTS 

XSCsBITS  _ _ 

c* 

e»  write  first  section  of  output 

c* 

3 MPtTF(«.»10O)FURH5>FnRHl.FDRH?.r3RM3>rr>Riia» 

• NA‘1E,  ADOHFS.TITLE,  IOFNT.IOENTW 

* TE,DIAJ,GAH,PF,«JETiRGi 

• ve»  TjFT.PR*HEf ptj£t»ppt»tie»  vjet» xsr »ti jet» 

*._X  T R F F.FLOW  J ,_Xiig  R E_F 

IF(ThO)  kIRtTE  (6,105)  OlAO,MjETO»TjETO»PTJETO,VjETnfTIjETO 
IF  (.NOT, -TWO) ^^RIT?_(6.1I0) 

C* 

C*  ._CONVERT_EP_Tq  jURBULCNCt.lN_Tf  N_5tTr 

C* 

4 -C3NVg3aRl(i.AGCJ*E JET/3. WVJET 

DO  5 tcl.NPU 

5 TI(L)»CONV*3QRT(EO(Ll.j 

C*  CHECK  FOR  DIFFUSION  CA3E 

IF(OTFF)  GO  TO  25  " ~ 

CJ 

c*  WRITE  ?"N0  SFCTION  OF  OUTPUT 

C*  . . . - 

10  WRITE  (6,'l50) 

C*  - - . , - 


JTOUTlOl 
JTOUT102  . _ 
JT0UT103 

J TOU  T L0.4 

jTnuTlOS 

JTOUT106  

JT0UT107 
JTDUT1Q8  _ 
JTOUTIOR 

JTOUTllO 

JTOUTlll 

JTOUT112  

JTOUTllS 

JTOUT114 

JTOUTllS 

J T O U T LLO 

JTOuTllT 

. JTOUTllS  _ _ 

JTOUTllO 

. JTOUT120 : 

JTOUTl?! 

JTOIJT122 

JT0UT123 

JTOUTiaa 

JTOUT12S 

JT0UT126 

JTOUT127 

JTOUIU? 

JTDUT120 

JTOUT130 

JTDUTlSl 

JT0UT132 

JTDUT133 

JTOUTl 3? 

JTOUT13S 
JT0UT136. 
JTOUT137 
JTOUTlSS  _ 
JTOUTISO 

JTOUT140 

JTOUTlOl 

JT0UT142 

JTOUT143 

JTOUTIOO 

JTOUTIOS 

JTOUTIOS 

JTOUT107 

JTDUT148 

UTOUTiaO 

JTOUT150 


I 


J 

i 


_ 20  WRITf _(6.2oOj_fC.r(Lj»P9ICLj>UD(L).’lHOiLi/Tl(Li»L»i*NPU) 

GO  TO  TO 



25  WRITF  fh.lsn  (CN*MF:(l)*L«1»6) 

WHITF  f6.2on  a.Ya),PS!(l  ).UO(L)jTHB(L)»IIlLij! 

* f ALX(l,»rLiil.L»>*fc)*Lcl,NPU)  , 

1/  (_N  C . L E , fc  . )_G  0_T  0.  3 0 

* 

« SPCEIAL  OUTPUT  FOR  >JC.GT.’  fc 

* 

_ NC.l  . a MCil _ 

00  29  K3»jcT|12 

29  CMAMFfKJa  

NjM  e n?-Nci*ioo 

CALL  SF Tm(i,R1T3>*lY(1»NC1).NUH) 

WRITE  f6,l‘;2)  fCNAMF(L)»Le7,  12) 

..  _ WRITE  (<..202)_(t»T(LJ»PSI(L),(ALX(ilftL)»LLaril2)#LalfNPU) 

* 

?__TF_C'5‘<fI‘JE0_mI_X1NG,PR1NT  PSi.  QF  J5_Utl_5liftf  AeE 


,50  F0R1ATtlHl.'23X.3H» 
« 5h  * >2A0>ltH 


.FORMAt  STATEmENTS- 


I2A6.UH  PROGRAM-  a///, 

* * ,2aA,10H  * * »2A6, 


* 16X,feM«*  »2Ah,2X.?0HMlXIMG  RERlOM  *<*///» 

* 10*6/.  lOA6/.-10A6/il  0*6/,  10A6//./. 

* 17X,37W*  INPUT  AND  INITIAL  CONDITIONS  *//, 

* 2X, 1 PHEXTFRNAL. CONDITIONS, 5X,2RHJCT  DlSCHARGE-PARAMCTFRS, 

* 5X,t9H,-4S  PROPERTIES//, PX.tlHTE  =,Pta.3,6X,' 

_ A.  bHDXAJ,  SiFJ.3*S.*SX*6Hr.AM a,Fl3.5/^)L, 

* RHPF  s,  |PF19,«,6X,6HxJET  a , OPF  1 3 .'«  » SX  , 

* 6MRr.  s,Fl3.5/,2X,aHVE  a.Fia.'i.hX.AHTjET  r.'FlJ.S,' 

* SX,6MPR  a,Fl3.’5/,2x,UHMF  a , F I 0 . tt  , 6X  , 6HPT  JETa, 

p IPEl  3.'a,bx,6HPRT  =,OPFl3.’5/,2X,«HTTEa,iPFtO,<»,  _ 

* 6X,6HVJFT  e.OPFl  3.'3,5X,6HSC  * , F 1 3 *5/, 26X, 

«6HIlJEls,lPL13^,SX,i«HlIlEE_x*Gfi£4-3»3/,26X,AMFt0li(JB;iPEl3.’a,-5x,- 

* 6HMURFFs,Fl3.a/) 

LIO  F3R«4Tf///^  — _ 

105  F0RHATf26X,7H0IAn  *,f12.'5/26X,  7HMJETO  e,‘Ft2r«/ 

* 26X,7hTjEt'J  s,F12.'3/?6X,7HPTJET03,lPFl2ro/ 

* 26X,7hVJET0  a,0PF12.3/26X.7HTlJEToa;iPti2.*a//) 

150  FORH*Tf 23X;j26H*  INITIAL  PROFILES  •// 

* IX, |HN,7X. IHV. nX,5HP3l,l3X.lMU,llx75HTHET*,I0X,2MTl//) 

151  F0RM*T(53X,’26H*  INITIAL  PROFILES  •// 


JTO'JTlSl 

JTOUT152. 

JT0UT153 

JJJ3U1154- 

JT0UT155 

_JTOyT156. 

JT0UT157 

JT0UT158. 

JTOUTiSR 

JTDaTXOXL 

JT0UT161 

JT0UT162 

JT0UT163 

JT0UT16«_ 

JT0UT163 

JlOaTl66_ 

JTOUT167 
JTOUT168_ 
JT0UT169 
JTOUT170 
JT0UTt71 
— JJJ3UTUX- 
JT0UT173 
.*  JT0UT170. 
JT0UT175 
jT0UTt76 
JTOUTt77 

JJOUT-1^ 

JTOUT179 
— JTOUTISO 
JTOUTtSl 
JTOuTiaE- 
JTOUTIB3 

JJOJIiafl- 

JT0UT185 

- JT0UTIB6- 
JTOUT187 
JT0UT1B8 
JT0UT189 

— JT0UT190- 
JTOUT191 
JT0UT192 
JT0UT193 
JTOUTHfl 
JT0UT195 

— JT0UT196 
JTOUT197 
JTnuTl98 
JTnuT199 
JTOUTIOO 
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•IX, 1HM,7X»1HY, l|X,3HPsI, lox, 1HU»8X.5hTHETA,9X»?HTI, 

* 7X,*(>,5X,/^6.5X,  A<>.bX«A6»5X,A6»5X,A6//) 

152  FD»MAT(lMl,52X,2fcH*  INITIAL  ■ PROFILFS  *// 

* . 1 X Y 1 1 1Xj-1*1PSJ.«7X«.A 6* 5 A6i/Zi 

20  0 FC1RM»T(n,  tPEl2.«,Eli.«,0PFl«.‘8,Fl4,«,|PE16.7) 

_ 201  FOHmaT(I5» JPF12.4,El3:4,0PFll.8,Fll.e»lPE15.7jfcClirAL. 
202  F0RM*T(I5,lPFl2.«.Ei3^4,6EH.ai 

250  FORMAl{//ttH-ALLiJPCJl*-«*F.l3.4i 

C* 

1000  return 

END 


JTOUTlOl 

JTOUTIOZ. 

JT0UT103 

_JTDUT.U19_ 

JTOUT103 

JTOUT108 

JTOUT107 

JTOUTIOS. 

JTOUT109 

_JToUT.l.L5_ 

JTOUTlll 


CJTOUTS  SUMMARY  PRImT  nF_  JET  PROPERTIES 

SUBRnUTiME  JT3UTS  


C**********************  SPECIAL  VERSION  FOR  12  SPECIES  **** 
logical  EnF  . ERR 

logical  tapin,tapot  

LOGICAL  AXl  , XPRN  , CMPR3  , OJET  , TURbJ  , CORF 

LOGICAl_  _1nOJO^Ekj^W 

iMTEr.ER  XPRVi(foo) 

EQUIVALENCk  (XPRN,XPRfgn 

integer  plot 

_REAL  mJfT_,_M^,_MUReF 

COMMON  /*0aM02/  ENDJOb  . nUM02(3) 

COMMON  /QlfF.ni/ 

' * Nc  cNAMFd?)  . alJ(12)  . ALJOdZ)  »alE(i2)  , scmh: 

« TCPRFnPl  , HCPPFd  2i  , CPC(3.12i 

COMMON  /DIcTRL''  OIFF  , CNO(IO) 

logical  OIF/ 

COMMON  /MSrES  / ALX(100,12i 

COMMON_ /bCmIL  / ALEoGf(12)»ALOM2) 

COMMON  /jEffwO/ 

« TWO  , ol AO  , mJfTO  , TJETO  . VJFTO  . 

* PTJFTO  . TIJETO  , NJO 

__  REAL  MJFTO, macho. ^ • 

COMMON  /BCO/  UO,  E0»  THO 

COMMON  /QTRL2/ 

* EOGFI  , SFI  , mErGE  , XMERGE  t YMERGE  t 

> 3L0PFI..  s LnPEJ.,.i  .CLP-IJ . CEPTQ 

COMMON  /mErGET/  mEr,  MERSTP  , XMRG 

logical.  jrw.O,.  JifRGE..,  mfr  . mfRSTP 

COMMON  /IOfILE/  TaPiN.TaPOT 

COMMON  /PARAM/ 

* U(20  0),T(2no),TOT(20oI,XMACH(200),'PfoT(?00),TTD(200i, 

« PTPf2QQi,UDCf2QQ1.0UvPRfP(l<li ^ 

C* 

C * A * * A • _1.N  P U T-  C OmHOAI 

C* 

„ . COMMON-ZlNEJELtZ 

* OIAJ  , MJET  » TJET  » PTJET  » \ 

* TTJFT , 

* PE  » VE  , ME  » TIF  , 1 

* AXI ,_NJ a_NH , 

* X(lOO)  , XPRN(iOO)  f 

* GAH  • RG  _ , PR  .-PRT  _ , 

* SC  , TREF  , MUREF 

C« 

C******  CONTROL  COMMON 

C*  - . 

COMMON  /CTRL/ 


» PTJET 


PRT  _ 


JTOUTSOI 
JTOUTS02 
»**JTCIUTS05_ 
AAAJTOjTSOa 
tAA.TTnuTsnS 
JTO'JTSOS 
_ . JTDUTS07_ 
JTOUTS08 

JfTO'JTS09_ 

JTO'JTSIO 

UDJTSUl. 

JTOJTSIS 

JTOJTSl  3. 

JTOUTSia 
. _.JTnuT.Sl  5^ 

jtoutsH 

J TOUT.  317- 

JT0UTS18 

JTJOjTSl  9. 

JTOUTS20 
_JT0UTS?1_ 
JTOUTS22 
JTJJTS23 
JTOUTS24 
_ JTDUTS25 
JT01JTS28 
JTOUTS27 
JTOJTS28 

JICLJTS2A- 

JTOUTS30 

JIOUTSSJ. 

JTOUTS32 
_ JT0UTS33_ 
JT0UTS3« 

JJOUT.S3S- 

JT0UTS18 
_ JTnUTs37 
JTTjTS^S 
JTnUTS39_ 
, JTOUTSRO 

JT.OJTSUl- 

, JTr|JTS«2 
. . JTO,iTsa3_ 
jTojTsaa 
JTOJTSOS 
JTOUTSUb 

JTOUTSR/- 

JTTUTSaS 

JTOJTSO? 

JTOJTSSO 
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1 

' 

* NXTA  . CMPRS  . flJET  .f  TURBJ  . COEEtlOi 

, JT0JTS51 

* NPU  , NPO  . OXC  , XU  , XOO 

* OSTORIBOOi 

JTP'jTSSa 

JTO'JTSSS.  .... 

1 

c* 

**  profile  common 

JT0UTS5R 

jTnuTSSS 

c* 

COMMON  /PROF/  PSl(200S.Yt20oj.UO(200T^TMDi2001,ED(200J. 

JTOUTSSb 

JTDUTS57 

■ 

c* 

r******  COMSTANT  AND  ERROR  COMMON 

JTO'JTSSB 

JTO'JTSSR 

C* 

common  /CNERR/  bits  , ERR  . GC  > GCJ  « FOOT 

JTniJTS60 

JT0JTS6I 

c* 

C******  BOUNDARY  CONDITION  COMMON 

C* 

COMMON  /BC/  UEDCF  . FEDGE  . THEftC.E 

JT0JTS82 

JTOJTSS3 

.JTOUTSSR 

JT0UTS^5 

1 

C*  . 

r******  potentiai  corf  common 

JTOUTSAS 

JTOiJTSfc/ 

c* 

COMMON  /CORED/  XCORE  . CORE  . CORSTP 

JTDUTSSB 

JTOUTSAR 

c* 

c******  scaler. (UNITS  CONVERSlQNi  COMMON 

JTOUTsTO 

JTDUTS71  - 

• 

c* 

COMMON  /SCALER/ SP . SV ._3LEN 

JTOJTS72 

JTOJTS7J 

c* 

c*»***»  JET  properties  common 

JTOUTS74 

JTOUTS7S. 

I 

c* 

common  /JE.X/ 

* BdOO)  , UC(IOO)  , TC(IOO)  » TlrdOO)  , 

* PTCflOOi  . wjnoo)  . YJflOOT  . 

JT0UTS76 

JT0Ln*S7  7 

JinuTS/B 

JTQUTS79 

; 

' 

* YSONiCdOO) 

COMMON  /.IFTl/  FLOWJ,  TtO.NX.FJFT 

JTOLITSRO 

jtoijtsbi 

< 

COMMON  /JET2/  TTCdOo) 

COMMON  /TAR/ 

JTOUTS62 

JTOUTSHS 

* NAMEdOi,TITLF{10),IoENT{io),AOORFSdO),IOENTinnT 

COMMON  /Misc/  “MdO).  PLOT 

JTOUTSBR 

JTOJTSH5 

c* 

COMMON  /mixer/  MlX.ROf  lOOifXDdOOi.Cr.YRdOO) 

JTO'.lTSBb 

JTnjTSB7 

logical  mix 

COMMON  /FL03AL/  MAXlT,SUPR.NlT.PSTn,YDf>*VOC» 

JT0JT8B8 

JTOJTSM9 

* PI  »P2,UCL.  TOL»"PSTRm',cVC 

logical  SllRB.rvC.JPSTRM 

JTO'JTSRO 

.nn'iTsRl 

COMMON  /ACONVG/  YCD{10fl)»PO(100),lNDr{IOO),  choke,'  choked 

logical  choke,  choked 

COMMON  /DFtT/  CLSP(loO) 

common  /STa2/  macH2,TS2,SS2,V2,RH02,dPDX2. . 

REAL  mAcH? 

COMMON  /BCm1X2/  GRADU.TW,mUW.RHOW,pTf.TTE 

JT0JTS92 

JTOjTSRS 

JTOOTS9R 

JT0UTS95_ 

JTOUTS9!> 

tTn'jTS97 

REAL  MUR 

COMMON  /THFRM/  Gmc  1200 ), C-’ (200  ) 

COMMON  /MixPRP/  MA2{ino),v,-2doo),Tr?{ioo),Twcdooi 

JTnuTS9B 

JTO'ITSRR 

JlnUTFOO 
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1 

real  H*2 

JTOUTSOl 

COMKHN  /THRST/  hv(IOo) 

COMMON  /cBnOY/  YCB(1oO),CLSPC8(100)7vC8I  , IICLt 

JT0JTS02 

JTO'JTSOS 

COMMON  /OUTMIX/  NXORiC 

COMMON  /JET3/  STADD,  NV,  STATE 

JTOJTSOa 

JTOIJTS05 

c* 

logical  STADD,3TATF 

JT0UTS06 

JTO'JTSO/ 

DIMENSION  TI(200) 

DIMENSION  1 PI (3) 

JTOUTS06 

JTOJTS09 

dimension  HEAD1(2,2),  PORMJIZ) 

eqdivalencp  (Ti(n,nSTOR(i)) 

JTOUTSIO 

JTOiJTSl  1 

EQUIVAlENCF  (IMIX,  MIX) 

DATA  LPl  (n/18HSliRS0NSUPS0NCH0KE0/ 

JT0LITS12 

JTOjTsl 5 

data  HEaOI ri,l)/2UHpREE  JET  CONPInED  JET/ 

data  ENDjW/p/ 

JTOUTSl 4 
jTO'JTSI  5 

c* 

GO  TO  1 

JTOUTS16 

JTO'JTSl  7 

Entry  jtrhr 

NXTAsNX-1 

JT0UTS18 

JTOUTSIO 

PLOTsO 

ENDJWs.'TRUP. 

JTOUTS20 

JTOUTS21 

1 IP(PlOT,GT.’  0 .OR.  TAPOT)  CALL  jTPILE(2»Dt.lM) 

KMIXs  IM^X*1 

JTOUTS22 
. JTOUTS2J 

DO  6 Lsl.2 

b PORMl  (DsHFADKL.KMlX) 

JTOUTS24 

.1TOUTS25 

DO  7 Lst.NxTA 

IPdNOCCl  ),£Q.O)  INOCfLisLPld) 

JTOUTS2f> 

.tTOLiTS27 

IP(lNOC(L)'EO.n  INDC(L)sLPt(2) 

IfdNOrd  ) -EQ.?)  INDCfLlsLPf  (X) 

JT0UTS28 
. JT0;lT<;29 

7 continue 

TEPMDs.'5*DTAJ 

JTO'JTS30 
. .lTnuT«;3i 

CALL  PMPYCd.TERMO,  YCB,  YCB.NXORIG) 

WRITE  Ib.loO) 

JT0JTS52 
.JTOUTSSS  - 

NSTARTsI 

NLlNFSrNYlA 

JTOJTS34 

JlnuTSlS 

IF(N|  INES.r.T.50)  NLINeSiSO 

NL  = Nt  INES 

JTOUTS56 
..  JI0UTSS7- 

2 WRITF  (S.ltO)  PORMl , IDENT, lOENTl 

3 WRITE  Ih.lPO) 

JTOUT3T8 
.JTOJTS59  _ . 

NENDrNL 

ASSIGN  in  TO  inn 

JTOUTS'iO 
_ _.JTDJTS41  .. 

5 WRITE  (h,2n0)  (L,X(L),6(L),YJ(L),UC(i')»TC(l.), 

* TIC(L),PTC{Ll,TTC(L).YSDNIC(L).wj{Li.L»NSTART.NENO) 

JTnjTS42 

JTOUTS45 

GO  TO  LGO  , (10,20) 

C***  CHECK  POR  AnOITIOHAL  LINES 

C * 

JT0UTS44 

JTnUTS45 

jnjTs4b 

.TTOilTntlT 

— 

10  IP(NXTA.lE.50)  go  TO  20 

NSTARTxnEND*!  . . , 

NENOxNXTa 

JTOJTSaB 

.IT0;jTSU9 

JTOuTSSO 
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UNCLASSIFIED 
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1«- 


IT 


I 


■i— 


1 1- 


i: 


^1 


"-I 


I 


WRITE  (6.100) 

WRITE  (6.1?0') 
ASSIG^J  20_T0 


_ IE  CONEINED  JET  C«SE»  PRINT  CQUEINeO  JET  QIJTRUT 

.20  IF(.N3T.-,MitX)_C3  TQ  2> 

write  (6.100) 

.NST*p_TaJ ^ 

NLI'^ESsNV 

IFCJLlNES.r,  T »50J_  NLI  N£3s50 

NL*NI  INES 

2?  WR  T TF^  J 6t  1 1 0 )_F3RMI.IaE_NT.laE»<Tl 

2.T  WRITE  (6.1«0) 

NEnOsH 


Assir.M  30  TO  Lr,a 

2S  WRITF(6,?0nft)  (_L#XO(L3»RDJl3*TCB(ti»yR(!,>»VCa(l.)» 

• PD(L).lN0r.(L).wV(L)»MA2(L),VE2(L).TF2(L)fL*NST*HT.'NEWa) 
__  _<'«0_Tn LG 0 _(3 0 , 2JJ 

30  I F ( NV . leTSO)  go  TO  21 

NSTARTsMENfttl 

iJENDaNV^^ ^ 

‘ WRITE  (6.100) 

write  (6.lR0)__ 

ASSIGN  21  Th  LGO 

GO  Tn  2S 


IF(.nOT.  EnPJW) 
ENOJOBa.TRUE. 
CALL  ERROJ 


return 


FORMAT  statements 

C* 

too  FORMAT  (INI)  

“llO  F0RMAT(3<»x;a9H*  JET  ANAlTSI'S  PRO  GRA  H 
* «8X.2A6,6Xf  6mMIXINg^/ 

* 30X. lOAh/, JOXilOA6//) 

120  F OR  M * H .3  8 X^S  1 SUMmA  RV  - 8 T A T TOm  OAT  A » JF  T_PROPF  R T I E ! 

*//,UX,lHN,lbx',  IMX,  I3X,  IHB,  1 IX.PHYJ.  l?X.2Hr)C*  

* 1?X,2hTC» 1 1X,3mTIC»7x.3HPTC»SX, 3WTTr,Sx,6MrsnNIC,6X.2Hw.i//) 
200  FORMAT(3x»T3,FI«.’5.Fl3.S.Fiar5.Flsr77Fl«.’7,'lPE15.6.' 

* 0PFO,fc,3Et0.6) 

lao  format (OX, 1 mn,6X,2Hx0.6X,2HR0.7X, 3MYrB,8X,?HV0,')X,3Hyca, 
• RX,2HP0.Sx,OHFLnw,2X.6HTHRUST,6X,3HMA2.5X.3HVr?. 

* 6X,3MTEP//) 

2000  F0RMAT(5X,T3,3F10,0,2fI2;7,FR,0,  1x,Aa,F|  t ,3,E7,'0,F9,3,FB.'2) 

C* 


jFT  properties 


JTO'JTSSI 

JTTJTS52 

jnUTSS3 

JTOUTSSO 

JT0U7SS5_ 

JTOJTSS6 

JTO'JTS'jT.. 

JTOUTS5B 

JTOUTSS9_ 

jroUTS60 

JTQ'JTS6l_ 

J TOUT 56 2 
jTQUTSBS  . 
JTOUTSBO 
JTCI'JTS65_ 
JT0UTS66 

JTr>l)TS67 

JTtniTS68 
_ jtodtsbo 
JTOJTS70  ■ 
JTnuTS71_ 
JTOUTS72 

J70'JTS7^ 

jfOUTS/'O  ■ 

JTOUTS75_ 

JTOJTS76 

JTOUTS77 

JTOJTS73 

JTO'.ITSTO 

jfOUTSBO 

JT0UTSB1_ 

JTnUts'82 

JTOUTSBJL 

jTnUTSBO 
JT nUTsBS 
JTOLlTSfl6 
jrnUTS87_ 
*//,  JTOIITSBB' 
JT0IITSB9_ 
JTOl'TSRO 

* JTOUT89i_ 

JTOUTS92 

jTn'jTS93 

JTOUTSRO 

JTOUTS95 

JTOUTS96 

JTnUTS97_ 

JTnUTSR? 

JTOUTSP? 

JTOUTSOO 


i* 

JTOUTSOl 

c*< 

c* 

**  JTOUTP  entry  i 

JTnUT303 

C* 

C* 

profile  printout 

JTOUTSOR 

JTDUTSOS 

ENTRY  JTOUTP 

JTOUTS06 

PKsPF 

JTOUTS07 

c* 

IF(MIX)  PKbP2 

JTOUTSOB 

.lTnUTS09 

c* 

50  NSTAsNX 

JTOUTSIO 

JTOUTSli 

51  XSTAxX(nX) 

* 

» convert  turbulence  energies  to  intensities 

* 

52  C0Ni  = 3QRf(?,»GCJ»EJET/3.)‘/vjET 

on  S3  L = i»NPn 

53  TI(L)sC3Nl*3t5RT(ED(Ll) 

* _ 

*■  compute  additional  dimensionless  and  DTMENSIONaL  profiles 

* 

UC1=1./UC(NX) 

T HPT  si  .'/fTT0"TEi 

pfPTsI ./(PTJET-PE) 

call  FMpTcn  .TJET.THPf'T.NPPi  ■ 

CALL  SamcPtTiGMC»CP,Rg» l»NPO) 

_ DO  600  Lsl.NPD  

U(L)sVJET*UO(L) 

IFI.NOT.  CMPR3)  GO  TP  bOO 

GAMsr,MC(L) 

CM?s?./((;Am»1  .i 

GMMsgam/(GAM-1 .) 

CPJ=CP.aj 

GCJCPsl ./(GCJoCPJ) 

TOT  (I  )sTfLi*.’5*Ua)*UfLl»GC.ICP»EJFT*Fnfl  i/CP.I 

XMACHd )rUrL)/SORT(GAM*RG*RC*T(L)) 

PTOT(L)sPK*(l.tXMACK(L>**aZGM2_lJLif6HM ^ 

TTDd  )s(tOT(L)-TE)*TMpT 

P.TO(Ll  = (PJaIlLl-PE)-*Pjei 

600  CONTtNUE 

* PT3T,NPDf TTD*NPD»PTD,NP0) 

k 

IFIPLOT.GT^n  JOR.  {XPRN(NX)  .AND,  TAPOT))  CALL  JTFILE 

iFfxpRNi(Nx)  .lt.  o)_Ga  To.iii: 

55  WRITE  (6,300) 

NSTARts  I ; 

NLINESsNPD 

IF(NlINE3.GT.'50)  .NLINESsSO.  ...  

nl«nlines 


JTOUTS12 

JTOUTSli. 

JTOUTSIO 

JTOUT815 

JTnUTSt6 

iimiisjjL 

jToUTSie 

JTOUTS19. 

JTOUTSPO 

JTOLI.TS2L. 

JT0UTS22 

JTniJTS23 

jTnUTS2«l 

JT.DUTS25_ 

JT0UTS26 

JTOUTS27_ 

JT0JTS23 

JTP'JT.Sg9. 

JTOUTS30 

______  J TOUTS  5 L_ 

JTnUTS32 

JTOUTS33_ 

JTnUTS3<t 

JLlOJJ.ai5_ 

JTOUTSTS 

JT0UTS37_ 

JTnuTS38 

JTQUTS39_ 

JTOJTSaO 

JTDJTS^ll.- 

jTnjTsa2 

JTnuTS«3  . 

(1,XSTA)  JTnijTSUO 
JTOUTSRS 
JT0UTS06 

JiaulSfl7_ 

jT'^ijTSdB 
. JTOUTSU9 
JTnuTSSO 


Sb 


WRITf  (6< 
NENO«NL 


5 ! P.)_N  S T *»XStA,PK 


JTflUTSSl 

jTnUTSSZ 


ASSIGN  60  TO  LGOI 

JTOUTS53  _ 

57  WRITE  (6,3?n)  (L»Y(L).PSI(L).UO(U).THO'(L)»TI(L)»TTn(l.).PTb(L)» 

• XMACHfL)»tlTL)fTfL).TnT,l ),pTOTfL).L*NSTART,MEND) 

JT0IJT354 

.inuTsss 

c* 

GO  TO  LGOI  . (60.90) 

JTOJTS56 

JTO'JTS57 

c* 

check  for  AOnITIONAL  PRINT  lInES 

JTOJTS58 

JTOJTS59 



60  IF(Np6.LE.  50)  GO  TO  90 

WRITf  (6,100) 

jnijTSbO 

JTnijTSbl 

WRITF  (6,310)  NSTA.XSTA.PK 
' NRHNsNPD>N| 

JTnuTS62 

JTnjTSbl 

IF(NRMN,GTr50)  CO  TO  65 

NST ARTaNENOAl 

JTOUTSAR 

JT0'JTS65 

NEXT=mi»jO(50,NRHN) 

NL  = N|  ♦next 

JT0UTS66 

.tT.TJTS67 

assign  90  TO  LGOI 

NENOcNL 

JT0JTS68 

JTOJTSbO 

GO  TO  57 

65  NSTApTaNENOAl 

JTO'JTSTO 

JTOUTS71 

NENOsNL A50 

NL*N|  fSO 

JT0UTS72 

TTTJTS75 

c* 

GO  TO  57 

JTOUTS74 

JT1UTS75 

c* 

C* 

c* 

PRINT  CONCENTRATION  PROFiLFS 

90  1F(.N0T.  DTFF)  GO  TO  1111 

JT0'JTS76 

JTOJTS77 

JT^JISTS 

JTr)'.iTS79 

write  (6.300) 

NSTArT*! 

JTOUTS80 

JTnuTSBl 

n'linfssnpo 

IF(Ni  InES.rT.'SO)  NLINrSaSO 

JTOOTseZ 

.rTOUTSfll. 

NU=Nl INES 

ma  WRITF  (6.511)  NSTA,XSTA«PK,CNilMe 

JT0UTS84 

JTOUTSRS 

NENOsNL 

ASSIGN  Il2o_Ta  LGOI 

JTOJTSBb 

JTO'JTSBT 

1113  WRITf  (6,3?1)  (L . Y (L ) , ( *L X (L» LL ) ,LL«i , 1 ?) » I sNST*RT ,NFND) 

GO  To  LGOI  . (11?0#1111) 

JinOTSBa 

JTO'JTSBR 

c* 

1 1 2 0_1  F tN  P 0 J LE^  «;»)  GO  TO  llll 

JTOUTS90 

JTTJTS91 

WRITE  (6.300) 

WRITF  (6.511)  NSTA.XSTA.PK.CNAME 

JT0UTS92 

JT0UTS93 

NRHN*NPO-Nl 

IFINRNN. 07.50)  CD.TQ-lllO ..  .. 

JTONTSRR 

JTQJT595  

NSTARTsNENOtl 

NEXT-NINoIsO.NRMN) 

JTnuTS96 
. JTOJTSRT 

nl*nltnext 

ASSIGN  mi  Ta  lgoi 

JToutsrS 
JTOUTS99..  

NENOsNL 

jinuTsoo 

^ 

- — _ — « — . .. 

. 

GO  TO  11 U 

Ilia  NSTART*NLt50 

NENOsNL  + 50 

NL»NLA50 

GO  TO  llH 

t***************************  format  statements 


S6o  FORMATdMl.SOXf  28H*  jET  ANALYSIS  PROGRAM  *//) 

310  F0RMAT(2(,X.  16HPRnFlLES—  STA  Xb,F10.‘S« 

* 3X,<>HPRFSSiIRE*»F10.«// 

* 22  X,1H»»21X,21H»«  oiMFK'S  IONLESS  

* 2H**, i?X, IRH**  OlMfNSTONAL  **»  9X» IH*/ 

*_2X,lHN,6X;iHV,9X,3Hf»SI,ex,2HJ0»TX.'3HTHn,9X,2HTl,SXy3HTTJ)^8Xj 

* 3HPTD»t»X.«HMACH,8x»  IHU,  IIX,  lHT,9X»3HTOT#7X»«MPTnT//) 

311  F0RMaT(1?X,??HM0LF  fractions--  STA  (713. 6H1 rL*t 

* Flor5,3X»<»HPRESSURE  = ,Fl0.a// 

* ?Xt  1HN,<)X.'1HY.SX,  l3(A6.^xi//i 

320  F0RMAT(1X»T3,F11.S» lPEll.a.OPF9,6,F10.6,lPFl2,5,nPFl0.7# 

FlJ,7,F9.5,3FLl.a»FL0^RJ 

321  F6RHAT(lX»t3,F9,5,l2F<».6) 

I 

111!  RETURN 

ENO 


_ JiOUTSOl 

jr0UTS02 

.'TOUTS03 

JTOUTSOR 
JTOUTSOS 
1*  jTOUTSOfc 

JT0UTS07 

JTOUTSOB 

_ -.JT0UTSQ9 

JTOUTSIO 

J.IOUTS.U 

JTnuTSi2 

JTOUTS13 

.ITOUTsia 

JTOUTS15 

JTOUfsib 
JTOJTSl 7 
JTOUTSIS 

JTOyTSJL? 

JTOUTS20 

_ JIQUT^^l 

JT0UTS22 


r 


CJTSfp'  jFT-'-sbLUTiON  ROUTINE 

SUB«nUTlNE  JTSTEP 

C ************ ********************************** **********  ****** 

c**********************  special  version  fop  spr^TT rj_* i ****** 
c* ***************************************************** *;****** 

LOGlr*!.  IrYCLE 

Integer  Twnj.  itwo 

LLir,ir»L  sijpC.sjJPAfP 

LOGICAL  SUrBON 

IJIG 1 C At  TRnU  al, 

logical  DPRIN 

LOG1CAl_LAST,CORJ5TP,AoOPjENTRy1jJ£R 

logical  EOF  , ERR 

logical  AXl  . XPRN  « CmPRS  « QJET  , TURBJ  , CORE 

RFAL  KCP.M||L.muEPF»MAcH 

L MJPT  , MF  , HuRfF 

COMMON  /PSTART/  NREC » PFSTRT, NRES, hT *PRE 

L0G1CAL_  MTXPRF 

COM'^HN  /MOl  UP  / ALXU(l007i2b,OAir*UMft0.1?),l>TKE(?0O) 
C3MMgN_/oiFEG14 

* NC  . CNAMf(12)  , ALJfia)  . ALJOd?)  »ALFd2i  , SCM(12) 

*_Tr  P RiLCl?_0„HC  PR£i  lli_*_C£jC.LidL2i 

common  /OtCTRL/  GIFF  . CNO(IO) 

LOGICAL„..- OIFF 

COMMON  /HOl ES  / ALX(«00,12) 

. _ COMMON  /MCM0L./.*LeDGE(12)»AL3(l2i . 

COMMON  /JETTwO/ 

* -JM-O 1 PI  AO t.MJETO . TJE.TQ . tf.lPTO  . 

* PTJFTO  . TIJETO  . NJO 

real  mjcto. macho 

common  /hco/  i.io»  eo»  tho 

common  /CTi?L2/ 

* EGGFI  . SFI  , merge  , XMERCE  » YMERGF  * 

»-SLJPEL..«  .SLaPEa-i-CEPlJ . CFPTO 

COMMON  /mEpGFT/  her*  MERSTP  » XNRC 

LOGICAL—TmO.  MEPGL  *.  mER.  ,_MERSTP_ 

COMMON  /SETNEW/  LEGGe,  lcoren 

...  common. /INPl  y ilNTRYX 

COMMON  /MISC/  PM(IO) 

XL2MMa.N_yp.AllAHy 

* ALtPOO)  , RF(200)  , GH(200)  * 

.*  EPS(200)  .'.0L(200).  ... 

* VAR(?00)  . DVAR(200), 

* SMl(200j  NMl  . , 3M(200)  , NH  , 

* DX  , 

»-Bj i Ctl  t D1 i 

* AN  , 3N  » on 

. COMMON  /PARAMl/  ETA(200)  . 

C* 

c******  input  COMMON  


JT3TP001 

JTSTP002 

► ****.JT.MTP003 

►****JTSTPQ04 

►****JT3TP005 

. JTSTPOOfc 

JTSTPOOT 

JTSTP008 

JTSTPOOR 

jtstpolq 

jTSTPOl 1 

JTSTP012 

JT9TP015 

JTBTPOIR 

JTSTP015 

JTSTPOUi 

JTSTP017 

JTSTPOIS^ 

JTSTP019 

- JTSTP020 

JT3TP021 

JTaTP022 

JTSTP025 
JTSTP02tt  _ . 

JTSTP025 

JTSTP028..  

JTSTP02T 

JTSTPtt^a 

>rTSTP029 

JTSTPOJO 

JT.GTPOai 

JTStP0S2^ 

JTSTP033 

JTSTPOaa 

JTGTPOSS 

JTSTP03fc 

JTSTP03r 

JTSTP03B 

JTSTP039 

JTSTP04-Q 

JTSTPOOl 

JTSTPOaa 

JTSTP003 
JTSTPORR  . 
JT3TP005 

JTSTPOaS 

JTSTPOOT 

JTSTPOOS- 

JTSTPOOR 

JTSTP050 


288 


c<* 

COMMON  /INPJET/ 

JT3TP05I 

JT8TP052  . .. 

* DIAJ  , MJET  , TJET-  , PTJET 

* TIJET 

0 

VJET  , 

JTSTP0S3 

JTSTPOSa 

* PE  » VE  , ME  » Tie 

* AXI  . NJ_  . NMAX 

0 

Te 

JTSTPOSS 

JTSTPOSfc 

* XJ(IOO)  * XPRN(lOo)  * 

* cam  » PC  , PR  . PRT 

JTSTP057 

JTSTPOSS  ... 

* SC  , TREE  , MUREF 

^ 

JT8TP0S9 

c* 

• 

JTSTPOfcO 

c******  control  common 
c* 

JTSTPOSl 

JTSTPOS? 

COMMON  /CTRL/ 

* NXTa.  . lC.MPRS_  .i  JIJET  » TURBJ  .. 

0 

COEFdOj  , 

JT8TP0A3 

JTSTP06<L 

* NPU  « NpO  . oxc  . XU  , XDO  f 

* DSTORfSnni 

JTSTPOSS 

JTSTPOSS 

c* 

r ******  profile ^COMMON 

JT8TP0S7 

JTSTPOSS 

C* 

COMMON  /PROF/  PSlJ2_00j.Y(260i»UO(?OOV.THOt200>*£Dr200) 

JTSTP069 

JTSTP070 

c* 

r******  constant  And  error  common 

JT8TP071 

JTSTP0T2 

c* 

COMMON  /CNPRR/  SITS  » FRR  , GC  . CCJ  . FOOT 

JTSTP073 

jtstpoto 

c* 

r******  hOiinoary  condition  pOmmon 

JTSTP075 

JTSTP07S  . 

c* 

COMMON  /RC/  UEOGF  . FEOGE  . THEDGE 

JTSrP077 

JT.RTPOTS 

c* 

C«**' 

***  POTFNTlAl'  CORE  COMMON 

JT8TP079 

jtstposo 

c* 

COMMON  /CORED/  XCORE  * CORE  » CORSTP 

JTSTP08I 

jTMTPoea 

c* 

COMMON  /SUPER/  SUPC.3llPSTP.XSUP 

JTSTPOal 

jtstposo 

c******  SCALFR  (UNITS  conversion)  common 
c* 

JTSTPOSS 

JTSTPOSS 

COMMON  /scalfr/  SP  , SV  , slen 

JTSTP087 

JTSTPOSS  _ 

c******  JET  PROPERTIES  COMMON 

c* 

JTSTP0S9 

JT8TP090 

c* 

COMMON  /JET/ 

* S(IOO)  1 UC(IOO)  , TCdOOj  f TXcdOO)  _« 

* PTC(IOO)  , WjflOO)  . YJ(IOO) 

COMMON  /JETJ/  FLnwj,TTO,NX,EJET 

common  /FRaSE/  YO(?00)»Tt<E<200)*T<?0ft)»OUOY(200) 

- 

JT5TP091 

JTSTP092 

JTSTP093 

JTSTP090  _ 
JTSTP095 

JTSTP09S 

COMMON  /PROPJT/ 

* P ».  PRL  » PRTT  , RGAS  * SCC 

* TREFF  . VSRFF  , mACH  , XLC  , 

* reel  » C . « CHI  , RNQRM  , 

0 

JT3TP097 

JTSTP098  . 

JTSTP099 

JTSTPIOO 

* RHO(200)  , HUL(?00)  , KCP(200> 

• MUEFF(?O0i  , XUN(?00j »_0Kt2003  _ 

C3“MC3M  /XPHIU/  OPHIN 

COMM QM  /fore/  YJETF  » SFgPGE 


_RErURB(200}. 


COM'in'J  /UHfSH/  DUMUl  (a),CXPC»CXTP,NRFO 

c* ^ 

COHHO'i  /hIxER/  MIX,RDD(100),XO(100),CF,VRfl00) 

LOGICAL  _HTX _ 

common  /PLnBAL/  HAXtT,S'UPO,NlT7PSIO»vbo,  VDC» 

5 PLj  'jcl.tol.upstrmJcvs 

lOr.ICAL  3IIPH.C  VG»  UpStRM 

COMMON  /ACONVG/  XCOiloO),PD(|00)»lNOC(lOO).’..  choke',’. 

logical  CHOKE,  CHOKED 

COMMON  /dETT/  ClSP(toO)  _ _ 

COMMON  /STi2/  MACH?,Ts2,SS27v?*PHn?»nPOX2 

REAL  MACH? 

COMMON  /qCMlX2/  GRAOU,Tw,MtlW,RHOW,PTF,TTE 

RFA[.  MUW_ 

COMMON  /THFRm/  GMC(2bo),CP(200) 

COmmon_/cHoDV/_  VCR(l(^0).CJ.SPCB(100„>rYC81_7_UCLl 

COMMON  /OUTMIX/  NXORIG 

common  ./scaled/  SCLD/ALXLIH : 

logical  scld 

c* 

c* 

dimension  liy(200),EU(200)fTHyt200j „ 

dimension  UK(200) 

DiMf  NSJ.O«LJiAHt  

dimension  vuiaoo) 

^EQUlVALE.NCF_(.YUCll*QSli)R(.4ftlii._  

FT.'IVALENCF  (UK(1),DSTCIR(1)) 

FDUIVALENCE 

• (Cl.C0EFn)),(C2.C0EF(?)),(C’  ’ •)),  (Ca,COEF(a)3 

Ci».xaE.f  ■<■&.) .)«(.:  

EQUIVAlENCF  (CR.COEFIR)) 

XOUIVALENCF-CITMO,  IWQO 

DATA  NAM/1hY,PHSM,5HXlN,?HIID,?H£G.  »HTH0/ 

_* DATA  EHTRYi/T/ 


ASSIGN  16.  TO  LOOP  

IFIENTRYt  .AND.’  (RE  STrT  , EG  . B I TS)  ) COrSTpb, FALSE  . 
5 IF(EnTRYI)  OXsAMINl  (CxPC<*B(NRE8),  ,5*DXCj  . . 

IF(RFSTRT  ^EQ.  BITS)  GO  TO  S5?6 

5126  IF(0xC.‘EO.O.)  GO  TO  5327 

IF(,N3T,  CORSTP)  DXsAMlNl  (OX,  . ,5*0xci - 

5327  CONTINUE 

IF(,NOT....rNTRVl)  CO  TO  9 _ . ... 


choked 


JTSTPlOl 
JT8TP102_. 
JTSTP105 
_.JT.SIP.1A9_. 
JTSTP105 
jTSTPlOfc  _ 
JTSTP107 
JTSTP108_ 
.JTSTP109 

_ JTSTPllO 

JTSTPlll 
JTSTP112_ 
JT3TP115 
JTSTPlia__ 
JT.STP115 
__JTSTPLLfc_ 
JTSTP117 
JT3TP11B_ 
JTSTPl 19 
JTSTP120_ 
JTSTP121 
-_JTSTP122_ 
JTSTP123 
JTSTPIZU  — 
JTSTP125 
jTSTP12k 
JTSTP127 
-JTSTP-Ua — 
JTSTP129 

- JTSTP130 

JTSTP131 
JTSTP132 — 
JTSTP135 

_JTSlP4-5a 

JTSTP135 
JT3TP13S  - 
JTSTP137 
JTSTPlSa..  - 
JTSTP139 
.-JTSTPiaa.-. 
jTSTPlfll 
jTSTPlflE  — 
JTSTPlfl3 
JTSTPlOO 
JTSTP105 

- JTSTPlOIi 

JTSTP107 

JTSTPIUS 

JT3TP1«9 

JTSTP150 


C*----rENTRY  l*-lNmALIZE  FQR_L-5I_S1:E£. 

C*  . . * 


ICYCl Es.FAi  3E, 

_ TMOJslTWrj*! 

CAiL  ‘invE(s,psi,SM,NPu. i,psi,smi,hpu7i.uo»uu,npu,i 

*.  EO»E.I»NPU.l) 

otff)  Go  To  rooo 

01  

call  MOVFd  »ALX(1 ,L)#ALXU(1,L).NPU.I> 

7001  Cn*JTtNUE  

7000  NHaNPU 

NMIbnPU  

ECsFDd) 

THCBTHOn)  , 

TFf.^^T.  lIlRBJ)  CALL  9FTM(?,EC.E0»P0ft,EiJ,?00) 

. . ..IFt.N'JI,  0JETJ,CALL_S£IK12.IHC*  IHO*2oO*IHU*20flJ 

F.PSlsO. 

IF(AXl).EPai«Li 

4_L  A S T s 

AODPs.FAlSF, 

_ _ IF(RFSTRI.NE._BITS)_Ga-TQ_<» 

COHSIPS.FAI  SE, 

SUPSTPs.FA|'9E,  _ _ 

MtPSTPe.FAi  SE, 

NRFjGii : 

SUn'SnNs.TRIlE, 

t F ( M j E T , G F )_9U B SON*  tF_A LS E. 

6 XbXU 

LCORFNbI  

LEDCFbo 

!L*  LU_  S F TxcwcliALfgQOi 

CALL  M0VF{1,Y,YU»NPU»1) 

* _ _ 

A TNCRF*iFNT 'sTfP  cnUNTER#  X-STaTTON  »ETC^ 

A .RCTURM  for  NFXI  STFP_IS_ha0E_I0_T_HI8_PoINI,^ 

A 

8 NSTPsNSTP.tj 

9 XsXfOX 

;* 

•A  IF  COA*jnULAR  PROHLFm#  SAVE  UO.THO 

: A _ . , 

TF(,N'JT,  TWO)  GO  TO  9966 

u sy  0 s 'j  0 

THSVOsTHO 

9966  IF  (Mix)  Call  AlTERKXfDX)  

NHALFsO 

IF(RESTRT,hE.BITS)  GO  To  10  . . 


'.'THD'.’THU.NPD,!  , 


JTSTI»151 
JTSTP152_  _ 
JT9TP1S5 

-JTSTPliR 

JT9TP15S 

JT3TP156 

JTSTPlSr 

JT3TP159 

JT9TP1S9 

.JT3TP16Q 

JTSTP161 
JT3TP162 
JT9TP165 
JTSTPUR  __ 
JT3TP165 

-JJ9IPJj66 

JTStP16T 

JT3TP168 

JTSTP169 

. JTSTPITO 

JTSTPlTl 

-JTSIP112 

JT3TP175 

JT3TPi7Q 

JT3TP175 

JT3TP178 

JT9TP177 

-JTSTPll# 

JT5TP179 

JTSTP180  

JT5TP181 

JT9TP182 

JTSTPlSJ 

-JT.STP1.89 

JT3TP185 
JT3TP188  . _ 
JT3TP187 
JTSTP188 
JTSTP189 

-JT3TP190 

JTSTP191 

JT3TP192 

JT9TP195 

JT3TP1R<I 

JT9TP195 

.JT3TP196 

JTSTP197 

JtStPIRB 

JT9TP199 

JT3TP200 


c*_ 

IFCEkJTRYl  .OR.'  ICYClF)  GO  TO  20 

JT3TP201 

.IT9TPP02 

c* 

IF  1-3T  3TFP  PROPERTY  CALCULATION  IS  BYPASSED 

JTSTP205 

c* 

JTSTPROa 

10  CALL  FMPYCM.C6»Y,Y0»NPU) 

CALL  FMPvCf l.EJET.EO.TKF.NPyi 

JTSTP205 

— . JT3TP20fc  . 

.C*_ 

CALL  FMPYCM  .TJET.TH0,T,NPU) 

JT3TP207 

JTSTP208 

c* 

c* 

ca'l'l  Scale  th  compute  width  of  mixin’c  fonfisT 

ANn  REFFRFNCf  SCALES  fOR  TURRUI  ENCF 

JTSTP209 

JTSTP210 

c* 

12  IF(  SCLO  ) GO  TO  13 

JTSTP211 

JTSTP212 

CALL  SC4LEaiU,TWOJ»NREG,X) 

GO  TOJ5„  ._.  _ . , 

JTSTP213 

tlSTPPia 

c* 

13  CALL  SCALErALXU(l,NC),TWnj,NREG»X) 

JTSTP21S 

JTSTPPlfc 

c* 

c* 

COMPUTF  PRQPFRTIES 

JTSTP217 

.ITSTP21S 

IS  CALL  PROPJY  TWOJ.TURrJ.NRFG.'Xo  YO.T.TKf,  l.NPU) 

CALL  GAMCP(T.GMC.CP.Rr.»l.NPlli 

JTSTP219 
JTSTP220  - - 

GO  TO  LOOP.  (IS.lOOli 

JTSTP221 

c* 

.IT8TP?22 

c* 

ado  mesh  point  TO  downstream  STATION  IF  AOOP.T,* 

JTSTP225 

c*_ 

jTSTPppa 

U IFI.NOI.AOnP)  CO  TO  18 

17  CALL  PADDtSM.NPO.NREGS 

jTSTP225 
JTSTP22b 

aodps.fal'Sf-, 

18  NMsNpD 

JTSTP227 

ITRTpppS 

c* 

_C* ASSURE  THAT  tIPSTRFAM  PSi  T3  FiR  F VQUCIl^nUI 

jTSTPaao 

ITSTPPTO 

C* 

TFfSHlfNPU^,F0’SM<NP0)i  RO  TO  20 

JTSTP231 

jTST2?3? 

r* 

SMI (NPUtl )e3H(NP0) 

JTSTP233 

ITQTPPXQ 

C* 

C*- 

EXTRAPOLATE  APPROXIMATE  Y 

1 TNFAR  FXTRAPOI  atton 

JT3TP23S 

,?T3TP236 

C* 

NPlICMPlUt 

JTSTP237 

JTSTPPXR 

NMl  BPUPU 

JTSTP239 

—DID PSlsiyXuPiJ  YJ-MRUsaj-i/ < 3mU NPU^  t ) ySM  I f JJPUi 

r(igPu)BrfNpij-i)*ovopST*(3Mi(NPU)-3MifNPg»i)) 

— UU(NPU)sUUf!4PU-L) 


aj)- 


THIi(WPll)  = THlJ(NPU-l) 

F.U(NP'J)»FUrMPU-l) 

T(NPU)sTJEt*THU(*JPU) 
JKEif J R Ui  S E J£J  A EUiiilfiUX. 


Y0(NPU)«C6»V(NPg) 

IPC.NJT,  DtFF)  CO  in  7002  

DO  700S  l,sj,kJc 

7003  ALXUfNPU.LlsiLXUrNPU-l.ti  


JTSTPZaO- 

JTSTP201 
jT.STP2a2- 
JTSTP2a3 
jTSTP2aa 
JTSTP2aS 
— jTSTPaa^ 
jTSTP2a7 
JTSTPPaS 
JT3TP2aO 
JTSTP250 


292 


f 


700?  CAI.U  PR3PJfTW0J.TURBJ.NPFC.X.Y0»T,TKF,NPU,NPU) 
CALL  GAMCP(T»GMC.CP.RGtNPUjNP.Ul 

C* 

C*«**  Sni,UTIQN  np  MnMFNTUH  EQUATtnu 

C* 

. 20  .CALL.MOVECijUU.VlR,.NMi,u 

C* 

__  C* temporarily  ^ave  current  Jf  VALUES_OM_1tERAJJON__ 


TP ( {...NQT.-lClCLeD CAi  i'  ynVE f 1^  Y» YU. MPU*  11 

CALL  SFTM(i,i,,EPS,MPy) 

CAIL  SeTm(i,cI.AL.NPU^ , 

CA|  L SETm(?,0,.Cm.NPU,Ol»NPU) 

FNTHyIs.FALSF..,  

IFtRFSTRT.NE.fliTS)  RpSTRT.BlTS 


, IFf.NOT.  OPRIN)  GO  TO  IN 

WRITF  (6,9<S80)  NSTP.X.OX 

flfcBO  FnRMAT(//6X,5HSTFP=, la.3X,2HXa, iPElfe^B. JX,3HbX«,Elfc,8//) 

_ WKITF  (6,8#,Hn  YJETF,SFEnGr,EOr.ET;SFt 

■868'rFyRMAT(8x,#,HYJFTF=.  1 Pp  1 8 .'s  , 6X  , THSPeOcrFa » FI  6 . 8/, 

» 8X,^HFDr.FT8.E1  8.e»8X,7H8FI  s»El8.8//r  

CALL  TAHPMT(NAM(1),Y»MPU.10»0) 

CALL  TA8PRT£NAM(?),SM,NPO,10»oi 

CALL  TA5ORt<NAM(3),XLN»NP0» 10*0) 

: 19  DO  21  LsZiMPg 

HAO«l, 

l£-L«Xlj-R*Q«=Y(L)*«2 . 

TF(MTX)GM(i  )s-C7*nP0’<?/(HH(UL)«UU(L)S 

23_8E (L j smueFfIL1*KH0(L) »UU(Li«HAP 

IF(,nOT.  TliRBJ)  HE(L)=MUL(L)*RH3(L)*IIU(LMRA0 

21  CONTTNUE  

BF(1)sO, 

IF(.N3T.  AXI)  BE(l)  = MuFFF(noRHO(lio||UC>) 

C* 

_ C*  BOUNOARY  CnNDlTiONS 

c* 

BlaO.; 


Clt=l, 


ANal 

.bn=o:. 


22  OMsUEOr.E 

IF(,N0T,Mlx)_  CO.TO  2R  . _ 


C* 

r* a*C^fnR--CQ.1F,lNElL-KLy£R 

C* 

IFfUPSTRM)  GO  TO  20 
ANsO  J 

ONaORAOU  1.. 


JT8TP251 

JTSTP2S2  

JTSTP253 

_ilSTP25<t 

JTSTP2S5 

JTSTP256 

JTSTP2S7 

_JTSTP2N8 

JT9TP259 

_jT3Tp280 

JTSTP2S1 

_ JTSTP282 

JTSTP283 

_ JTSTP26a 

JT8TP265 

_JlSlP2t4 

JTSTP287 
JTSTP2fcB 

jTSTP2fc9 
JTSTP270  ____ 
JT3TP271 

__sJTSTP272 

JTSTP273 

JTBTP270  

JTSTP275 

JTSTP278  

JTSTP277 

__JT3TP.2JJ 

JTSTP279 

_ JT3TP2B0 

JTSTPpBl 

JT3TP282 

JTSTP283 

_JTSrP28? 

JTSTP28S 

JTSTP286 

JTSTP287 

JTSTP288  

JTSTP289 

.JTSTP2R0  

JTSTP2R1 

JTSTP2Q2 

JT3TP291 

JTSTP290 

JTSTP295 

_JTSTP2'>8 

JTSTP297 

JTSTP29B 

JTSTP299 

JTSTP300 


a:ki 


d 
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C* 

20  C*LL  DFEn(0.0,0,IER) 

IF(lFR)  no  TO  

C* 

25  C*LL  Mnvr(?,V*Re.lip,SPD/l»0yAR,.(>yf)X.‘NpD4l) 

IFCUFPCtrEO.O.  .AND.  U0(l).GT.'l,  . ANf).  ( . NOT  . SCLO)  ) I 
_C* 

c* 



c*  values  of  UO  within  UD<l)aUCLl»  SET  Tn  UCLI 

c*  

un.isuod) 

CLUSIJCLUI  .Er6 

CLL«UCLl-l .E-6 

100  ^ n till  i;s'i.NM . 

IFlunlL)  .r.F.CLL  .AND.  U0(L)  .LE.CLU^  UO(L)eUCLl 
__i  1 1 1 continue  

00  1|12  Lst»Npu 

IIK(L)syOF(SWl  (L)#3M,Uo,l,Nf;oi 

DllDVa)svOF(SHl  (L)»SM,0VAR,1,NP0> 

111?  continue 

IF(OpPIN)  call  TAHPPT(NAM(0),U0  »npo7io#o) 

,c* 

c* 

CA  TEST  >n?~ TURHULENT“^68LeH 

C* 

28  IFI.NOT,  TUHBJ)  CO  To  7010 

.CA : ^ 

c****  solution  nr  tke  equation 

.CA 

So  NMIsNPU 

CilLL  HQVFd.FU.VAR.NPlI.n 

on  St  l»?»npu  « 

RA0*1, 

IFfAXl)  SAoeYIL)**? 

Rn  = PHO(L)*|iK{L)  . 

BE(L)»MUl.'(l  )*r)K{L)ARO*RAO 

QUOJ!  3 Q s ? 00  tlLl  a DUO  TLOj 

GM(i.>sc?*WHL(L)A<NUEFF{L)/HUL(L)-l.)iRO*OUDYSQ*RAO 

lF(Rp,E0.'0.  .OR.  U0(L).’lF.-.00S>  Gn  iOSJ 

OLTLlA-CSAfAHUI (L) A0K(L)/{R0AXi N{l>axlM(L)) 

CO  TO  31  . 

3S  OL(L)«0. 

GMXLlFJLt : 

31  CONTINUE 

BEdiso, : 

IFI.NOT,  A*h  BEd)AHuLd  i*OK{l)ARHOdi*UOd^ 


UDd)«l. 


JTSTP301 
JTSTPS02- 
JTSTP303 
_JTSTP3QJL 
JTSTPS05 
JTSTP306_ 
JTSTP307 
JT3TPS08.. 
JTSTP300 
_ JT3TP3L0_ 
JTSTPSll 
JTSTP312_ 
JTSTP313 
JTSTPSIO- 
JTSTPSIS 
_JT3TPJlL<i_ 
JTSTPSIT 
JTSTP316_ 
JT&TP319 
JTSTP320_ 
JTSTP321 
_JTSTPJS22_ 
JTSTPS23 
JTSTP328- 
JTSTP325 
JTSTP328 
JTSTP327 
_JJSTP-3aa_ 
JTSTP329 
. JTSTP330_ 
JTSTP331 
JTSTP332- 
JTSTP333 
_jTSTP3itt- 
JTSTP335 
JTSTP338- 
JTSTP337 
JTSTP338 
JTSTP339 
-JTSTPSaO- 
JTSTP301 
JTSTP3a2- 
JTSTP303 
JTSTPSOO 
JTSTPiaS 
__jT3TP30i8_ 
JTSTPSRI 
JTSTPSaB 
JTSTP309 
JTSTPS50 


ANal  ’ 

BNaO;  _ 

5?  DNsEF.DGE 

irf.KOT.  MTX)  CO  TQ  sq. 


JTSTP351 

JTSTP352- 

JTSTP353 
J.tSTP35.‘L 


IFtUPSTRM) 

*N=0’  

DNoO. 

__ 


GO  TO  3tt 


C* 


_5a_C  * L L JJ  PIP.  (n, 0,0, TEW) 


lE(lFR)  GO  To  999 

C*  ~SC*N  FOR  POSSIBLE  NEGiffvFT  AT~HT  E 0 G F . U E 0 C E ■ 0 ) 

.C* ..  

IFtUFOCE.MF.O. ) GO  TO  3S 
D CLJ  3.11_4^=J^np4_ 


IF(V4R(L),t  T.O.)  GO  To  3392 

3391  continue  

GO  Tn  35 

339?  LKsL-1 

LLSL 

SLnPF8(VAROPD)>VAR(LK))/fS>l(RPD)»3MELKll. 


NPOls^PO-l 
00  3393  L=IL»NP01_. 


. 339  3 V*R(L)sVARfL-l)*SLOPE*(SM(L)-SM(L-l)> 

35  CALL  ^^.ovf(77var»f6^rpo»i) 

£4 1. L '^nv^(?,r)V4R,nTKE.Rpn.  i^BE.PSTnRrsoiitNPUil) 


IF(Op«IS)  CAUL  TABPRT (NAM(5) .EO  *NPD,10,0) 
c*  t'eST“^r‘  SPEC  I eT^^oT 

c* 


7010  IF(.MOT.niFF)  GO  TO  5o 

SALL-JFjjHiZji  O.tGMfNPU.OL.NPU) 


JTSTP355 

jT3TP35fr 

JT3TP357 

JTSTP358_ 

JT3TP359 

JTSTP38Q_ 

JTSTP361 

JTSTP362 

JT3TP363 

JTSTP36a. 

JTSTP365 

J.T5TJ>364_ 

JT3TP367 

JT$TP3<>3 

JT3TP369 

JTSTP370_ 

JTSTP371 

JT5TP3Zi. 

JTSTP3T3 

JT8TP379. 

JTSTP375 

JTSTP376 

JTSTP377 

J-tSJPJJia. 

JTSTP379 

JT3TP380_ 

JTSTP381 

JT3TP3B2 

JTSTP383 
iIs5TP_3«flL 


C» 

C*  SOLVE  SPFCTES  FOUaTIOnS//_AIR  HOLE . FRAtTJDN_ 
C*  COMPlITFD  3Y  nIFFERFNCHICOMPONENT  1) 

7020  DO  7500  LL“2»NC 




CAl L HOVFd  »ALXU(1»LL)*VAR,NPU.I) 

DO  7100  L=2*NPU  

RAOsi , 

TF(Avn  RAO«Y(L)**2  

RD3RH0(Li*(jK(L) 

.BEajs-JEE. 


7100  Gm(L)=0. 

PE (11=0. 

IF  (.NOT.  A XT)  BE(  1 )»MUFFF(n*RHO(l  )*Un(l)/SrH(LI.) 

C* 


JTSTP385 
JTSTP386_ 
JTSTP387 
_ JTSTP368  . 
JT3TP389 

JTSTP39Q_ 

JTSTP391 

__JTSTP392 

JTSTP393 

JTSTP39a 

JTSTP395 

JTSTP390  . 

JTSTP397 

JTSTP39e 

JT3TP399 

JTSTPaOO 
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C*  BOUNDiRY  CHNnlTlijNS 

C* 

ANal. 



7t02  DMz&I.EOGrO  L) 

_ c* : 

7110  CALL  DFEO(l»0,0.TERi 

I F ( I E B)_50_Tn_R 99 

C* 

C*  HOVE  NFW  MflLF  FRACTI09S.'F.Te«»f NTERP.  UPiATRM  DALVU 

00  7|1^  L»1»NPU  , 

JF(  VAR(i  ) ,LT.'o.  ) VAr(l)*0. 

_ 7115  OALXU(L,l,Ll=Yr|F(SMl(Li»SM,DVAR_tl,NPDi 

CALL  HovEd »vap,aLx(1,'ll)»np6,i) 

c* 

7500  CONTTRUE 

c*  COMPUtE'^AlR  mole  fraction  and  u^strea^  ^^vTfiW 

c*. 

00  7749  L*1»NP0 

*LX(Lfl?«ir  , 

OALX(J(L«  1 )aO. 

DO  77b0_  LLs^aNQ 

ALX(l#l)sA(  X(L.l)-*LXfL,LLi 

DA(.X(J(l,1)sOALXU(L»1)-OALXU(L.LL) 

7750  CONTINUE 

7749-CQNTTNiiE 

C* 

1F.(,n3T,DPR1NJ_GO  -Itt-SO 

DO  509?  i'lsI.NC 

rALL_TABPRl(CNAME(LL).‘ALX(i,LLi»NPb^iO*oi 

5093  CONTINUE 

C* lEST.  FnH-MF/LT-  THANSFFR-EFFF.CJa 

C* 

t* 

50  IF(,NOT,  Q,tET)  go  to  6559 

_ ..C****  . SOLUlLaN_nF_ENERGY._EoUAtlON 

C* 

51  -hLHl-ShtBU 

CAIL  SFTMd  ,0,.OL»NpU,Gm,NPuS 
_ _ IF  (,NOT,TURBJJ-CO -TO-SO. 

C* 

’c*  - - 

c*  COMPUTE  0(0TkE/0Y)/0Y 

CA 

c*  COMPUTE  TERMS  ENTERING  INTO  SOURCE 

C* 

00  52  L«1#NPU— 


JT3TP901 
JTSTPaOZ 
JTSTP905 
JTS  TP-9.0  9 
JT3TP005 


JT3TP006 

JT3TP907 

.JT3TP90d 

JTSTP909 

_JTSTPO10 

JT3TP911 

JTSTPfllZ 

JTSTP013 

JTSTP9t9 

JT3TP915 

-JLSTP.9LL6 

JTSTP917 

JT8TP91S 

JT3TP919 

JTSTP920. 

JTSTP921 

-JTSTPfl22 

JTSTP925 

JT3TP92a 

JTSTP925 

JTSTP926 

JT3TP9P7 

-j.rsiPa2a 

JTSTP929 

JTSTP930- 

JT3TP9JI 

JTSTP932- 

JTSTP933 

-JTSTP039 


JT3TP935 
. - JTSTP036 
JTSTP037 
JTSTP038 
.lTSTPa39 
JTS.TP090 


JTSTP901 

J73TP902 

JT3TP993 

JT3TP949 

JTSTP995 

JISTP996 

JT3TP007 

JTSTP948 

JTSTP999 

JTSTP950 


BE(L)sC5*D»TnR(i.4600)*YOFtSMl(L)»SM»f>TKE.r»NP0) 

52  CONTINUE  

NPMSNPU*! 


5«  DO  55  L»2t-N&U 

57  RADBl. 

IF(*xn  RADBYtLi**2 

R0sRM3(Ll*nK(j.) 

^IU.BALfL)/CP(jJ 

ftr(L)=KCP(l  J*CP(L1*RD»RaO 

pilDYSO=DLlOY(L).*OtJDY(Li 

GM(Li=r.NfLY/CPfLWCa*RO*RAO*MUEFF(|,')*oUpYSO/CPlLi 

_*  -(YOFiSMWLl.SM.EO.l.NPOJ-EUlLJj/COXACPfLj  jAEJEI/fjEl 

58  1F(.NDT,  DtFFI  fiO  TO  55 

FXA  ( I ) = TJET*CNDm*MUFFFfL^*RP*RAf>/Cpf|  UaUMCPPfi  \ 

55  continue 

BE  ( n *0  . , 

1F(,N0T.  Axn  8f  (lisKCP«’ll*CP(l)*RHn(l)*UKfl) 


CALL  YOVFlt^THU.VAR.NpU,!) 

PNaTHE OCF 

IFf.NDT.Mlx)  GO  TO  56 


> B.c,  For  confined  mixer 

• * _ _ 

‘IF(UPSTRm)  cb”Tb"  56 

*N^.(L^ 

BNsl. 

ONaO^ 

56  call  0FE(3(0/0,0fIER) 

. IF(IFR)  go  Tn_999_ 

IF(DIFF)  CALL  SETH ( t , o ETA , 200) 

L* 

IFIUFOr.E  .nE.  0.)  GO  TO  60 

DO  689|  L*1»NEQ 

TF(VAR(L) ,LT.  0.)  GO  TO  6692 

6691  COnTTN'IE  

GO  TO  .0 

-6692.XK«_Ls.I 

LL  = L 

SLOPF3(VARfNPo).VAR(LK))/(SN(NPD)»SMrLR)J 

NPDlaNPD'l 
DO  669^  La)'L*NPDl 

6695  VARd  )3VARfL-ntSLOPE*(SM(L)-SM(L-l)> 

_ 60  CALL.  H 0 V EU/J^-IN 5^ N^ P 

TF(DP«IN)  CALL  TADPRT (NAH(6)»THDfNPD,l0,0) 


coannul  AR  PROBLEM—  IF  .’NOT,  MERGE,  COMPUTE  UO 


JTSTPaSl 
JTSTPUSZ 
JT3TP055 
-J.TSTPaSfl- 
JTSTP055 
JTSTPRSO. 
JTSTPflST 
JTSTP05B. 
jTSrP«S9 
_JT3TPfl6(L 
JTSTP061 
. jTSTPa62_ 
JTSTP«6J 
JTSTP06R. 
JTSTP065 
_JT.31PA66_ 
JTSTP467 
JTSTPt|68. 
JTSTP«69 
. JTSTPaTO. 
JTSTPOTI 
-JJSTiL0i2_ 
JTSTPaTS 
jTSTPara 
JTSTP07S 
JTSTP076 
JTSTP077 
_JTSTPOLB_ 
JTSTP079 
.JTSTP080_ 
JTSTPOei 
JTSTP082 
JTSTP0B5 

.UTSTPUaX 

JTSTPOB5 

JTSTP086 

JTSTP087 

JTSTP088 

JT3TP089 

JTSTP090_ 

jT3TPa91 

JTSTP092 

JTSTPa93 

JTSTPOPq 

JT3TPa95 

_JTSTP096_ 

JTSTPa97 

JTSTP09B 

JTSTPa99 

JTSTP500 
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c* 

_ 6S5«  TF(,N3T,‘  TWO)  CO  TQ-^sSj, . 

IF('lF'»r,t.OR.  (.NOT.  MIX))  CO  TO  6S5S 

IFCxrwr.g)  r.o  TO  hSSS 

llOeSO‘(T(USVO**2»iaa.*GC*RG*T  JET*THSV0*(P2-P1)/P|) 

655S  CONTj^NUC ^ 

c* 



c* 

c* 

C*  locate  edge  of  JFT—  AoO  POTwT  IF  nFCpSSaRV 

B6~C  all  T^OGITxTyjETE  » SrfoCE  . ADOP  ) 

c* 

87  CONTTNUE 

c* 

c*  conftnfd  mixfr-check  for  convergence 

C * _O^JPRE5SUi>E_I  TERATION 

C* 

c* 

IF(,NOT,mTX)  go  to  80 

CALL  AlTF;ap 

IF(AnOP  .and.  (.not.  IIPSTRM))  AOO^MLSET 

!KFr=^)  rfturn : -.i 

IF(CVG)  GO  TO  80 

NMtCMPU  , 

CALL  ‘*nVE(t.YU.y»NPUM) 

TCYCI  Ec.TRtlEr 

IF(,nOT.  TWO)  GO  TO  9<)66 

c* 

C*  RESTORE  ON  ITERATION 

C,*L_ 

UflsUSVO 

THOsIHaVO 

GO  TO  9966 

C»  IF  UFSTRHsF,  3FT  SM(NH)e  PSIO  FOR  CONFtNFD  MIXER 
__  C*._NQ  J«ESM_E2INl5_KlLL_BE_  JkD0ED  AFTER. IHlS-POlMT _ 

C* 

80  IF_(MIX..rAND.’  (.NOT.  UPSTRM U S-NI.NldxRaii) 

C* 

__  C*  MOVE. DOWNSTREAM- CO-ORDlNAIEa-TQ-UPSTUEAH-IABLE - 

C* 

C*  . . . . 

CALL  MOVF(i»SM,SHl,NM,l) 

ICYCLEa.FAI  3E. 

C* 

C*  TWO-  JET  LOGIC  TO  TEST.FOR  INTERACTION  OF  INNER  AND  OUTER  JETS 

C* 

IFd.NOTr  TWO)  ,'OR..  (.NOT,’  MERGE)  .OR.’  MFRSTP)  GO  TO  776 


JTSTP501 
JTSTP502 
JTSTP503 
_ JTSTP50.R 
JTSTPSOS 
jTSTPSOk 
JTSTPS07 
jTSTPSOft 
JT8TP509 
_ JTSTP51Q 
JTSTPSII 
JTSTPSU 
JTSTPS13 
JTSTPSia 
JTSTP515 


JTSTPSir 
JTSTP518 
JTSTP519 
. JTSTP520 
JTSTP52! 

^TSTPS22 

JTSTPS23 

JTSTP52IL 

JTSTPS25 

JTSTP526 

JTSTPS27 

JTSTP52jBL, 

JT3TP529 
_ JTSTP530 
JTSTP531 
JTSTP532 
JTSTPS33 

JTSTPSia 

JTSTPS35 

JTSTP516 

JT3TPS37 

JTSTPS3B 

JTSTP539 

JTSTPSaO 

JTSTPSai 
JTSTP5<I2. 
JTSTP5<I3 
JTSTPSaa 
JTSTPS45 
_ JTSTPSaA 
JTSTPS47 
. JTSTPSUB 
JTSTPS09 
JTSTPS50 


_c* jeTs..HAyii:.HERGfi 

c* 

MFRs.TPUr. 

merstp«,true. 

J(MRr.BXMER(»F 

GO  TO  102 


r»  TEST  FOR  PtSiPPEiRiNCF  OF  SUPFRSn»<tf 
C* 

__JJJ>  IFfSUflSDN)  Gn  TO  777 

TCLbTJFT*ThO(1) 

VcLryjET*Uf)(l) 

vsnur  e sorT(gmc(1)*gc*rg*tcl) 
irtvcL.SE.vsoNr.)  go  to  jji 

c* 

_c* SUpERSovtC  CnRF  HAS  JUST  OIS«ppE<REC 

C*. 

SUPCs.TRUEI^, 

supstp»,triie7 

r* 

C*  FLAG  NOK  SUBSOMIC  JET 

e* . 

SUBSn^)*,TRUE. 

XSIJPsX  

60  TO  102 


£*  _**  SFQIIEfjCE  nF  TESTS  FOR  DISAPPEARAmCE  QF  THt 
C*  **  PflTFNTlAL  CORF  OR  THp  LAST  STEP 

777  IFCLAST)  GO  TO  220 

IF(  SCuD  ) GO  TO  778 

I F (_iL5i 2 i.FQ.uocsn  Go  TO  sta 

GO  TO  779 

. _778.  TF(  ALX(t,NCi»l.E.'ALXLlM_3_Ga.JD_5l.O 

779  IF(  CORSTP  ) GO  TO  3l0 

C*  _ ..  

C*  CORE  Has  just  disappeared 

, 

CORES, TRUE. 

. lOl  CORSTP*. TRUE., 

HREGb2 

. XLC'X  

XCCIRF«X 


GO  To  500 


13  SUPERSONI 


C*  TEST  For  DISAPPEARANCE  oF  CORE 


JTSTP55I 
. JTSTP552- 
JTSTP555 
jTSTPSSa 
JTSTP555 
JTSTPS56_ 
JTSTP557 
_JTSTP558_ 
JTSTP559 
_JTSTP5fc0_ 
JTSTP561 
JTSTP562. 
JTSTP563 
JTSTPSfcO 
JTSTP565 
_JJ.3TP5^ 
JTSTP587 
JTSTP568 
JTSTP569 
JTSTP570 
JTSTPS7I 
_JTSTP572_ 
JTSTP573 
JTSTP57a_ 
JTSTP575 
JTSTP576 
JTSTP577 
JTSTPSIS. 
JTSTP579 
JTSTPS80_ 
JTSTP581 
JTSTP5ft2 
JTSTP583 
_JTSTP5B4_ 
JTSTP58S 
JTSTp58fc_ 
JTSTP587 
JTSTP588 
JTSTP589 
.JTSTPS9IL. 
JTSTP591 
JTSTP592_ 
JTSTP593 
JTSTP59a 
JTSTP595 
.J.TSTP595_ 
JTSTP597 
JTSTPS98 
JTSTP599 
JTSTP600 


J 


c* 

?20_L*ST«,FAl8f,  

1F(  SClO  ) oh  TO  2211 

TF((l)0f2).rQ.U0(:^))  .OR,  CQRST2)  CO  TO  SOO 

GO  TO  101 

_ c* 

C*  CORE  H*S  JUST  DISaPP'CaReO-SET  CORSTP.tJ 

c* ^ __  

220  IF{  ALX(1,NC),LE.ALXLiM  .OR.  CORSTP  T GO  TO  SOO 
GO  TO  101 

C* 

, 

C*  TEST  FOR  NO.  OF  MESH  POINTS. GT.NM 

. ’ 3Co“IFTnp^GT.  NMAX)  CALL^MSHCUfrNREcTSMTN^I 

c* 

c*  adjust  x-step  size 

C*._ • 

320  call  XSIZEfOX.X.REFL»NREG#LAST) 

call  otest 

IF(ERR)  GO  TO  500 

t* 

call  H0VF(S>U0*UU#NM1.1.E0*CU«NM1.|»TH0.THU»NM1«1  ) 
NPU*NMl , 

IF(,n3T,01FF)  go  to  8 

- DO  7700  LLel.NC...  , 

CALL  ‘'OVFd  ,ALX(1  ,LL)»ALXU(1,LL)»NMI.!) 

7700  CONTINUE 

GO  TO  8 

C* 

c*  ERROR  RETURN 

C* ^ 

999  ERRS. TRUE. 

C* 

SOO  CONTINUE 

NPUPNMl ^ 

1000  CALL  MnVF(a,UO.Ull,NMl.l,EO»EU>Ml.l,THO,THU»NMl,l, 

»-3Ml,PSl.NMl,JlJ 

IFt.NOT.OlFF)  GO  TO  7700 

QO-7JLla-LL*l«NC 

CALL  MOVF(1,ALX(l,LL).ALXU(l,LL)»NMirii 

7750. CONTINUE.  

7790  ASSIGN  looi  TO  LOOP 

GO  TO  10  . 


NPP#  V 


JT3TP601 

JTSTP602 

JTSTP605 

JTSIPfcO.8 

JTSTP605 

JTSTPbOO  _ 

JTSTP607 

JTSTP608 

JTSTR609 

JTSTP6LD 

JTSTP611 

JTSTP612 

JTSTP613 

_ JTSTP610__ 

JTSTP615 

J T S I?i)  LO 

JTSTP617 

. ._JTSTP618 

JTSTP619 

JT3TP620_ 

JTSTP621 

JTSTP622 

JTSTP625 

JTSTPbZa.^ 

JTSTP625 
JTSTP620  _ 
JTSTP627 

JlStP62fl 

JTSTPfc29 

JTSTP630 

JTSTPfc3I 

- JTSTP632 

JTSTPS35 

JTSTP^Jfl 

JTSTP635 

JTSTP63k — 

JTSTP637 

- JTSTP63B — 

JTSTP639 

JTSTPfcflO 

JTSTPoai 

JTSTPfcOZ  

JTSTPOaS 
JTSTP640  - 
JTSTPfcOS 

JTSTPkttk 

JTSTP6«7 

JTSTP648 
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^aipCK DATA 

C0MM0l^/PSEQ^^HQC,HuM,C02AlR»HAIR,FS»FUEt.HW 

REAL  ■ HAIR 

common  /COIREM/  VTOL* VO.OYOX.CTRMAX 

eTrH^ffSr7cXlNEr7^IHE,oriME,NTSTtP,OBFT»XMOLHOrCRC,igREAC» 

*  RCl(<)),»C?.(i)^CJ(JOiTBE(55),RC_ON(S>jTK,ENlRYl 

jrOCrcAL  CRCfEMTRYl 

COMMON  /KlNlNS/  XmWUn.XmWC>TCONST,COnCR»XNOI 
- LOGICAL  TCONST.CONER 

COMMON  /CC0C02/  CORaTEjXCOI 

■■■cuGic/fr ftn^TTE 

D AT  A'“M 0 C',  H U m7C 0 2 A I R M aTr72 77oT7VW6iT26T^if^ 

DATA  yTOL.CIRMAx/S.E-’IMOO,/ 

• OaTA'XMDlwo/0377777777777/ 

DATA  CRC,NrEAC/F,5/ 

Data  tcd n St » c 3 n er,xnoi/f,  t»o,/ 
data  coratf/t/ 

DATA  RC 1 / 1 .E* iR , 3, B5<) ir+ 11,5, Sl ti5,eTiSE*|B»  1 ,EMS‘, 77E.VV5, 

* 2*6,E4l2»2t3E+l3/ 

DATA  «C2/-t,;. 1 095,0,, -1.22, 5*0,/ 

DATA  HC  3/0. •, -10599., -2760., 0,,-! 300., a»0./ 

0*TA  TRIa?^  , 0 77T*  '47571 8.,  0,5, 8,,  3, fa,  17,5,5,35*1,,  2*1,,  5.,  2*2,, 

^ 32, 5, 2, ,7,^,2#,!, ,2,/ ^ 

DATA  NTSTfcP,OBET/  I0,,0l  / 


KEBLOKOt 

KEBtOK02 

KEBLOK03 

keblokoo 

KEBLOKOS 

KEBLOKOb 

KbBtOK07 

KEBLOKO8 

KEBLOK09 

KEBLOKIO_ 

KEBLOKU 

_KEHL0K12_ 

KEBLOklS 

KEBLOKla_ 

keblokis 

KEBLOKlb 

KEBLOK17‘ 

KEBLOKIS 

KE0L0K19 

KEBLOK2_q_ 

KEBLOK21 

KEBL0K22_ 

KCBL0K23 

_KEBl.nK20_ 

KLBLOK2i> 

KtBLOK26_ 

KE8L0k27 

KEBLOK28 

KE8LOK29 


3UBK0UTI>jE  KrNET(P>K»FOAi» Of? 


(X*(()(»l.«aFTAO)*EXP{Y)-(x-l,»BETAO)n/ 

A ((X*l,*BETAO)<iEXP(YM(X-l>BETAO))  ' 

LOGirAL  RATECO 
“TDGTcTL  MOLIN 

COMMON  /CBITS  / B1T3»BLANK  _ _ „ _ 

— COMMON  /PSf.O  ■/■"F  OA.BETA'i  TP,  X ( 1 ,6HOOMrt,  TpO,  BE'0»  XMWT»HNEQ' 
equivalence  (X1,X(1]),  (X2,X  (?)),(  X3,x  (3)),  (X<i,X(4)), 

* (XS,X(S)),(X6,X(6)),(X7,X(7)),(XB,X(B)), 

* (X4,X(9)),(X10,X(tO)),(X|l,X(ll)) 

COMMON  /pRoPH  / PR»HMH,TR»FCR»RHOR,'RP,WhwTR 

COMMQN  /CMJJKT^  TIMEOTlME,NT3TEP,OtlFT»XMOLMO,CRC,MBEAC,_ 

* ■ RC1(9),RC2(9),RC3(<));tBE(11,S),RC0N(S), 

* tk,entRyi 

■ tOGrcAL  crc,entryi  ‘ 

EQUIVALENCE  (Rk1»RCON(1) ), (Rk2»HC0N(?)), (Rk3,RCON(3))» 

* (RK<l,RCaN(9)),  rRKb,RCON(*»)) 

COMMON  /KININS/  XMWUN,XMWc,TCOMST,cOnER,XNOI 
LOGICAL"  ■ ■ ■ TCONSr,CONER  ■ 

logical  first,  last 

common  VcOiRF.H/  'YTOlToU^S) 

COMMON  /CPPINT/  PDUm(20) 

COMMON  /inm'Olf/  xiNdal 
COMMON  /cRaTE  / rate 

COMMON  /GHSC  7 FF(25),HZT25),SR(2‘i),P.PZ(25'),bCPR(25T 
common  /CEQKIN/  RK,  AlK»OF.LHNO,OEN,XHwEO,XND,XCn 
common "/CCOCn2/  CORATe»XCOI 

_L  0^  I CAL CDRaJE 

COMMON  /THOURL/  FHR.ErRmAJ, INERR,PRErR 
logical  FRR.ErRMAJ, INERR»PREpR 

COMMON  /psyax'  / HQC,HUM,C02AlR,MAIR",ES,rUELMW 
REAL  MAIR 

common  /cPsT.n?/  $pm7Spmu,spmc" 

COMMON  /QPHETA/  betaop 

0 OUd lTTFr t c is' ION  BETAqP 

COMMON  /Snm'I  / AlSp(iSO),  WmTC(75) 

COMMON  /COl  IMT7  XCOl’Ih' ’ 

DIMENSION  av(8) 

dimension  XSAV(12)  '■  

“data  C2/. 01603286/ 

DATA  ho/1, 98596/ 

namelist  /a/  ERl,ERSAV»BEtA,BETS',ENTRYI,”lK,TlMF.,  ■' 

* DTlME,TP,XMWl,XMNT,XNHC,XMlilliN,X,Al,RATE,XMrtFO,XND 

* ,DMQDM4,OELM,HHR,RcOn,BETAO,9K,XmwEd,DELHn3  ,CPM 

* ,BEO,TEO 

* , O'V 7f  P I , HM.MMl  ,ERRT,BeTAOP 


lOOt 
KINETOOZ 
KINET003' 
KINETOOa 
KINETOOS” 

kinetoos 

'KlNET'Oor 

KINET008_ 

KlNET0b9 

KInETOIO_ 

KlNEToii 

KINET012 

kinetoiT' 

KiNETOlO 

KInETOIS 

KINET016_ 

KINET017 

kInetoib 

■kINET019 

K1NET020_ 

KINET021 

KINET022 

KIN£T023 

KlNET02a 

'kiNETo'ar 

KINET026 

KINET027 

KINET028 

KINET029' 

KINET03.0_ 

KlNEtOJl 

KInET032_ 

KINET033 

K1NET039_ 

KINET035 

K1NET036 

KINET037 

kInET038_ 

KINET039 

KINETOOO 

kinetori  ■ 

KlNETOa^ 

KlNETOOi 

KiNETOOfl 

KINET04S 

KiNETOaS 

KlNEtOp/ 

KINET098_ 

klNET099 

KINETOSO 


**heactidns** 


H 

♦ OH 

♦ M 

s 

M20AM 

H 

♦ H 

♦ N 

• 

H?  ♦H 

H 

♦0 

♦ H 

c 

OH  AH 

0 

♦ 0 

♦ K 

a 

02  ♦H 

H 

♦ 02 

♦‘1 

H02AH 

H 

♦ H02 

a 

OH  *01 

OH  ♦M02 

0 tHOZ 

H ♦H02' 


B H29A02 

a Ph_A02 

a H2  »02 


Iadd  s~0 

IF(  COnER  .’and.  (.NOT.EnTRYI)  ) Go  Tp  20 
IF(  .not:enthyi  ) go"to  1 “ 

FUELMMs  l2.'01«l,008*HaC 
FS  = FLiri.HH/(l,*,25*HOC)*,2Wa9S/MAlR 

I FOA  « FOAl 

~rRT  a FOA/fS 

HH  a H 

IF(  ERSAV.Ei.O.  ) GO  TO  12 
“A 0 J u 3 T~B £ f A~c 0 M PO S rffON SHf cTR "aOITEO  AfR 


F2  a FOAl 

FBI  a FIAI.AFUHOM) 

FB2  s F2/(l,*F2»HUM) 

'DEL  ' a F81/F82-1, 

XHSAV  a XMWl 

“ffRMw  a OtL*(  1 ./MAiRfHUH/KMTCCbll/dJfHuM) 
XMWl  : (1>PEL)/(1./XMSAV»TERMW) 

TfcR'IWla  XHw1/(1,*OEL) 


Xtl 

s 

X<i 

s 

X6 

X 

X8 

X 

•X9 

X 

XIO 

X 

TEHIFIs  Ue|./(1,*HUH) 

TERiPSa  XMwr/(XH3AVi1[l  ,fOEL)) 

CALL  FMPYC(1,TERMP.2,X,X,  J) 

Ts  a fERMP2*X5 

X7  a TER'1P2_*X7 

XI 1 = ■TtR*<P2*Xll 

a TtRMWl*(X<l/X'1SAV»TERMPl*,209jj95/MAIR) 

X6  a TERMtKlaCXb/XHSAVfTFRMPiaHUH/WMTClb)) 

_X8 ^TE<L'’Wl±(X8/X'lSAVtJFR^‘’HC02AlR/MA|R) 

X9  a tER'1Wl*(X9/XM3A'v*TEHMPl»,780«Rl/MAIR) 

XIO  a TER'<Wl*(X10/XHSAV«rERHPl*C.009624>C32AlR}/MAIRi_ 

THOLFSa  0, 

DO  5 Ial,ll  

TMOLESa  THOLES+Xd) 

_RA03^  a 1. /tholes 

CALL  FHPVC(1»Ra60M»X»X»12) 

XNO  a X(ll) 


KlNETOSl 

KINCT052 

KlNETOSS 

KINET05«_ 

K1NET055 

KlNETj036_ 

K1NET057 
_ K1NET058 
K1NET059 

K1NET060_ 

KINET061 

^KlNET0fc2_ 

K1NET063 

KINET064 

KINET065 

K1RET066 

KligET067 

KIigET068 

KINET069 

KINET070_ 

KINET071 

KINET072_ 

K1NET073 

KINETOTR 

K1NET075 

KINET076  _ 

K1NET077 

KINET078_ 

K1NET079 

MNET080 

KINET081 

u_8INET082__ 

KINET083 
__  K1NET08«_ 

~ KINET085 
KIN E T08b 
K1NET087 

KINET088__ 

KINET089 

KlNET090_ 

KINET091 

KJ[NET092_ 

K1NET093 

KINET094_ 

K1NET095 

KINET096 

K1NET097 

kIneT099_ 

KINET099 

.KINET100_. 


000000  i ('ll  oooo 


XCO  « X7 
UOp «JL 


IF  FIRSt'ENfRY—  initialize  cONPOSlTinNS  XMOLHO 

12  IF(  .NOfTtNlRYl  ) GO  TO  20 

DHOOMwa_TOO, 

XNO  “ a XNOl 

XCO  _»_XCni 

TImT  « 0, 

F R 8*V  ■ 0,  

MOL  IN  a .False, 

_CALL  SElM(l,0,,X,in 

Xll  3 XN0l*X3“ 

X7  S XCnl*X5 

1F(  XMaLWO.NE.BlTS  ) GO  TO  IS 

JL  IN  = .TRUE, 

XMOlwO*  0, 

DO  13  Kel»l2 

13  XMOLwOs  XMOLWO  + XINIK)  *WMf(ron 

XNO  s XlN(ll) 

XCO  3 XIM(7)  ” 

CALL  MOVF(l,XlNyX,l?»l) 

Ts“call  fokin(  r,hh, .False,  ) 

BETA  3 (l.'/XMOLWO-l,/J(MWyNjAOEN 

0ETAO  3 beta 

16  BFTAOPs  BETA  

IFImOlIN)  fiO  TO  17 

X7  e XCq 

Xll  s XNO 

CALL  pseo2(Foa,hum,hoc»tp» BE taop, corate,. True, »X) 

GO  to  18 

17  CALL  M0VE(lfXIN,X,12,l) 

18  XNO  * Xll 

xcn  D X7 

XmwT — cTHoL^rS 

XMWT  3 XMOLWO 

RMO  3 i«a,*XMMT»P/fT5«,32ATPy 

IF(  TCONST  ) HNEOsBITs 
ENTRYla  .False", 
return 


Integrate  rate  equations  over  given  ttre  step 


ESTIMATE  number  OF  TIME  STEPS  AT  ERl 

IFT fT^TSTFP.'EQ.O  ) GO  TO  291 
DTJME  8 0T/F10AT(NTSTEP). 


KiNETlOl 

KINET102 

KINET103 

KlNETloa 

kinetics 
KlNET.lP6_ 
kinetic  7 
kinetics 
kinetic? 

KInET11C_ 

KINETiiI 

kineT112_ 

KlNETl 13 

KINETlia 

KINET115 

KINET116 

KINET117 

K1NET118 

K1NET119 

KINET12C_ 

KINETiZl 

K1NET122 

K1NET125' 

K1NET124 

KINET125 

K1NET126 

KINET127 

KINET12S 

K1nET129 

KINET130_ 

'kinetisi 

K I net  13^ 

KlNETr33' 

KINET134 

KINET13S" 

KINET136 

KlNETl3r 

KINET138 

KINET139 

KINET14C 

KINETIRI" 

KInET142_ 

KINET143 

KiNETiaq 

kinetics 

kinetics 

KINET1C7 

KINET1r9_ 

kinetic? 

KlNETlSO 


1 


IF'C  Bk.EO.O,  ) IKal  KiNETlSl 

GO  TO  225  KINET152 

291  IF(  BETA.Cf.l,  ) eO"To''22'2  * KINETlSJ 

■ IF(  BK.NE.o,  ) CO  TO  21 KINET154 

■ IK  s 0 ' ■ K1NET155 

AS S 1 G^i  201  TO  LCO. !LIN 

ftcTTo  24  KINET157 

^1  OTIMAXa  DBET/AI KINET158  

"IK  a i ■ ■ ■ KINET1S9 

_fiO  TO  222  K1NET160  

21  assign  22  TO  LGO  KINETlsf 

GO  TO  24 Kl NET  1 62 

22  DTlNrx=  0BrT/(Al*(l.-flETAi**2«6K)  Kl NET  163 

222  DTnF  3 aNiNK  OT/OTlMAX  ) KINET164 

223T1ME2  s TIHEVOT*  KINET165 

aSSIG^  32  TO  tGO KlNETl6b 

last  a .'False.  kineti67 

TIME  = TImE^DTIME  KINET168 

rTTTT M eTITt . TIME2  ) GO  TO  241  K I ii E T 1 6 9 

LAST  s .True,  K1NET170  

241  CALL' MOVEtV,X,XS>V. 12,1)  KINETlTl 

IF(  TC0N3T  ) GO  TO  245  ' K1NET172  

CALL  EGKINT  P/HH.VTALSf,  ) klNETl73 

^X C OLIHs  X7 K INET174 

ftnn  3 l4<l.3XHNl*P/(l5a5,32ATP)  klNETlTS 

IF<  FWl  ,LT.'PDUM(6).ANp.EPl.GE.PDUH(5)  ) WRITE  (6>A)'> K1NET176_ 

RATECOx  CORATE  K1NET177 

245  CALL  MOVE(t,XSAV.X#l2,l) _KlNETl7» 

1F(  CJNER  ) GO  TO  24  KINET179 

heta  = ( i;/x>iwi-i./xhwun)*den ; K I N£HAa 

IK  BETA.Gt.BEQ  ) BETasBEO  KINETISI 

IF(  TP.GE.TEQ  ) TPxTEq KINEIlS? 

BETaO  X BETA  KINET185 

IF(.IAOO.EO,0_)_G_0LJO  _2_4 KINFT1B4 

C KINET185 

C*  recalculate  P8EUOO»EQUILIBHIUH  AFTER  nILUTlON  K 1NFT186 

C klNETlST 

^BETAOPsSETA KINEI188 

OV(l)  X 0,  KINET189 

TP1„.  X ^P KINET190 

XJP  X .OOSxTP  KINET191 

24i>l  CALL  PSEOatFUA, MUM, HQr.tTPi.RETADP,RATFCO.. TRUE. ,X) .KINETI.92 

HHl  3 6,  KINET193 

. .00.  2«52.  Kxt,U KINET194 

2452  HHl  X HHi*X(K)*HZ(K)  KINETl95 

HHl  X RO*TPl*HHl/XMli)|  ....  KINET196  

EHRT  X hH.HHI  K1NET197 

CALk_O.I.R  TPXtlRRLt  X.  iPjjm K I N E T.19  8 

IF(  OV(l),r.f  ,80,  ) wRiTe  (6,36)  TP,TPI,ERHT,HH,HM1,X  KINETi99 

1F{  OV(1),nE.O..)  go  TO  2451  . KINET200  


O O AJ  4J  i O AJ  U I OU  ;U  4J  O 


fP  = TPl KINET20I 

lADD  ■ 0 V KINET202 

KINET205 

_ _ _ KIneT20« 

IF' CORATEaT,  INTEGRATE'  CO  RAtE'EQUATtON  ''  KINET20S 

KINET206 

2a  IF(  .NOT.RATECO  ) GO  TO  2^60  KrNET20T 

_ XCOSAVa  X7 KINET209 

CALL  C0C02b'(  P.O'tIhE  ) KInET209 

_ _ XCO  ^X7 KINET210 

DXCO  * XCn-XcOSAV  KlNET2tl 

Xfa  a Xb»0XCn KINET212 

X3  a X3-0XC0  KINET213* 

KINET214 

CALCUiTTE  full  equilibrium  WITH  fixed  C0»N0  KINET215 

KINET219 

CALt  MOVE(r»X,XSAV, 12,  1)  ' ' KINET217 

CALL  EQk1N(  P,HH,  .true,  ) kInET21B 

C'ALL  M0VE''(t,XSAv,X,  l2,l)  klNET2i9 

2460  IF(ERl.Lt,P0U>i(6) ,AN0.ER1.GE.P00M(5>S  WRITE  (6, A)  KINET220 

IF(  BETA.EQ.HEO  ) GO  TO  40  - --  --  KINET221 

TK  a TP/1.8  K1NET222 

HHOCGSa  C2*RH0  “ KINET223 

2S  call  HATCOnIP)  K1NET224 

TO^RTT'E  r'V]<HDc;GS»*2/  XMVil»»3*(RKl*X!*X5»RK2*Xl*a2»RK5*Xl*X2  KrNET225' 

» ♦RK4*X2*»?+KK5*Xi*X4)  KINET226 

1F(  RATE, to, 0,  ) GO  To  TS  K1NET227 

_ Al  a RATE/((l,/XMWi-|,/XMWC)?*2*DFNj K1NET22B 

IFrnK.NE.O,  ) GO  TU  31  ‘ " '*  - — — - K1NET229 

IF(  IK.EQ.O  ) GO  To  3ol KInET23^ 

kI'neT251 

LIMITING  BETA  AS  RK  GOeS  TO  0 KINET232 

BETA  a ■ 1 , - ( t , S 3F T A 0 ) / (T,  ♦ ( I , -BET A 0 ) a A t aOTl hE7  ' KINET233 

GO  TO  33  KINET234 

T\  AA  ' X 30RT(8K/AiT  KINET235 

AAA  a 2,»30RT(BK*A1 ) KINET236 

*************  MOOS  ^OR  Te3T  DECK  *a*A*********************************KINET'23'7- 
31  AA  a t,.BEO  KINET23B 

AAA  a 2,*30RT<(Ai*AA)»*2)  " K1NET239' 

C*  ************************  ***«***^*_^******_****************************KINET240 

301  GU  To  LGO  * (22,32,201)  ' ' KINET241 

3?  AAA  a AAA*nTlMF  KINET242 

BETa  i“i,-CHEMTAA,  AAa>  KINET24'3 

33  XmwI  a 1 ,/(HETA/0En+1 ,/XmWUN)  KINET244 

1F(  BETA.GE.HEU  ) BCTAsBEQ  ' - - KINET245' 

IF(  BETA.tO.HEO  ) XMWTaXMWEO  _ KINET246 

HETAO  a beta  ---  --  --  - KINET247 

IF(  TCONST  ) GO  TO  40 K I NET  24  8 

C KlNET24'r 

C „ _ _ _ KINET250 


1 


I 


t 


A 
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MPERATUKE 


betaopb  beta 

OV(l)  « 0. 

TPl  ■»  TP 
XJP  a .Ol^TP 


I.HQc.TP1»BETA0P»RATEC0#,THUE.»X) 


HHl  s 0, 

00  35  K = r,ll 

35  HHl  r HH1*X(K)*HZ(K) 

HHl  a aO*Tpl»'HHr/XHwT 
EHRT  e HH-HHl 

^cXCTTi  R F mTT PTTPTHTrxj  P , o v ) 

IF(  OVdl.r.E.aO.  ) HRITE  (6,36)  Tp,  Tpl  , ERRT,  HH,  HHl , X _ 
36 'F0RHAT(/2X, JRHKIHET  T I TERATlON  ' TP, TP  1 , ERRT , HH, HhI , X/ 
* lX,5E16.8/lX,6E16.fl/lX,6E16.8) 

1F(  OV(1),nE:o.  ) GO  TO  3« 

TP  a TPl 

'40  XNO  3 XI 1 

XMWl  'a  XHwt 

RHO I * XHHT«  ^(_1_^«J  .32aTP) 

PREDICT  tT  EHQ  OF  TiHE  STEP 

idl  XNOSAva  XNO 

“ CALL  NoxaBrpToTTHEixNF ) 

A 0 J U S T H 3 L E 'F  R A C T 1 0 nT  > 0 R ~N  0 - -“N^/TfOMsTN  OT~¥sli’C)' 

OXNO  a XNn«XN03AV 

X<4  a X4.,S*0XN0 

X9  s XR-.5«0XN0 

XlT  = XNO 

R9  IF(  last  ) GO  TO  100 

TIME  = TIME+DTIME 

IF(  TIME ; LT.T1HE2  ) GO  TO  ?0 

last  X 7true, 

TIME  a AM|N1  (_TlME^TlME^2_i 

GO  TO  24 

I 00  EH3AV_a_ERJ 

TIME  a TImE2 

REJURN 

END 


KINET2S1 

KINET252 

KINET253 

KINET254 

KINET25S 

_KI_NET256 

KINET25/ 

KINET2S8 

KINET2S9 

KINET260_ 

"KINET261 

KINET262 

KINET263 

KImET264 

KINET265 

K1NET266 

K1NET267 

KlHET26a 

K1NET269 

KINET270 

KINET271 

KINET272 

KINET275 

KlHET27q 

KINET275 

KINET276 

KINET277 

KIHET278 

KINIET279 

_JUNEJ2e.P_ 

K1NET2B1 

_KINET282 

KINET283 

KINET284 

KINET285 

_KIN.E12fl>_ 

KINET287 

_KINET288. 

KINET289 

KINET290_ 

KINET291 

_K1NET292. 

KINET293 


KT'JPP READ  IMPIIT  DATA  AND  TNlTTALt/E _ 

SPFCTAL  VERSION  - GE-AEG 

^1? Vns  «»  MQDTFTCATtnNS  FOR  GCKP-1  

subroutine  kt'np 

i N p ij T~c A N~ b7  a ccFpTeo  in  ~i  i i i Ti f e rnaT~ (FmPDn i f s»  (jT  f p s unit sT 

(l)  SI  UNITS 

T H E_ _F n Lt  OWING  UNITS  aRF  USED  INTERNALI'y 

*“0I3TANCF  ch  • 

* AREA  CH*«? * _ 

* M4SS  FLOW  Rate  gm/sec  r 

* PRESSURF_  ATN 

* TTBF  SEC  * 

* VFlOCTTy Cm/sEC * 

* DENSITY  GM/CC  * 

* Temperature oeg  k * 

* * concentration  HOLEln/MASS  * 

iNTEPN*L^CO»RFSPONOlENFE  “ 

» nVAP  - D EPFNnENT  VARTaRLF * 

« IVA9  - fNOFPFNOENT  variable  * 

Ay  A R r _ A s s I s N E o_  y 4 ra.ajil.  e * 

the  FOLI  Owing  LflGTCAL  TAPE  UNITS  ARE  REOulRf^D 

* LTHm  (ut  . FOR  thermodynamic  OaT*  * 

* lDAT  (a%)  - FOR  TE mPhRARY  storage  of  DATa  cards  * 

* 01  - FOR  optional  binary  output  Fit e * 

L0G.TC_AL  TaPf  unit  assignments  are  SPErlFTED  IN  »namhlk»  

OU 0 l_E_.  ^R E r I S 1 0 N_0 S P ».0J,P P^  1S?_NH » 0 A i 'Sp 

Lnr- icAi,  ALi  Ml .roNc^DBur.Q.E)  ih.fvstfpTexchr.’holfe.hmhg 

LOGICAL  rOMBlIS.RMOCON, shock,  ICON 

logical.  NEWPRT.NEXT,aRlEE 

R E A L_M 0 3 T , J y A R M , H W , Ni L.SUB n,_m LX 5 w , E W 

HI  “Pn  S10N_is  S (P  R tljic  XIB  Liojj  c A 1 B cn  POj  A PR  T >1 T c 5 0 i , thmC  ( t;  2 j 

DIMENSION  sP(?.a) ,DSP(«) ,SPP(?, S),D3pP(3I ,aPNM(?,?7),05PNM(27) 
dimension  SPT(?),LMT(tti,SUBS(aT,C(?5>,CX(ai 
dimension  CUA(?),FUA(2),SUA(2),CUPl(?),CUP?(?);FUPf2i ,SUP(2) 
dimension  HFAD(IO)  

COM^jO-'IZLJUS/LIH.MU-CULI 

COMMnN/OPTs/VERSI.TlMrV, VERSA,ARFAV,rLl“,Tr.ON,RHncnN,IPRCOD 
CO“MnN/cONn/nVAR.AREA,MOOT,P,lVAR,V,RHO,T,SIGMA(?si  ,LS.’L3P1,NEXT 
COMMON/RFAc/I  SR(a,  J0),XX(  loi.RATf  (^OY  ,LKEOf  ID)  .DI  KFOdn)  ,MM(10)  ,L 
CO“MON/RRAT/'A(lO),N(lO),EACT(3O>,0(lft),M(25,3O),  Ah'mI 
C0MMnN/AFUN/CN(a),lTPsZ,LSUttM,ETA,O,VlSC»BFTA 


KiNPPOOl 

KINPPOOZ’ 

KINPPQOS 

KINPP004 

KINPP005_ 

KINPPOOS 

KINPP007_ 

KINPPOOS 

KlNPPQOR 

KINPPOlO 

KINPPOJ  J 

KINPPOt? 

KINPP013_ 

KiNPPOia 

KINPPOlS 

KiNPPoia 

KINPP017._ 

KINPP018 

KINPPOIR  J 

KINPP020 

_KINPP02J_ 
KINP'P0?2 
KINPP0P3.. 
KINPPOPU 
KINPP025 
KINPP026 
wl NPP0P7 
KINPPOPS 
KINPPO?'^ 
KINPP030 
KINPP031 
KINPPfllt 
KINPP033 
KINPP034 
KINPP035__ 
KINPPOlS 

KInppo37._ 
KINPPO30 
_KINPP019_ 
K INPPOUO 
KlNPPOal  . 
KINPP0O2 
KlNPPOal 

K iNPPOUa 

_KlNPPQa5„ 

KINPPOOS 

KlNPPoa7 

RkINPPOOS 
KlMPPOOR  , 
KINPPQSO 
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COMMON/SPEr/SNAMf  ?,  ^oi  ,MW(?';i,W(25),3TniC(?5,'30),OMER*i2S,'^o3  KInPPOSJ 

CnMMnN/StMT/HMT^J.Ml  ,Hm,HNP1  .HM4X,NH,*VH,EMAX,'ERRN,'.lCV,KOttNT*FRRP  X1NPP052 

rp  M M n ^)  / T r or/Tc(  i.?,?  s),ti.  n w 4_tm  |o  , tmI kI_n£  Ei)5  3_ 

CnMMnv/PPlM/PRI'JTfSO),Np,CENO,EVSTFP  Kl^JPPOS'l 

CO*^‘»n'J/XVS»/XTB(«0),»TB(«0).N  T . X U , A 0i2)_#‘.C  X C X 2j.CX '{  , C Xj). KlNPPOSS 

'CO“MnN/XVSA/BRrEF.TlHLMT  Kli^PPOSS 

COMMriM/S'JMw/OAl  SPfTSI.  Almw(75  j _ KINPP057 

Ca«MnvJ/<nUT/TITLr(?O).U*JTTT;i)‘JTTn.|;OMc.EXCHR,DELH(Xo3,FPS,Sl7bBUGOKlNPPOS0 

C n N_/ r,  H s r/r.RT  (2S1  .H  rT(2S).3  R(2si  .Cpa(2S7  ,'dCPB(2b\ iJ  yppOSR 

CnMMriN(/PO«F/PKr28),0<f281,RKr2S),E72R)  KINPPO6O 

CnMHnN/SKIP/N£r,L(2S),Tl,T2.|T _ _ K1NPP061 

cOMMn'g/MFcr/RR.8lxHw, m2, Gamma, TCPrTR  K1nPP0A2 

CC'“Mnvj/MlSr/TT,PP,CPRn,HPO,FNg.SUMM»F!gNL,‘LLM7(15).ABO(lS) XlMPPOAS 

CnHMnN/TNOX/TP.HP,MLM,N3,’lOUCOMVG,’KMAT,TMAT  KiMPPOfcO 

C nMMn>j  / L 3LRSV  / LSS tf,  I R S V KIMP P.Q.6l5_ 

COMiriM  /riNSAV/  HMlM2,HMAX7,HIMT2,FMAXZ,PRll^TZf50),NPRNT?*  KiMPPOfcfc 

• EVSTP7*OBUGnZ  _KlNPP067 

rnr.irAL  fvstpz.orugoz  kinppo68 

COMMO^J  /STrTHL/  OUMSTfg)  .FTRSTCyOUMSTl  tt2) KIMPP06R„ 

LOGICAL  FIRSTC  KIMPP070 

e KlNPPJlll- 

FQt)IVA(  EmCF  fC»STGMA),  (SPNM,OSPMH),(f»SP,SP7,fDSPP,SPP),(SPT,SP)  KINPP072 

FQUIVAuEnCF  (SPVM,SNAH(l,aj),  (FF.FM7SP^JMa»26)7..£PLAfJKASPNMCl,■^7))  KINPPOZIi 


FOUlVALENCF  (rX3,CX), (CENO,ENO) 


KI»JPP07ll 

K1‘JPP07S 

K1MPP0T6 


DATA  CH»FU.3H/?HCm»2HfT,2hm  / K1MPP0T6 

_PAI«  ■ CuA/.^HCHAJ>.,  1 H2/  J FUA/AHFT  aAa  lM2/.73UA./flhMAA2.,-lH  / KLMPP-OZJL 

GATA  CUPl /«HMHHG, 1H  /,CUP?/3HATH, IH  /, FUP/UHI B/F * «hT**2/ , SUP/«MS/8K I NPPO 70 

.KINPP079- 

OATA  nF<<, Change, RFPE*T/3MNEW,aHCHAN»aHREPE/  KlNPPOBO 

_OATA  TAPENn,nAR9S/34EN0,AHCAR0/__ KINPPOBI- 

data  HEAn(l)/60H  GCKP»1  input  **AA*  K1NPPO02 

J I ] lUNPP-aasL- 

KINPPO04 

__NAMEi  IST/PROB/HM1NaM‘1aX,hINT,EHAX,.  AiLHI  ,Ei’lM,CONc7EXGHR,' XlNPPoaS-^ 

« IPRCOG*  TTpSZ,  XTH,ATR,NTn,  C X 3 , CX2,  rx  1 , CXO , LSUBM  , ET  A , D ,' V I SC » RET  * K 1 NPP086 


I end, 0ELP._ PRINT, NPRnTS,APRINT»_EVStEP, DBUCQ,- 
COMRU3, SHnCK»TC0N»RHnC0N,RRlEF»7lMLMT 


THERMODYNAMIC- BATA.  MUL-BE  INPUT-FROM  SLnCK-OATA  -81  KTH-- 

ACIION.k.NfX 

GO  To  a 

entry  rinp 

next  s .FAI  3E, - - - 


KINPPORT 

KiNPPoe0 

KlNpPOftl- 

kinpporo 
KINPPORI 
K1NPP0R2 
K1NPP095- 
KlNPPQOa 
-KINPPOOS- 
KlNPP' 90 
KlNPFs97 
K1NPPO90 
KTNPP099 
KINPPIOO 


( 

I 


I 

I 


1 

I 


c 

TF  (ACffnN  ,NE.'  NEW)  GO  TO 
3FT  standard  options 

9 

0 COMC  S .TRUE.’ 
fxchr  s .false. 

COMDUS  s .FALSF,’ 

SHOCK  3 >ALSFr 

TCOH  3 .FAI.SE. 

RHOCnv  s .FA|  SF. 

ELTM  s .'false.' 

FVSTFP  s .FALSP. 

OBUGo  a .'False.' 

FMAX  3 o'OOOl 

- 

TTPSZ  3 S 

ALLHl  8 .VaLSeT 

C 

C 

M(T,J)  SET  TN  -BLkROA 

C 

BRTEFa;FALSEr 

C 

TlMLMTaaS, 

C 

INITI ALTZF 
next  a .FAi’SE.' 

_ C 

HTNT  a 0. 

NLM  SpT  TN  -BLKEi  * 

C 

c 

NS  SFT  IN  -RLKEL- 

1 s spt  in  -at  kRda- 

COMMON 

/ j’SLRSV  / 

c 

LR  SFT  IN  oBLKROA- 

NT  a 0 

COMMON 

/ 1 SLRSv  / 

00  0 i«i.ao 

XTR(T)  a o: 

CXTBfl)  a 0, 

ATB(T)  a 0. 

6 CATSd)  a 0, 

UMCEnD  a o: 

C 

CEND  a 0.' 

c 

r 

ST0IC(T,J)  SFT  IN  -BLKTH- 

1 

LSUBM  a 0. 

ETA  a 0. 

0 a 0. 

VTSC  a oj 

beta  a o; 

Cx3  a 0.' 

CX2  a 0. 

CXI  a 0, 

• 

CXO  a 0. 

GO  Tn  10  . . 

KlNPPlOl 

KIMPP102 

KI«JPP103. 


KIkjPP10<» 

KIKJPP10S_ 

KINPP106 

KImpP107_ 

KINPPIO0 

lflMPP109 


KIMPPIIO 

KIMPPIU, 

KINPPllZ 

KIMPPIIJ. 

KIMPPI  la 

KIMPP115 


KINPPl li 
KIMPPU7 
KIMPPllS 
KlMPPll? 
KIMPP120 
KINPPlZi 


KIMPP122 

KINPPJ23 

Kl>gpPl2q 

KlkjPPl25_ 

KIMPP120 

KIMPP127 


KIkJPP120 

KINPP129_ 

KIMPP130 

K1NPP131. 

KINPP132 

KIMPP133 


KIMPP13« 

KIKJPP135_ 

KINPP156 

KIKJPP137 

Kitjppi^a 

KIKJPP139_ 

KIKJPP1«0 

KlMPPlfll 

KIMPP1«2 

K1MPP105 

KI VPPiqq 

KlNPPiqS. 

KlMPPl 06 

K1MPP107 

KINPPIOS 

KiMPPia9 

KIMPPISO 


r 


1 


.CnMPUTI_HE*l_np_.R5ACtlQN 

OrLHfJ)  3 MRT(M^)  - MpT(N2) 
TF  rwl  .r,T’  0)  DFLHf ■ r- 


ir  (nn  ,BT:  0)  OFLH(J)  a OELH(J)  ♦ HftTtMO) 

JU»  J)E,LH  f.J)_8_rLELRf  J)«TR*l' 

LSP5  a LS  » 3 ' 

RESET  STAi^OARO  OPTIONS 

SS  HQLEF  a .TRUE. 

hhHG  a .FALSE. 

U E_W PRT  a . false. 

^IXLTIALUC 

end  a 0. 

PELP  a_a: 

NTB  a 0 

NPPNT3_8_0 

00  3a"  lajVsO 

Stt  APWiNTd)  a 0. 

AREA  a 0. 

MOOT  a o! 

P a 0. 

V a ft. 

RhO  a 0. 

T a 0.  ^ ^ 

HN  a 0. 

FRRN  a 0? 

NH  a 0 

A V H a 0. 

JCV  a 30 

KOUNT  a 0 ^ 

OO"  3S  Tat.PS 
RKfl)  a ft 


35  E(I)  a O' 

M S PT  IN  »BL KRPA« 

12  a 0 

name  of  TNnEPENOFNT  VARIABLE  » NAME  nf  A SSTGNE^VA RI ABLE~ 
INPUT  UNTTS  - OUTPUT  UNITS  - - SET  In  NaMBi'k 

IE_  ( V E P S A . ’ E Q . . 9 L A NK.L_y£  RS  * _■_*  RE  AY 

..  IF  (ACTION  .NE.’  nfw)_GO  to  so 

INITIaLTTE  step  SIZf  limits 

TE  (VERSt  >0.  TIMEV)  GO  TO  TS  

HMIN  a 0.0001 

MMAX  a O.lOOO 

TPRCnO  a 2 

CO  TO  79,  

rs  HHIN  a 0.5o0E*0r 


KINpP20l_ 
KINPP202 
\NPP 
KiNPPPoa 

KINPP205 

KlNPP20ft 

KINPP207 

KINPP208 

KINPP2(^9 

KINPP210 

._.KINPP211 

KINPP212 

_ KINPP213 

KiNPP2ia 

KXNeP.215 

KINPP218 

KINPP21Z 

KlNPPPlS 

KINPP2L9 

KINPP220 



KINPP222 

_ •<INPP225 

KINPP22‘« 
KINPP225__ 
KINPPPPft 
KINPP227  _ 
KINPP2>B 

KINPP229 

KINPP230 
KINPP23I 
KINPP232 
KINPP 


KlNPP23a 

KINPP235 

KlNPPP3fc 

KINPP237_ 

KINPP239 

^kinpP239 

KiNPPPao 
KINPP2«1_ 
KiNPP2a2 
KiNpppaS..  . 
KiNPP2aa 

KlNPP2a5 

KiNPPpafc 
KlNPP2a7  _ 
KiNPP2a8 
KINPP2fl'» 
KINPP250 


HMAX  s orsoor«A4 

K1NPP2SI 

KINPP252 

KTNPP2S5 

c 

KINPP2sq 

c 

READ  TMTERRaTIO^J  CONlRflLS,  PROFILE  OPTIOmS. 

KINPP25S 

c 

PRINT  OPTIONS,  specialty  SWITCHES 

80  1F(  FIRSTCT  READ  (S.PROB) 

KIMPP2S6 

KTNPP2S7 

c 

IF  (TNOir  ALLM!)  GO  To  Xfc 

KINPP258 

KINPP559 

DO  77  Tal.?5  KINPf>260 


on  77  jal.TO 

KINPP261 

77  Md,.!)  a 1? 

KINPP262 

GO  TO  UO 

KINPP263 

C 

THIRD  BODY  RATIOS  SET  IN  -BLKROA- 

KINPP26a 

36  CONTINUE 

KINPP265 

C 

KINPP266 

C 

SET  INITIAL  STEP  SIZE 

KINPP267 

IF(  FIRSTC  ) GO  TO  OO 

KINPP268 

HMTN  c HMtNZ 

KINPP269 

HMAX  3 HHAXZ 

KINPP270 

HINT  a HInTZ 

KINPP271 

FMAX  s FMAXZ 

KINPP272 

NPRInT  s NPRNTZ 

KINPP273 

FVSTFPa  FVSTPZ 

KlNPP27a 

OBUGO  s DBUGOZ 

KINPPP75 

«0  HI»HTNT 

KINPP2.76 

IFTHTNT.Fo’oriHIsHHIN 

KiNPPpTT 

c 

KINPP27B 

i. 

GET  INITIAL  CONDITIONS 

KINPP279 

c 

call  init(tss,mmhg,mOlef) 

KINPP280 

IF(  Tnot-’firstc  i go  to  fll 

KINPPPBl 

HMTN7  = HHTN 

KINPP2B2 

MMAX7  s HMAX 

KINPPPAI 

HINT?  3 hint 

KINPP28q 

EHAXZ  a FMaX 

KINPP2RS 

NPRNTZb  NPRINT 

KINPP286 

FVSTPZa  FVbTFP 

KINPP3K7 

DRUGOZa  OBUGO 

KINPP288 

r.AI  1 MnVFf'l  .PHTNT.PRTMT7.‘Bft-l  i 

KTNPP7A9 

q|  CONTINUE 

KINPP290 

DO  30  .Tal.i'R 

KINPPpOf 

39  B(J)  a EACT{J)/I.’9B7l65 

KINPP292 

C- 

. KINPP293  - 

c 

SPFCTES  TO  BE  NEGLECTED  FHOM  ERROR 

Considerations  set  in  -blkrda-  kinpp294 

r 

IT  SET  IN  -Bl KRDA. 

MINPP20S 

c 

KINPP296 

_ _ c 

CHECK  Input  Composition 

MIHPP2R7 

CSIIM  a 0. 

KINPP298 

DO  97  Isl.iS 

- KINPP299  _ 

97  CSIIM  a CSUM  * C(I) 

KINPP300 

TF  (*BS(^.>CSUR)  .LF.  .001^  C^  TO  <|S 

KINPPIOI 

WRITf  (fc.lnS)  C3UM.((.nPNM(K,I),KB1.2l.C(I)7lBl.LSr 

K1NPP302 

105  FORMAT  (7Ho(KTNP).S:'’i3HTNVALIO  INPUT  CnMPnSTTTON 

31IM  s ,Fli.6//  KINPP303 

* ( I2X,2AR,F2(2.5)) 

K1NPP300 

NEXT  a -TRUE. 

KINPP305 

RETURN 

t<lNPP306 

c 

KINPP307 

08  TF(1TPSZ.CT,?)G0  TQ  53 

K1NPP308 

TF  (ITPS7  .EQ.  1 .ANft.  NTB  .’EO.  0)  GO  TO  53 

KINPP309 

TF  (nTR  -NF,  0)  nT  a ^TB 

KINPP310 

CONV  a 1. 

K1NPP311 

C0N2  a iV, 

K1NPP312 

IF  (VFR3A  :nF.  AREAV)  CO  TO  203 

KINPP313 

XU  a CU 

K1NPP314 

AUtn  a cUaM) 

KINPP315 

Au(2i  ■ CUA(2) 

KINPP316 

c convert  are*  profile  To  internal  UNTT* 

K1NPP317 

IF  (UNITI  ?NE,  FPS)  Co  to  201 

KINPP310 

XU  ■ FU 

K1NPP314 

Audi  a FUa(1) 

KINPP320 

AU(2i  a FUA(2) 

K1NPP321 

CONV  s 30,48 

K1NPP322 

GO  TO  20? 

KINPP323 

201  TF  (UNIT!  .NE,  31)  CO  TO  206 

KINPP324 

XU  a_8U 

K1NPP32S 

AU(1)  a 3Ua(1) 

K1NPP326 

Allt2)  a 8UAf2i 

KTNPP327 

CONV  a 100. 

KINPP328 

202  C0n2  a CONVaCONV 

KINPP329 

GO  TO  206 

KINPP33O 

203  XU  « CU 

*U(1)  ■ CUPPd) 


AU(2)  ■ CUP2r2) 
jnMVERT  PRE^SURr  PROFli  f TO  TMTERNAi'  iiNtTS 
TP  (unTtI  rNP,  PPS)  Co  TO  ?0ft 
XU  ■FU 


KI'i<PP33!_ 

KIRPP332 

.KIRPP333 


*U(1> 

JUill 


FUP(l) 


CONV  ■ 50, g8 

Cr)R2_«_I^ZEli6.»i 

CO  Tn  20R 

200  TF_{HNTTl_rNE;_?lj  GO  .TO  205.. 

XU  s SU 

A!iHi-P.J^jRlLL 


*U(2>  a SUP(2) 
CONV  a 100- __ 


C0R2  a 1 Vi,Ol3?5CA05 
205  1F.-(,NDT.  MHHS)  Ga_X3_2.0fe- 
*U(1>  a CUPlfl) 


KIigpP33« 

KligPP335 

KlNPP33fc 

KIigpP337_ 

KligPP338 
_KlNpP3J?_ 
K1MPP340 
_ KligpP54l_ 
K1RPP502 
KINPP3q5. 
KligpPSao 
_ !<IigpP3«i5_ 
K1NPP3«S 
KIRPP307 
k1RPP3<I8 
KligPP3a9_ 
K1RPP3S0 


AUf2i  a_CUPlX2i 

CnN2  « I ./760, 

20fc  IF  (VERST  ’eq.  TTMEV)  CONV  ■ 1 

TF  (TTP37  *E(J,_2)_GO_Tg_?0« 

DO  207 

cxiDfii  s xtbctUconv 

207  C*T9fn  a ATb(T)*C0N2 

r.o  Tn  sit 

20B  00  2p9  iBl.a 

209  C SI { 1 Jl* C ON 2_ 

_53.  IF_  ( f NPRnTB  Jn.F^  0)  .QP.‘  (OELP  .NeT  hlS  TOft.'  (FND 
* B .TRUE. 

TF  (.’ntt*  mEWPRT)  r.fl  TO  S9 

IF  (FSiD  .NF,  0.)  UMCEtgD  ■ FnO 

_ PREPARE  PRImT_STATI0n3 

TF  (FVSTFPi  GO  TO  59 

IF  (mPRnT3_,n£.'_0)_GO_JXJ_ST 

TF  (DELP  .NE.’  n.)  GO  TO  59 

LP_  8 (llNfEND  - lVARi/29.'9999 

59  PRINT( 1 ) e IVAR  ♦ OfcLP 

_ DO  5S  ts?,c-o^  

PRtNT(T)  * PRINT>I»l')  ♦ DELP 

IF  (PRtNT(_T)_.GE.  .UnCEND)_C.u_1£|lS4 

55  CONTINUE 

5fc  NP  8 I 

PRTNT(NP>  B UNCENO 

- GO  TO  59 

__57._NP  « NPRnTS-.^..-  

IF  (APPINTfl)  .EG.  0.)  GO  TO  59 

cottas  i:.  , , 

IF  (TPRCOD^.EO.  2 .OR.  IPRCOO  .EG,  9)  CO  TO  210 

IF  (UNITl_:EQ,-^PSLC3NV_a.30.fta 

TF  (IINTTT  Teo.  31)  COnV  b loO.' 

C0N2  8 C3N\7*CaNy 

GO  TO  213 

■ 210  C0N2  s i;  

IF  (UNITT  JNE,  FP3)  GO  TO  211 

CONV*  * 30,90  

C0N2  S ir/2116r2 

GO  .TO  2.12  , 

211  TF  (UNIT!  ’nE,  ST)  CO  TO  212 

CON  V_8_l  Q £L 


C0N2  * 1 ,/l ,0I325E*05 

212  IF  (mmhg)  rOS'2  8 l.’/7fc0, 

213  TF  (VERST  .EG,  TINEV)  CONV  « l' 

CALL  CUBS  rCATH,CXT9»NT) 

00  SB  T3|»nPRnTS 


KINPP351_ 

KINPP352 

K1NPP353 

KINPP.359 

KINPP355 

KINPP356 

KINPP357_ 

KINPP350 

tlHEPiSl. 

KiNPPjfcO 

KINPP3(»1 

KINPP362 

rNr,_0.’))  NEWpRTKINPP363_ 
KINPP3B9 

KI.NPPSii. 

KlMPPSfcb 

K1NPP3BT. 

KINPP568 

KlKiPP3<»9_ 

KINPP370 

!5.1NP_P371_ 

KINPP372 

KINPP373 

KINPP379 

KINPP375 

KINPP37(> 

icWPPJirZ- 

KINPP37B 

. „ KINPP379_ 

KINPP360 

KINPP3BI 

KINPP3B2 

KiwRPjiai. 

KINPP3B9 

KINPP3BS 

KINPP5B6 

KINPPSBT 

KINPP3BS 

KI.NPP3fl9L 

KINPP390 

KINPP391 

KINPP392 

KINPP393 

KINPP399 

K1NPP395l. 

KIS'PP39k 

..  _ K1NPP39T 

KINPP390 

KINPP399 

KIVPP900 


1 

1 

■ 

APRiMTd)  ■ APRIMJdUCON? 

KINPPflOl 

CAI  L CINP  f APRTMT(I),pR|MT(|),0UM|,0IIM2) 

58  PRINTtI)  ■ PRINTf I)/CnMV 

KlNPPa02 

KiNPPaos 

c 

59  TP  fTTP97  'Eo:  li  C4Li‘  rUH8  r r If TR . r . Mti 

KINPPqOO 

KlNPPaOS 

c 

TE  (umttt  ?me.  PP3)  Gn  rn  m 

KlNPPa06 

KINPPaOT 

c 

CONVERT  FROM  EPS  UNITS  TO  INTERNAL  TCftS)  UNIT8 
IE  (VERST  TnE.  TImEV)  GO  TO  60 

K1NPP408 

KINPP909 

DVAR  « DVAp*30.*48 

GO  Tn  61 

KiNPPato 

KiNPPfSl  1 

60  IVAR  3 IVAP*30.'48 

61  IE  (MMMGi  P 3 P*?.’7«45 

KINPPflt2 

K1NPP413 

P « P/^llfc^Z 

AREA  3 AREA*‘»29.030a 

KlNPPOia 

KlNPPaiS 

moot  3 mD0T*«53. 59237 

V 3 V*30?a8 

KlNPP«16 
KINPP417.  . . 

RHO  ■ RHQ/62.’43 

T 3 T/1.8 

KINPP018 

K1NPP019 

IF  ((.NOT,  NFWPR^  .OR,'  VERSI  ,'EO.  TIHEVi  CO 
CEnO  1 UNCENr)*30r08 

TO  68 

K1NPP420 

KINPP/J21 

00  6?  181»NP 

6?  PRINT(I)  « PRINT(I)*30.«8 

KINPPa22 

K1NPP0P3 

GO  TO  68  , 

63  IF  (UNITI  :nF.  SI)  GO  TO  67 

KINPPaPa 

KlNPPqPS 

c 

CONVERT  from  SI  UNITS  TO  INTERNAL  (C6si  UNITS 

IF  (VERST  .NE.  TIMEV)  CO  TO  69 

KINPP426 

K1NPP/J27 

OVAR  3 OVARaIOO. 

GO  TO  65 

KlNPPa?8 

KINPPa?9 

60  IVAR  3 IVARAlOO. 

65  IE  (MNHG)  P 3 P*133.'392« 

KIMPP430 

KINPP931 

P 3 P/1 .0132SEA05 

AREA  3 AREA*IOOOO. 

KINPPa32 

KlMPPq33 

MOOT  3 MDOTAlOOO. 

V 3 V*100.^ 

KINPP439 

KiNPPaSS 

RHO  3 RHn*;OOI 

TF  ((.NOT.  NEhPRT)  .nR.’  VFRSl  TeO.  TIMEV)  GO 

TO  68 

KINPP436 

KlNPPfl37 

CENO  3 UNCFNOAlOO.' 

00  66  131. NP  . 

KlNPPa3B 

t<INPPa39 

66  PRINT(I)  3 PR1NT(I)*1oO.' 

GO  TO  68 

KINPPfiaO 

KlNPPaOl 

c 

67  CENO  3 umCENO 

KiNPP«a2 

KlNPPaas 

r 

IF  (MMH6)  P 3 P/760,' 

KiNPPaao 

3 TNPPaas 

_ c 

68  MtXMH  3 0. 

KiNppaao 

KiNPPaai 

c 

IE  (TnOTT  mOLEF)  CO  To  71 

. HOLE  FRACTION  TO  H0LES(1)/MASS(NIXTURP3 

no  69  131 .1 S 

- 

KiNPPaaB 
- . KlNPPqaP 

KlNPPqSO 

69  MIXMW  « MIXHW  ♦ C(T)*MWf!) 

DO  70  I51,VS 

70  91G^*(T)  » CfI)/MtXMW 

CO  jn  75 

c __  

i MASS  FRACTIfiN  TO  MDLE3 ( T ) /M ASS ( MIxTuRF) 

71  no  7?  I3l#i  3_ 

sir.MA(T)  = crn/MWd) 

7?  MIXMW  e MTXHW  ♦ SrCMAfri 

mIXmW  e 1,/MIXmM 

c UMIVERSAr  G aFTomS  T A^T  I N ~AT^-cF/M0i*E»l>E6  K 
_ 75  RR  ■ B?.056  _ 

C UNIVERSAL  GaS  const  amt  In  ERGS/MOLE-OrS  K 
R = B.5Hl5r*07 


w 

IF  l»2  .FO^  0.  . .’and.' .NOT.*  fCOMBitS  .OR*  SHOCK))  CD  TO  81 

CALL  THRM  tT,l-) 

CPRO  e^o'  

DO  7a  1=1, i 3 

__7A_nP R_Q_«_CE R o-t  CPgXXj.*aiG 

GAMMA  s rPRO/(CPHO  « 1. /MIXMW) 

_I.F  (V  ,'nf.  .o;)_cn,.TO- Bl 

V s 3QRT(M?*H/MIXmW*GaMma*T) 

» 

""'bt  if  (p  TEororr  go  lo  tz  ^ ~ 

RhO  = p>mXMW/fRR»T)  

GO  Tn  75, 

82 _I F „_( RHO  .FO.  0.)  GO  TO  fl5 

P a RHO*RR*T/mTXMM 

CD_Jn_75 ; 

■ 

] 85  IF  Cfppcnp  .gt!  21  GO  Tn  na 

X a TVAR 

IF  (VERST  'EQ._TIMEV)_X.-JI_0VAH 

CALL  CTNP  rX,AVAR,DUMl,DUH2) 

GO  Tn  as - 

Ba  TIME  = OVAR 

IF-  (VERSI_.r£a>  Ll.ME.Vl  -I.lME-x-IViJt 

CALL  CTNP  CTIMF.,  AVAR,nUMl  ,nUM2j 

.—85  IF  (VERSA  .Efl,  AREAV)  GO  TO  86 

P a AVAR 

GO  Tn  ai  . ..  .. 

86  AREA  a AVAR  - 

Rwn  = MDOT/f ARFAAV) 

GO  Tn  B? 

» 

75  IF  (MOOT  .FQT  0.)  MDOt  a RH0»AREA*V 


KINPPOSI 

KiNPPasz 

KlNPPaS5 

KiNPPaso 

KlNPPaSS 

KiNPPaSB 
KiNppa57_ 

KiNPPase 

!(1VPP.<L59. 

KlNPPa60 

KlNppasi 

KlNPPq62 

•_KINPPq65 

xiNPPaott 
ppfl 
KlNPPa66 

^KlNPPa67_ 

KINPPa68 

KlNPPa69_ 

KiNPPa7o 

EI.NPPaj.L. 

KiNPPa72 

KlNppa7i.. 

KiNPPa7a 

KlNPPa75- 

KiNPPa76 

iaK'PP.a7JL. 

KlNPPa78 

XINPPq79_ 

KINPPaBO 

KiNPPaSi- 

KINPPaB2 

K.iNPP.aai_ 

KINPPOBa 

KiNPPaas- 

KINPPqns 
— - KiNPPaa/- 
KiNPPaaa 

KiNPPaav 

KiNPPaRO 

KlNPPaRi- 

KlNPPa92 

KlNPPa95 

KiNPPaRa 

xiNPPaos- 

KINPPaPB 

KlNPPa97 

KlNPPaPB 

KINPPa99 

KINPP500 


ctcrr 

c 

c 


[T  integrate  or  interpolate  *1 

INTEGRATE  OR  INTERPOLATE  USING  A PARaBOlA  WHICH  PASSED 
ANn  (Un  POINTS  RUT_hISSES  THE  (I»tA  ANft  fT»2T  points 
EXIST)  SUCH  THAT  THE  SQUARE  OE  THE  DEVIATION  IS  A mINI 

.,tHAT.  I is  GENERALLY  SELECTED  SUCH-THAT 

Xri).LE.XC.LTtX(I^l) 

_1HE  EQUATInS.  FOR  JHE  pARAB0l.A_I5 

Y-Y«I)  ■ 0*(x*xn))  ♦ CA(x*>[tI))*A2 

“ SUBRoUTIhE  lCEIT(X,Y,nPTS.  NEH»  XC»YC»nXC»NO»  C) 
„01HFNSI3N  Xtlfll^YtlO)i_XCtlOi,YCtlO)j-CaO)- 

logical  New 
input* 

__x LJf PTS.  ON  CURVE 

NPTS  NO.  OE  X 

_.NFW 3 ;falSE^J[F..  THe  ?C'  array,  of  COCFFl£IENT5_IS  _ 

available  From  a previous  entry 

, xc. LI5T.0F_X  at  which  calc_tq  be  dome 

YC(n  integration  constant  if  no*-i 

Nxc no:  op  xc 

NO  30  TO  GET  coord,  bI  TO  GET  IST  DERIVATIVE,' 

3*i_E0R_JLSIt6RAllDS : 


.OUTPUT  

VC  coordinate  or  derivative  at  xc  or 

YCfTrla  INTFGPAl  »V*nXY  FROM  vr 


C * ARRAY  OF  (NPTs-n  COEFFICIENTS 

NOTES* 

FOR  INTEGRATION  'XC  vyST  Bt  IN  THE.  SAME  ORDER  AS  'X*, 
•X»  NAY  BE  IN  EITHER  aScENOING  OR  DESCENDING  ORDErT 
NO  SPFCIAL..ORPER.  IS  REflli 

_COMMnN_/CLSPi_/_l L- 

LOGICAL  within. 

DATA  BTTS/n?777777777;7/  ' 

1EI.nOT.nEw)  go  to  90 

N s NPtS*1 

'~^LU*TE  Cn^FKIENT  c'dl 

DO  30  I«1»N 


s Y(T) 

* X(TT1)-X1 

« 0, 

« 0. 


• i.ceit*  lceitooi 

LCFIT002 
5 THROUGH  THELCFIT003 

a (.ie_.thei,bOlceiioq<l. 
IhUm.  note  lceitoos 

_ LCEITOOfc 

LCFIT007 

lceitoos. 

LCFITOOR 

LCEITOIO- 

lceitou 

LCF1T0I2 

LCEIT013 

LCEITOIR. 

LCEITOIS 

LCELLOlk- 

LCEIT017 

LCEITOIS 

LCEITOlO 

LCF1T020 

LCEIT021 

LCF.lT02i_ 

LCEIT025 

LCnT024 

LCEIT025 
LCEITOPfc 
LCEIT027 
aERE_lCa2  i>lX  C L C F LT  Q 2a_ 
LCEIT02R 

LCFIT030. 

I.CriT03l 
, FOR  .INTERPLCEIT032 
LCEIT013 

L C F 1 T.0  \<L 

LCFIT035 

LCEIT036 

LCFIT037 
. . LCEIT038 

LCEIT03* 

LCE1T040, 

I.CEITOai 

LCFIT0a2 

LCEIT043 

LCEITOaO 

LCEITORS 

LCFIT040- 

LCEIT007 
LCEIT04S 
I CEITOR* 
LCFITOSO 


cti)  • 0,. 

LCFIT051 

Y3  ^ • y(T*ij-yi 

LCF1T052 

IFd.LE.  1 .OR.  yd-h.'EO.BlTS)  CO  TO  27 

LCFIT053 

XI  > Xl'r-Ii-XT 

1 CFTTOSa 

X13  a X(J>n-X(m) 

LCFIT055 

TOP  * xi*(y3*xi-(y(i«i)-yi)*x3)*xix 

LCF1T0S6 

BOT  > Xl*Xl*X13«Xl3ftX3 

LCFIT057 

27  IFd.CE.N  .OR.  7 ( !♦?)  .FO.BlTS)  60  TO  ?8 

XCFIT058 

271  xa  * X(T*?)-XI 

LCFIT059 

XOS  e X(T*?)^d»l) 

1 CFTTO60  . 

TOP  * TOP  ♦ xq*(Y3«xq-(Y(n2)>yii*xs)*xa3 

LCFIT061 

BOT  s ROT  ♦ xq*xq*Xa3«xa3.X3 

LCFIT062 

28  IF(BcIT.'nE,0.)  Cd)*-TOP/BOT 

LCFIT063 

30  continue 

LCFlTOOq 

c 

LCFIT065 

c 

BFGIN  INTfRpOLaTION  LOoP  FOR  Xrdci  tf.i.Nxr 

LCFTT0&6 

90  T a MAXOd.HlNOd.Nli 

LCFIT067 

IFlNO.Ea.'l-li)  .la| 

LCFTT068 

SGN  s Sl6N(t.'.X(N«lS-Xdi) 

LCFIT069 

IC  a 1 

LCFTTO70 

GO  TO  160 

LCFIT071 

c 

LCFIT072  . 

e 

locate  appropriate  Interval 

LCFIT073 

100  hitmtk*  .Falser 

LCFTTOTR 

NcnUNTa  N 

LCFIT075 

10?  IFTNrOUNT)  119.103.10X 

. . . . LCFIT076  _ 

103  nCOUnT«  nCoUNT*! 

LCFIT077 

c 

LCFTinTB 

XI  a X(r) 

LCFIT079 

XO  . a XCdCWXl 

1 cfttoro 

IF(N)  lOq. 120*104 

LCFIT081 

loq  TFtSr.NoXal  IQS. 107. lift 

1 CFITOB? 

c 

. LCFITOeS 

c 

tnTppvai 1 1 rPTiftRO 

105  TF(I.'EO.I)  CO  To  |2e 

LCFTT085 

TF(Nn.Fa;r.t)>  GO  TO  |19 

1 JXQRh 

I a I.l 

LCFITOBT 

CO  TO  lOP 

1 rPiTORB 

e 

LCFITOSR 

e 

F JFQ.O 

1 rPITftQO 

107  IF(X(I>l),NE.'xn  CO  TO  120 

LCFIT091 

GO  To  llA 

1 rpiT0R2 

C 

LCFd095 

e . 

..  - fJgt.o. 

LCFITORR 

. no  iF(sr.N*(xc(ic)-x(m)))  120.112*110 

LCFIT095 

c 

XCFlTO-96 

C F.EO.1.0#  CHfCK  lNTFr.i«Tl3N  *»*r»  OOUBl  F POINT  BPFORF  INcRFHFNLCFITOPT 

. 112  IF((ND.’Ea«(«l))  .’on..  (I.NE.'n  .and.  Xrl*l).E0.’X(I«2)))  GO  TO  120  LCFIT098 
C F.CT.1,0  LCFITOO’ 

ilfl  IFdjEQ.Nj.GO.Ta  120 - . LCFITIOO 


320 


IP(ND.CO.(.l))  CO  TO  125 

t-l*! 

GO  TO  102 

_£ 

119  call  ERRORl 

C PR  E L I Ml  N A R r^LC  UL  A T i 0^7 OR  I N T ERPOL irTToTlTR’  TnT EG^ T I ON 

_I20  WITHlWe.TRUE.' 

125  X3  e X(T*l)»X(n 

YI  « Y<T) 

B •0,- 

Cl  ,_e_C(X) 

IK(V.GT,0  .AND.  XT.mE.O.)  S a ( Y(  T AO-yi ) /X3  - ClaXJ 

129_1F(Nd)_130.'140*JJ11 

C 

_£ Be.i,  I^jtE G R.AJLE 

150  IF(t»JOT, WITHIN)  X0aX3 

31  _ s fYi  ♦„(3/2;_t_CI/3.%XDi*X0iaii:0 

IF(WtTHlH)  GO  TO  135 

C _JP  13  neiNr,  IVCRrMENTFO_Tn_FlwO  APPRoPR9ATF_IiJTERVAL.‘._Hf NCEi 

C CUHULATF  fHE  INTEGRAL  OF  THE  ITH  INTERVAL; 

ik  « Si  ♦ 81 

GO  To  llfc 

C_  appropriate  interval  FoUNOj Xil).TXCilCj»X(Ifl)_ 

135  Ifdc.EO.n  SAsYcdcj-Sl 

IF(IC.NE.lS.jr(L(ICj«S**3l 

GO  TO  150 

_£ 

c noso»  Interpolate  for  Coordinates 

—.JJ  0_Y  Ci  I C la  _(B_t_CI.*  xP  1*  XO 

GO  TO  150 

“C  NDaP  Fl'RST”OERIVAf“ [V'e 

mi  YCd C)C  q » 2.aCT*X0 

CO  TO  150 

.c ^ 

l5o  TC  * IC*1 

160  ir(Nxc-ic)  _'>oo, 100,100.. _ 

c 

900  RETURN 

END 


LCFITIOI 
_ LCP1T102. 
LCFIT103 

LCFULM- 

LCFITIOS 
LCFITlOfc- 
lcfitiot 
_ LCFrTl08_ 
LCFIT109 

LCFlTllIL. 

LCFITIII 

LCF1T112.. 

LCFlTjiJ 
LCFlTllO.. 
LCFIT115 
LCflTim. 

LCFIT117 
. LCFITIIO 
LCFlTllO 

LCFITl20_ 

LCF1T121 
LCFJLI122- 

LCFTT123 

LCFIT|20_ 

LCF1T125 

LCF1T126^ 

LCF1T127 

LCFIIliB_ 

LCFIT129 
_ LCFITJ30_ 
LCFIT151 
LCFIT132 
LCFIT133 

LCFLT1.3.0_ 

LCFITISS 
..  . LCFIT136_ 
LCF1T137 
LCF1T13S 
LCFIT139 

LCFIT19.il 

LCFITIRI 


r - - 1 


CLFSVV  GEN'I  OBL  PREC  t iNEAff  EQW 

solver 

LESWOOl 

C 

SUBROUTINE  LESV  (K) 

LE3VV002  1 

LESWOOS  ! 

C 

c 

THIS  ROUTINf  is  a GENERAL  DOUBLE 
IN  THIS  PROGRAM  IT  Is  USED  TO 

PRECISION  i INEAR  EOUATION  SOLVER 

compute  the  increments  K(I> 

LESWOOO  1 

1 ESWOOS 

c 

DOUBi  E PRErlSION  A«S«TS<n 

LESVV006 

LESVVOOT 

c 

logical  next 

I.ESVVOOS 

1 ESVV009 

c 

REAL  K 

LtSvVOlO 

LESVVOl 1 

c 

OIMENSTON  s(P8).K(?a) 

LESVV012 

LEsVVOIS 

c 

C0MHON/C0Nn/DllHMV(5a).‘N,NEXT 

LESVV014 

lESWOlS  ^ 

c 

C0MH0N/MATX/A(2fl,29) 

LESWOI  6 

LESVV017 

NP  ■ N4>1 

DO  5 lei.'N 

leswoib 

LESVVOl 9 

c 

GET  SCALE  FACTORS 

TS  « O.’OO 

LESVV020 

LERVV021 

DO  b Jsl.N 

B * OARS(*rI»jj) 

LESVV022 

LESVV023 

IF  (B  .GT,  TS)  TS  c 8 

6 continue  , 

LESVV02« 

LESVV025 

c 

IF  (TS  .EQ:  0.00)  GO  TO  100 

0 

LESVV026 

1 ESVV027 

c 

scale.  RONS 

DO  lo  J«1#nP 

LF.SVV02B 

LCRVV029 

10  A(I,J)  s Ari«J)/TS 

5 CONTTNUE 

1 ESVV030 

LESVV031 

c 

e 

LESVV032 

1 ESVV033 

IF  (N  .EO.  I)  GO  TO  25 

NM  B N«1 

LtSVVOSq 

LtSVV035 

c 

DO  IS  JSI.NM 

FIND  MAXIMUM  element  In  COLUMN  J 

BELOW  DIAGONAL 

1 ESVV036 

IESVV037 

II  B J 

JP  ■ J*1 

LESVV038 

LESVV059 

DO  16  IsJP.N 

IF  (QABSTAfl, j))  .GT.  DARS(A(TI 

»J)>)  II  ■ T 

1 Lsvvoqo 

1 Eswom 

16  CONTINUE 

IF  (TI  .FO.  J)  CO  TO  ?0 

1 F.SVV0«2 

LESWOOS 

c 

interchange  ROMS  II  and  j 

DOIT  L=J#NP 

LEswoqq 

1 F.RvVf'«5 

TS  « A(II,|  ) 

A(II.L)  « A(J*L)  ..  . 

LESVVOttb 

leswoot 

. — c 

c 

17  A(J,L)  * TS 

ZERO  COlUmN  j BFlOW  oiAGON*|. 

■ ■ ■ 

lesworb 

LESvVnOR 

1 ESVV050 

a 


32: 


o ri 


_ao_oo  IB  i*jp/n 

TS  = A(I.J)/A(.J»J) 

TF  (T8  .COT  0.00)  GO  TO  tB 

DO  19  LsJP.NP 

_19  A(I,|)  s AfI,L^  - T3»A(J.L) 

Ifl  continue 

IS  CO N TINU e 

BACK  SUBSTITUTE 

25  TS  = A(N,N> 

IF  (r>ARS(TB)  .LtJ  l.D-loi  WRITE  (BjlCZi 
102  format  (7H0(LESV),SX.i1H31ngUlARITV) 

S ( N ) _ Af^^,NP)/T3 

K(N)  s srN) 

IF  (>j  >0.  li  RETURN  • 

DO  2h  JsgfH 


LESWOSL  _ 

LFSVV052 

LlJSV^3i 

LFSVVOSa 

„ LESWOSS 

LESVV056 

-LESVVOS? 

LESVV058 

I FSVVnS9 

LESVV060 

LESWOBl 

LESWOSa 

LESVVOfrS 

LFSWOBa 

LtS  VVOBS 

LL'SVV066 


II  a NP  - I 

__I  L-ID.a  B S ( T 9 - 10  

B s A(M,»jP) 

HP  • H»1 

00  27  LSMP.N 

. a7.,B  s_a_-’ AtMiLUStU 1 

\ S(M)  S B/TS 

‘ 26  K(M)  s.3(Hi__ ^ 1 

i 30  CONTINUE 

[ BE.TURN 

* C 

100_WRITE_f.6.1(lil_I 

101  format  (7Ho(LE3V),5x»3HRnw,IO,59H  OF  TME  COEFFICIENT 

1. ZEROS) 

00  50  I*1»N 

50  WRTTF  (6.1n3i -(AIU-Jl,.  jKl,NP>, 

105  format  (1H( ,8E16.6/(lx»flF16,6)) 

NEXT,  s ..IRUEJ : — 


LESVV067 

LESVV068 

- LESVV069 

LESVV070 

LEsmiJ 

LESVV072 

: ..  LtSVV07i 

LESVV07R 

... I.ESVV075 

LERVV076 

L ES^V  V-Oil 

LESVV078 

LESVV079 

MATRIX  IS  Al LLESVVOBO 

-LESWOBI- 

LESVV082 

U S V V-0a3 

LESWPBU 

tESWOBS 


__c 


return 

END 


I ESVV086 

UESVV087- 

UESVV088 


CLFIT 

SUB»nUTlNE  LFIT(X,  Y,NpTs,XC, VC»S)^,Noi 

CLFIT  InIfGWATE  or  InTERPHlATE 

* IN T E G R A_T E _Or_I  n IE H P OLAJK _U S I NG  A STRAIGHT  LINE  FIT  £ E TJ< E£.N_eD I M. TS 

C 


C* 

C* 

C* 

-Q_ 

C 

C 


CHECK  TO  KEEP  -LFIT-  FROM  EXTRAPOLATION— 

IF  reuuesteo_interpulat jon  location  is  outsioe  definfd  Interval, 
variable  equal  to  eno  Value 


lfitoooi 
_ LFUOOO?. 
LFTTOOOi 

lfitooor 

LFI T0005 
.Lf-lHidCL^ 


dimension  xClOJ.YdO),  XC(10)#VC(lO) 


INPJT- 

_ X,  Y 

NPTS 

XC  LTST  of  X AT  WHICH  CALC  TO  RE  PONE 


pta*  on  curve 
‘no.  "of  X ■ 


YC(l) 
NXC  

"no  ‘ 


Integration  constant  if  nos>i 
NO,  OF_XC 


so  to  get  COoRO#  si  to  get  1ST  DERIVATIVE* 

s.l  FOR  INTE C Ra T 1 0f4 


OUTPUT 


C 

C 

C 

C 

'c 

C_ 

C 

C 


YC  COORDINATE  OR  OFRTvATTvE  AT  XC  OR 

YcUCTs  INTEgRaI  (Y»DX)  FROM  XC(O_T0  XqdcLRHERE  ICs 

NOTES 

*x'  MAY  be  iM  either  aScenoihg  JR  descending  order." 

FOR  integration  >XC'  ><UST  BE  T N THE  SAME  ORPFR  AS  «X*. 


for  tntlgraiton  'xc  »>.'St  nr.  t n the  same  order  t 
FOR  INTcRPriLAinN  NO  special  ORDER  IS  REQUIRED, 

“com  -rn  n'  / cl*s^~7* 

LOGICAL  WITHIN 


N 


= npts-i 


1 z MAXO(1,minO(I,N)) 

IF  (NO.tO.  (d  ) T_lsl_ 

ISAVf.  a 0 

_.SGN  z SIr.N(l.,X(N,l)-X(n) 

_or  G 1 N _I_NJE  RAlLATJLn  N_kO  JF  iO. . 

IC  5 I 


.C_ 

C 


LOCATE  appropriate  INTERVAL 
100  wjthtnz  .False, 

NCOUNiz  N 

.LP  2_  T F..  ( N C 0 J V T J_d  9 1 103,  Iq5... 
103  NCnjNTs  nCOJnT-I 
XI  S X(I) 


LFIT0007 
_SEIUFIT0009. 
LFIT0009 
LFITOOIO. 
LFlTOOll 
I.FTT0O12 
LFITOOli 
LFI TOOIR 
LFIIOOIS 

LFITOOIS. 

I F1TO017 

LFmO-ll- 

LF1T0019 

LFIT0020. 

LF1T0021 

LF1T0022_ 

LF1T00P3 

LFXLO0?«_ 

LFTT0025 
<»,NXlF1  10020 
LF1T002/ 
UF1T002B 
LFTT0029 

LFnO030_ 

Lh 1 T0031 
LFIT0032 
1 FTT0033 
I F 110034 
LF1T003S 

LF  ILOil  5 0_ 

LFIT003/ 

LFITOO  39 

LFI TOO  39 
UFTT0040 

lfit  own 

LFIir'0'*2_ 

I FI  100*43 
LFI 10049 
I F IT004S 
LFlTn04O 
I F T T <)  0 4 / 

Lj-iI0049_ 

I F I T0049 
LFIIOObO 


505  = Xt(l((i>-Xl 

IF  (N)  10a,120«104 

LF1T0051 

LFIT0052 

loa  IF  (SGN*XD)lOS*107#llO 
c 

LFIT0055 

LFlTOOSa 

C F.UT.O.  (F  IS  IME  FRACTIONAL  POSITION  IN  THE  INTERVAL) 

C 

LFIT00S5 

1 FTT0056 

C 

LF1T0057 

105  IF  (I.EO.l)  GO  TO  III 

LF1T0058 

c*io?“rF  (i.Fu.n  GO  to~l20 

LFII0059 

C 

LFIT0060 

C 

LK1T0061 

IF  (nO.EO.CD)  go  to  119 

1 FIT0062 

I *1-1 

LFII0063 

GO  TO  102 

LFlT006a 

C 

LFII0065 

C F.EO.O. 

LFH0066 

nrr  ir  (xn*o.ME,)fr)  gd  to  120 

LFI  T006/ 

GO  Tn  116 

LFlT006e 

C F.Gt.O, 

, LFIT0069 

no  IF  (SGN*(xc(ic)-x(i*i)))  i2o,n2»n« 

_ 

I.FII0O70 

LF1I0071 

C F.EO.l.*  check  FOR  INTEGRATION  AND  OOURLE  POINT  BEFORE 

INCREMtNTlNLFIT0072 

IT?  IF  rcvp,EQ.r-n)  ,or.  ci.Nr.N  .and,  x(m).£o,x(it?))j 

GO  TO  120  LFIT0073 

c 

LFTT0074 

C F.gt.i. 

LFTT0075 

c 

LFU0076 

c 

LFIT0077 

no  IF  (T.FO.N)  GO  TO  118 

LFIT0078 

C*no  IF  (I.EJ.N)  GO  TO  120 

UFIT0079 

C 

1 FTT0080 

C 

LFI  rooBi 

IF  (ND.EO.r-D)  GO  TO  122 

LFIT0082 

116  1 a m 

LFIT0083 

GO  TO  102 

LFITO084 

C 

LFIT0085 

c 

LFTTO0B6 

c 

LFIT0087 

C*  extrapolation  outside  X.TABi E---USE  END  VALUES 

IFIT00B8 

117  YlaVd) 

LFIT00«9 

GO  TO  1181 

_ LFIT0090  . 

C 

LFII0091 

118  YIar(N*l) 

1 Fn0092 

1181  Bao. 

LFIT0093 

C 

LFI  1009*1 

C 

LFTT0095 

. _ GO  TO  129 

LFIT0096 

C 

1 FIT0097 

C 

1 F7  TOUNB 

C 

LFIT0099 

119  call  ERROHl  

LFITOlOO 

326 


*LFIT1 


LiNFAH  FIT  Interpolation 


•LFIIP 


LFITlOOl 


c 

DIMENSION  X(10),V(10),  XC(10),YCf 10) 

LFITlOOi 
. LFITIOOR 

c 

c 

INPUT- 

XfY  » list  of  COORDTNATFS  OESCRIBInC  THE  INPUT  FUNCTION 

LFIT1005 

LFIT1006 

c 

c 

NPTS  = number  of  X,Y  POINTS 

XC  a LIST  OF  x-s  AT  KHICH  LNlfPFOLATlON  IS  TJ)  BE  PERFORMED 

LFITIOOT 

..  lfitioos 

c 

c 

NXC  r MUMat'R  OF  XC-VALUES 

LFIT1009 

LFITJOIO. 

c 

c 

OUTPUT- 

YC  = LIST  OF  values  INTERPOLATED  AT  xC ( IC ) , 1 C* 1 . NXC 

LFITlOll 

IFIT1012 

c 

c 

NOTES- 

LFIT1015 

lfitioir 

c 

c 

IF  XC  IS  OUTSIDE  OF  THE  RANGE  OF  X»  THE  END  VALUE  ioF  Y IS 
FOR  YC, 

3ULFIT101S 

LFIT10J6 

c 

c 

X MUST  be  listed  from  smallest  to  Largest. 

00U31 E X-POINTS  ARE  ALLORFO  FOR  A FUNCTION  DISCONTINUITY. 

LFI T1017 

LETT  tot  8 

c 

N = nPTS 

L F I T 1 0 1 9 

LFIT1020 

c 

I = 1 

LFIT1021 

LK1T1022  _ 

c 

BEGIN  interpolation  lOOP  FOR  xC ( IC ) » TC= 1 # NxC 

IC  s 1 

LFIT102i 

LFTT102R 

60  XCIC  = XC(IC) 

IF(N.GT.l)  GO  TO  100 

LFII1025 

LFin026  . 

VC(IC)*V(1) 

GO  TO  190 

LFI  11027 
LFIT1028._  .. 

c 

too  XG  a X(I*1)-XC1C 

LFIT1029 

LFITIOSO 

If(xg)  Iia,Iia,l02 

102  XF  = XCTC-X(I) 

LH  TlOll 

LFIT1012 

c 

1F(XF)  110,120,120 

LFIT10J5 

LFlTlOJa 

c 

f.lt.’o.  (f  is  the"  fractional  POSiTinN  in  the  interval) 

110  I a I-l 

Lr II10J5 
. .LFIT10S6 

IF(I)  lOOflllilOO 

111  I =1 

LFII1057 

LFITlOiS  . 

YC(IC)=  Y(l) 

GO  Tn  190 

LFIT10i9 

lfitioro 

c 

c 

F.GF.t. 

LFITlOUl 

LFTTlOaa 

iia  I = !♦! 

IF(I-N)  100,115,100  _ 

1 FITloaS 

LFI 11099 

c 

115  I s N-l 

yC(IC)=  y(n)  _ . .. 

GO  TO  190 

LFIT1095 

LEni096  _ 

LETT  109/ 

LF IT109S 

c 

interpolate 

120  YC(IC)s  (Y(I)*XG*Y(1»i)*XE)/(XG*XF) 

LFIT1099 

LF1T1050 

327 


C_  index  to  next  J(C(1C) 

190  IC  ■ lC4l 

IF(IC.LE.NXC)  GO  TO  6o 
C 


LFITI05I 

LFITtOSZ  

LUTlOSi 

LFiTlOSa 

LFIT105S 

LFTT10S6 

LFIT1057 


return 


oo  ,00 


preliminary  CAL.C'JL<^T13nS_F0R_JNT£RPPLAIJ0M.D!1_INTEGRAT1QR. 

120  WITMINS  .TRUE, 

_122  IE  (I-lSAV£j_L?OtJ.??il?il 

12«  ISAVE  = I 

yi  » y(i) 


X5 

B 


= X(T*l)-XI 

_»_0, 


LFTTOlOl 

LFIT0102. 

LFITOIOI 

LFITOlO'l 

LFITOIOS 

LmOlOfr 


IF  (N.GT.O  .and.  xS.Nf.O.)  83(Y(U1).YI)/XS 
129  IF  (ND)  130,ia0.101 


ND=-1 , 1.N  LE  grate 


130  U C. NOT. WITHIN)  XOsXi 

SI  _r  (YI*,5*n*XO)*XO 

IF*  (within)  go  in*13S 

Ul  IS  BETNG  INr.RFME^'TF:D_TO_  Fivp  aPPRqPRIaTE  INTeRvaL. H£Nj;£j 

CUMULATE  THE  integral  OF  THE  I TH  INTERVAL. 

SA  X SA»S1 

GO  To  116 

APPOPRIaTE  interval  found.  X(I)«XC(Ir)-X(I»l) 

I3b  IF  (iC.EOrr)  SA=YC(1C)-S1 

IF  (IC.NEtl  )_YC(JC)aSAJi31 

GO  TO  150 

Nnao»  interpolate  fqR  coordinates 


I'TO  YC(iC)  s YltHAxO 

GO  in  150  _ 

NOsl»  FIRST  derivative 
191  YCdC)  = B 


liQ_l-£L 


-S-ICiiL 


IF  (NXC-IC)  900,160,160 
1_60_IF  (ND.NEt.(-l)_,AND,_  XC(1C).EQ.XC(TC-I  ))  lalfl 
GO  TO  lOO 


900  RETURN 


LFl T0107 
_LFII010a 
IF1T0109 
LFIIOLIO. 
LFlTOlll 
_LfU  0.111. 

LFIT0113 
_LFIT0119, 
I.FTTOI  15 
LF1T01_16 
I.FlTOli; 

-LFILOIUL 

LF IT0119 
_LF  IT0J20_ 
LFIT0121 
LFI.T012?. 
CFIT0123 
XFJXOlPjL 
LFn0l25 
LFIT0126 
LFIT0127 
LFIT0123 
LF IT0129 
-LfJJQlilL 
LF1TP131 
. LFIT0132_ 
LF 1T0133 
_LFIT0139. 
LFITOl 35 


cmainbo  hazn  block  Data 

BLOCK  data 

MAlNODOl 

MAINBOOa 

CJM10N  /TROUBL/  DERR(q) 
logical  DERR 

MAINHD05 

MAlMHDOq 

COMMON  /CBITS  / BirS»BLANK 

MAINBDOS 

e 

MAINB006 

data  oerr/o*f/ 

HAINB067 

DATA  BITS#BLANK/0577777777777.6H  / 

mainrdob 

end 

MAINHOO*) 

CMAINJ  MAIN  JETMIX  SuBHOUTTNE 

MATNJOOl 

SUBMOUTInF.  main 

MAINJ002 

COMMON  /aDAMOI/  NAM(ao) 

• . MAINJ005 

COMMON  /TAP.  / NANI  (50) 

MAINJOO<J 

COMMON  /CNFHH  / BI TSl .KERH,DOMV( 5) 

MAIN.J005 

logical  kerh 

MAINJOOb 

common  /CBtTS  / BITS.BIANK 

MAINJOOT 

COMMON  /THOUUL/  tWR,ENHMAj, INERR/PRERR 

MAINJOOB 

lOGICAi  FRR»ErRmAJ»1nERR»PREpR 

mA I nJ009 

COMMON  /carry  / NEW 

MAINJOlO 

LOGICAL  new 

MAINJOll 

common  /FIlK  / CSC 

MArNJ0l2 

COMMON  /DIFEHI/  DIP(1?2) 

MAINJ013 

COMMON  /0CMJL  / BCM(2ii) 

MAINJOIR 

C 

MAlNJOltS 

BITSl  a BITS 

MAiNJOlb 

NEW  s .TRUE. 

matnJoi/ 

CSC  a 1000. 

mAInJOIS 

KERR  = .False. 

MATNJ019 

CALL  SFTMCi ,nLANK,NAMt (21),50) 

MA1NJ020 

CALL  MOVE(l»NAM,NAMl,20.n 

MAINJ021 

C 

MAINJ022 

CALL  LLINK(6HINLINK) 

MAINJOai 

CALL  JTINIT 

maInJ02« 

C 

MAINJ025 

C 

READ  namelist  $A 

MAlNJOab 

c 

MA1NJ027 

1 CALL  JETINP 

MAINJ028 

IF(  .not. KERR  ) GO  TO  2 

MAINJ029 

ERR  a .true, 

MAINJ030 

return 

MAINJ031 

c 

MAINJ032 

2 CALL  LLINK(6HCPLINK) 

MAINJ033 

CALL  JTCIRL 

MAINJ059 

IF(  KERR  ) ERRa.TRUE, 

HAINJ03S 

GO  TO  3 

MAINJOSb 

c 

MAINJ037 

entry  errori 

mAInJOSB 

ERR  a .true. 

MAINJ039 

3 CALL  JTOUTS 

MAiNJoaO 

» c 

MAINJ091 

1 

RETURN 

MAINJ092 

end 


r 


CHAINP  MAIN  PROGRAH—CmIS  DRIVER 

LUGICAL  EUF  

COMMON  /iofile/  taptn^fapot 
L'.)GlC*t TAPlMiTAPOl 

COMMON  /cPROGM/  PHOGM 

_ integer 

COMMON  /TRO'JBL/ 

logical  . 

common  /A0AM02/ 

LOGICAL 


PRQG.M . ..  ....  

err.errmaj, inerR»prErr 
ERR,ErRMAJ,IN£RK#PRERR, _ 
rNOjOB.OUMMY (5) 

OlLLOh- 


c 

c 

c 


common  /ADAMOI/  NAmE(I0),AOORE3(IO)»TITlE(10)»IDCnT(10) 

common  /cnfile/  nf  

integer  PRFJET,GMOO#SPALoG,EMis»CFILf 

DATA  PREjET#  jETMlX#GK)0#SPALOG.EMIS»CFItE/'  

‘ 6HPR£JET,6MJETMIX#^«HGMOO,6HSPALOG,aHEHlS,5HCFILE/' 


CALL..FlGEDF(5^E0F). 
...READ  ADAMOI  block 
-Jj^REAP-CS  *^a-)_XAil£, 


READ  ADORES 

READ  (S#20)  IOEnI,,- 
20  FQRMAT(iK» 10A6) 

22  TAP'JT_s  .FALSE-. 


MAiNPOOi 
MAI.NP002 
MAINP003 
-MAIN POOR 
MAInPOOS 
MAI.NPOOb 
MAINPOO/ 
MAINPOOS 

mainpoor 

_mai.npoi.o_ 

mAInPOII 

MAINP012 

MAINP013 

MAInPOIO 

MAINP015 

-MAINR046- 

MAINP017 

MAINPOlS-. 

MATNP019 

MAIv;P020 

MAINP021 

.J1AINP022- 


tapin  s .False. 

HhAO-LSx^i»J-tiHliaM..Ugj.N.».TAPai. 

rF(  tOF  ) GO  in  1000 
2S  FjRMAJdX.Ab.ax.LlrlX.Lll- 


30  xRIIf  (6,3S)  PPJCM.TAPIN.TAPOT 
55  FORMATdHl.lOX.  IbMEXEcOTING  PROCHs.AAA. 
* IOX,6HUPIN=,l2*5X,6hTAPOIs.l2^) 


SELECT  program 


MAINP023 

MAlNP02a- 

MAINP025 

MAINP026 

MAINP027 

_MAl_NPOyS- 

MAINP02V 

MAINP030_ 

MAiNPOil 

.MAINP032 

MAINP055 

-MAI.NPOlfl- 


40  IGO  s 1 

..  IF(  PR0CM.E9.JETMIX  ) IG0«2 
IF(  PROGM.C^.GMOO  ) IgOs3 

lF(-.PR0G.M.Ef3.SPALDG.J_JG0?A. 

IF(  PROGm.ER.EMIS  } iGOaS 
IF(  PROGm.eO.cFILE  ) lGUs6 


50  GO  To  (100,200.250. 30o.aoO.S00)  . IGO 
PRE JET***** 


100  IF(  TAPOT  ) REWIND  1 

101  CALL  LL1NK(  PREJET  ) . 

call  main 

IF(  TAPOT  ) ENDFILE  1 


MAINP055 

MAlNPOSb 

MAINP057 

MAINP03S. 

MAINP059 

MA1nP04QL 

MAlNPOai 

MAINP0a2 

MAlNP0a3 

MAiNPoaa. 

MAiNPoas 

MAINP046.. 

MAlNPOal 

MAINPOaS 

MAiNPOa? 

mainposo 
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oor.  ooo  o oori. 


IF  ( EHR  ) r.O  TO  600 
_ GO  TO  ?2 

jETmIx*^*** 

200  IFf  (.NOT.TaPI»4),AND,(.NC)T,TAPOT))  CO  T 
REWIND  I 

rewind  2 
rewind  i 

_2y_r.Ai,i^  Li.iNKi  jethtx  ) 

CALL  main 

IF(  TAPJT  ) FnDFIlE  2 
1F(  ERR  ) 0 ) TO  600 

_ GO  TO  22  

GMCIP******* 

21>0  rewind  I 

rewind  5 

CALL  LL1nK(«HCMJ0). 

CALL  MAIN 

f NO  FILE  -1 

GO  Tfj  22 

spalog***** 

300  IK  TAPIn  ) rewind  2 — 

1E  ( Tapis  j j<ewino_j 

1F(  TapoT  ) rewind  3 

.501  CALI  LUNKt  5P*Lt)C_J 

CALL  MAIN 

IF(  TAPOT  j ESOFIlE  5 

IF(  F«R  ) GO  TO  600 

CO  JO  .22 

EM13»*»aa 

ROO  rewind  I . - . 

rewind  2 

rewind.  J._ 

<101  CALL  LLlNKt  EMI3  ) 

CALL  main  . _ . 

IF(  FRR  ) GO  TO  600 

GO  ro  22,  _ __  

CFILE*»**a 

bOO  rewind  I 
rewind  2 
rewind  i 
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. 1000 
loot 
_1002 


IF(  IAP3T  ) REWIND  « 

IF(  TAPIN  ) REWIND-/ 

CALI  LL1NK(  CFILE  ) 

. CALL-MAIN 

IF  (ERK.  AND.'PROGW.EQ.CfILE)  GU  TU  600 
rewind  1 „ . . _ . . . _ - 

rewind  2 

REWIND  i..  , 

lKERH.AND.’(PRnGM,Ea,jrTMlX.nR.PROGM;EO,SPALOG))  GO  TO  1002 
.GQ_-I11.22 


write  (6.601)  PRQGN 

FORM*! (//2X.RHFRR  » T. Sx . 6HPR3GM3. a6// 

» 16X,?n*«  .»UN  rEHMlNiTlON  AW) 

IF(U?(il.ANJ.(PRni.M.£a.jErMlX  .JR.  PrsGm.EO.SPAlOC))  go  to  boo 

WHITEt6,100l)  _ 

FORMAT(//////tOX.26H**«******  ENDJOH  ********«) 

-STOP 

END 


HAInPIOI 
. MAINP102 
HAINP103 

MAINPIOO- 

HAlNPlOb 
MAINP106 
MAINP107 
- MAINP108 
MAINPIOO 
— MAINPliO- 
MAISPlll 
MAINP112 
MAINP115 
mAInPI  to 
MAINP115 

I4AINP1-L6- 

mAImPUZ 

HAINPllS. 

HAINPllO 

KAINP120- 

HAINP121 


CMFMAIN  -MFHaIN-  MAIN  SijO.  FOR  MXFLUT 

MFMAlNOl 

C 

MFMAIN02 

C 

MFMAtNOS 

C 

NOVt 

MFMAINOa 

C 

.HFMAIN05 

C 

subroutine  hfmain 

mFma1n06 

MFMAIN07 

C»**»  COMMON  /riNPUT/  XX{5),R(5,S0),lt(5,S0S,RHO(S,50),XSPFCIf5,50,7), 

MFMAINOS 

COMMON  /r  Input/  xyi s)  .p f s.so)  .uis.soi .rho(s.'^O). xspeci  m.so.  i li 

mFmATNOO 

tPPSI  (5,S0)  ,r.(;(5,S0)  ,Nj.I(5)  ,NI  I 
common  /CSpECT/  NSPECi,NF,Ox 

mFmAIMO 
MFMATNl 1 

common  /JEtDAT/  NTJB£s»YPEACT(l2),TSfl2),UREACT(l2>,SPV(l2)'» 
12mwT(12),CP(  12)»FSPECl  { 12),  GHaT{12),jkF  (.121 /OTHER  t3b) 

MFMA1N12 
MFMAlNl 5 

COMMON  /RASCMP/  r>AS(ll04) 

COMMON  /CAXTAL/  X,XL,ALOr.X 

MFMAINlO 

MFMAINIS 

COMMON  /CXi  OCA/  XX(S) 

COMMON  /OPcTRL/  TITLE(20) ,PPRINT(S0) 

MFMAIN15 

MFMAIN17 

COMMON  /CInPJT/  OIAJ,oUmIX(1 la) 

COMMON  /STcTRL/  LSlA,pINAU,CHEMK,plRSTM,pUM$Tli5LtNIST,POUTl, 

mFmAIniB 

MFMAINIO 

* ALFLlM,CMTXST,0UMST2f6) 

logical  FTrSTM. final 

MFMAIN20 

MFMAIN21 

COMMON  /PORinE/  psta(io) 

COMMON  /CbrTS/  HITS.fliANK 

MFMAIN22 
MFMAIN23 

COMMON  /COxSAV/  OXSaVE 

COMMON  /XISAVE/  TXXX/lSTARX 

MFMAiNZa 

MF'MA1n25 

COMMON  /CMxFLT/  XFRACT(t?/12),XFHHATfl3,l2)»ALPHA(l2.12) 

COMMON  /rPRlNT/  PDUM(pO) 

MFMAIN25 

MFMAIN27 

A 

C 

OATA  NSX/O/ 

mF  MAI N2B 
MFmAIN'29 

NAMEl IST  /INPUT/  X.XL.NTUBES/OX, ALFLTM»CMIXST,NI3T 

IF  ( 'notTfiRSTm)  GO  To  ?50 

mFmaIN'50 

MFMATN51 

XsO. 

NQsO 

MFMAIN32 

MFMA  iPijTT 

xLsi.'a 

0X3.05 

MFMAlNia 
- MFMAIN35 

NIST  s 10 

READ  C5. INPUT) 

MFMAIN3fa 

MFMAIN37 

OXSAVEsDX 

mFMAInTB 

Nllsq 

MFMAIk^9 

CMlXSTs  2, 
too  CALL  RFADT  . 

MFMAlNaO 
MFMAlNRl  . 

IF(  PSTAin.FO.'BITS  ) CO  TO  200 

. . . DO  101  Jsl.’SO  ...  ...  ■ . _ . 

MFMAlNa2 

MFMAINOS 

IF(  PSTA(J)  .FO.’biTS  ) CO  TO  200 

PPRINTIJlz  PSTA(J)AnlAJ/l?-’ 

MFMAlNaH 

MFMAlNIlS 

- 

lOl  CONTINUE 

200  ALt)GX  = ALOG(X+l , 

CALL  NF,(NEt 

IF(  POUM(1<>).'nE.O.  .And.  X.'gE.'PDUH(1«)  ) PDUM(17)b1, 

call  HXFl'ut 

MFMA I NaB 
MFHAlNa? 

mfma iNaa 

'MFMAINa? 

mFmaInSO 

335 


IF(  POUM(1r).'>jE.O.  ) CALL  MPRTNT 

MFMAlNSl 

IF(  FIRSTM  ) GO  TO  2So 

MFHAIN52 

C 

MFMAIN53 

, C ADJUST  STFP  SIZE 

MlMAlNSa 

C 

mFmainSS 

ALFLIM«  .*95 

mFmaINSS 

NTUOFla  NTI/BFS-1 

MFmaInSI 

ALFHINs  2, _ 

mfmaINSS 

on  2a0  J=1.NTIIBE1 

MFMAIN59 

ALFmtns  AMTN| (ALFMTN* ALPHA(J,J)  ) 

HFMAIN60 

290  CnnTjNUE 

mFmAIn61 

IF(  ALFMTnTgt .AlFLIM  ) OXSAvEs  CM1xST*0x3AvE 

MFMAIN62 

250  XLs  PPRINTfLSTA)*12./ftI aJ 

MFMAIN63 

FTRSTMs  .’FitSEl 

MFmAIn64 

TF  (X.GETxi ) GO  TO  3l0 

mFma IN65 

NSX  s nSX«1 

HFMAIN66 

IFf  NSX. GT. NIST  ) GO  TO  311 

MFMA1N67 

Ox»0xSAVF 

MFHAIN68 

xsx+nx 

MFMAIN69 

IF  (X.LE.'Xi  ) GO  TO  26o 

mfmainto 

OX»XL-(X-Dx) 

MFMAIN71 

XaXL 

MFMAIN72 

260  IF  (X.l,T:XX(NTt-?n  GO  TO  200 

mf_m*IN73 

IF(NII.LE,a  .AND.  X.LT.XX(N!1))  60  TO  200 

MFM*lN7q 

c*  MOVE  OlO  oat*  hack  In  Storage  and  read  in  nen  data 

mFm*1n75  

00  soo  IslTo 

MFM*lN7b 

xxdisxxfiAi  j 

MFMAIN77 

XVdlsXYd^l) 

MFMA1N78 

00  299  Jsl.50 

mFmaTn79 

R(I»  J)sRd  + l,  J) 

mfhainbo 

Ud»J)sUd*l#J) 

MFMAlNfll 

RHf)(T»  j')sRMOfI*l»J) 

MFMAIN82 

DO  ?9fl  Ksl.NF 

MFHAINSi 

298  XSPErid,  J,K)=XSPECI(I  + 1,  J,K) 

HFHAINSQ 

GG(I.  jjsGGd+l»  J) 

MrMATNflS 

299  PPSId,J)sPPSI(I  + l,J) 

MFMATNSb 

300  NJjmeNjJd  + ll 

MFMAIN87 

GO  TO  lOo 

MFmaINSS 

C 

mfmainbv 

C*  — FINAL8T—  INCICATEO  ME  HAVE  REACHED  A PRINT  STATION 

MFm*IN90 

310  final  » .'true. 

MFm*In91 

return 

MFMAIN92 

51 1 XOIFF  « XI  -X 

MFMAIN9J 

IF(  XOIFF. 1 E."67e-7  ) gO  TO  310 

MFMAIN99 

return 

MFMATNPS 

END  HFMAIN96 

END 


CM3HCUT  MESH  REFINEMENT  ROUTINE 

3UBHnUTlNE_MSHCUT(NREG,_YM,NPDi 

L0r,TC4L  mChANG 

C_OMMnN_  /PRnE/ ^ 

• OliMf  qo0),i|5(200),  THD(?00)  ,ED(200) 

/UMFSH/._MCHANr.,CK.DVl#,NM3H4._ 

COMMON  /MiSC/  PM(IO) 

C;*<t******C* 

C* 

COMMON  /r TPL2/  DUHgOfg).  merge  » f 

COMMON  /BCO/  UO»  EO,  tho 

COMMON  /.IEtTWO/  two,  oUM55(7j 

LOGICAL  TWO»  MERGE 


-CXRCiCXTPf NRED 


llMghffcl 


COMMON  /MixER/  MT)(.RO(lOO),xO(100),CF,yRM00) 

LOG  LCIL MT  X 

COMMON  /EldSal/  MAXlT,SUPH.NTT.PSTf>»VOO,  YOC. 

. P1.P2,UCL,T0L.UP3TRMICVG 

LOGICAL  SiiPB.CVG.UPSTRm 
jrOMMON  /CNFRR/  B I T S.  EpR  . GC  .'gC  J .FOpT 
LOGICAI  ERP 

^^‘inN_/ A c ONV  C./_Y  CD(lQO).PDtlQO>,TNDf  f inol.  I 

logical  Choke#  chokEo 

COMMON  /0FlT,/_.CLSP(l00)_ 

common  /STa2/  MACH2,Ts2,SS?,V2,RHn2»6POX2 

REAL  _HACH2 

COMMON  /HCMIX2/  GRADU.TW.mUh.RHOW.PTe.TTE 

_fi£AL_HLW 

COMMON  YCBnOY/  YCBI  lOO)  ,CLSPCB(IOO)7yC01  Ut 


dimension  IHP_(101 , 

FOUIVALENCF  (IMP(l),PM(n) 

HIM En S ION  vmn 

CA 

C* REDUCE  NO,  OF_PQIJiia_lN_DaWNSTREAM.MESH_BY  NREft- 

C* 

IFdMPCl  j.Fa.oi-GO-TO  1 

CALL  TaBPRT(«HPSIH. YM,NPD, 10.0) 

CALL_lA3PRTt2HUO,UD.NBD,-LO,0-j 

CALL  TA3pRt(ShTHD, ThO,NPD, I 0.0) 

CALL  TA3pRT(2HE0.ED,NpD, 10.0) 

t KCOsNRFG 

10  YE»Ym(NPD)  . . - 

IFt.NOT.  MCHANO)  GO  TO  II 

co_-ra_d  i*2a.-2ax.— K*o 

c* 

C*  POTFnTIAi.  core  region—  

C*  RECAlCiiLATF  new  uniform  meSH* 


MSHCUTOI 

MSHCUT02  . _ 

MSHCUT03 

mSHCUIQ.*! 

MSHCUT05 

mshc'JTOO 

mshcutot 

. _ MSHCUTOB 

MSHCOT09 

mshcUTLQ 

HSHCUTII 

MSHCUT12 

MSMcUTt J 

M3HCUT10_„ 

MSMCUTlS 

MSHCUllfc 

M3HCIJTI7 

mShcuTIB 

MSHCUT19 

M3HCUT20 

MSWCUT21 

HSHCUt22_^ 

MSHCUT23 

MSHCUT20  

“SHCU725 

MSHCUT20  

MSHCUT27 

MSHCUI2a : 

MSHCUT29 

-MSHCUTSO 

MSHCUT31 

MSHCUT32  

MSMCUT33 

M3HCUTafl 

MSHCUT35 

MSHCUT30 

MSHC'JT37 

- MSHCUT3B 

MSHCUT39 

MSHCUTflO  

M3HCUT0t 

~ MSHCUT02 

MSHCUTOI 

MSHCUTOa 

MswcuTas 

MSHCUT46 

MSHCUTOT 

MSHCUTaS  

M3HCUTa9 
M3HCtlT50  - - 


11  LKb2 
IFt.NOl 


;HQ) CO-TO-6II; 


TFSTI «U0-l^E-6 


DO  fc^ll  |,»l»NPO 

IF(yo(L)  ^E^TE3IL UoCLULE.lFatui UD(Li*UO- 

6311  CONTINUE  • 

J>3 1 2_1  F ( .NOT.  MCHiNG)  GO  Tn  166 

DO  1(1  Ls2*NPo 

IF(UD(LirNr.  UCLli Gn  TO  16 

1(1  CONTINUE 

l6_Llt«L 

1 F_(l  rNQi;_X!(a  1_^.LHeRGE  ).-GQ-T.flL,tA6 

DO  17  L*IK,NP[) 

IFlUDlLiJEQ.LIOi  CO  TO  16 

17  CONTINUE 

13_LK»I 

DO  19  L*l,K,NPO 

I F ( UOii. )..  NfL._Upj GO  TO  167 

19  CONTINUE 

167  LKsL 

166  LKlsi  K*1 

NPOe^PO«NRrO  

Dr«(rE-YH(i'Kl  ))/FLOaT(NPo-LK1) 

DO  15  L*LKt_NP0 

15  rH(Ll*TN(L-l)*OY 

GO  Tn  100 

c* 

TRAMSlTInN/SlHlLAR  REGlnN—  CALCULATF  mEW  DY»I 

C* 

2^  NPOsNPD^RPQ ^ 

STf PSsFLOAT (NPO-1 ) 

nVC»YE/(rK#«3TFPS-l  .')^(CK-1  .'i 

DO  30  L«2»NP0  , 

XXPrF-LOAX(LrJ  ) , ' 

50  YH(L)»OyC*(CK**XXP-l,)/(CK-l,) 

i* 

100  IFdMPCn  .FO.O)  GO  TO  101 

CALL  TABPRT((lHP3TA.YM.NPD.10.0i 

101  RETURN 

END 


M5HCUT51 

MSHCUT52-  

MSHCUT55 

M3HrUT5a 

M3HCUT55 

. MSHCUT56 

M3HCUT57 

_ MSHCUTS8 

M3HCUT59 

_M3HCUTAfi 

MSHCUT61 

. HSHCUT62  

MSHCUT65 

M3HCUT60 

MSMCUT65 

_M3HCU16i 

MSHCUT67 

MSHCUT6B  

MSHCUT69 

. HSHCUT.7.0 

MSHCUT71 

_MSMCUI12 

MSHCUT75 

_ M3NCUT74  

M3HCUT75 
MSHCUT76 
M3HCUT77 
_HSHCUIi? 

MSHCUT79 

.MSHCUTep 

M3HCUT81 

M3HCUT82  

MSHCUT85 

_m5MCUT8P 

M3MCUT85 

MSMCUT86 

MSHCUT87 

M3HCUI88  

MSHCUT89 

_mSmcUT90 

MSHC'JT91 
m3HC'JT92 


CHXFlTI  T^JITI4TE  HR  T f PORE  nF  OHS  C43  mDOFl  AT  PACH  P«nFI|.E  SHHVEV 

c P31NT  IN  engtkje  Exhaust  planf. 

mXFlT 101 

Mxri  TIO? 

c 

sunPnuTisF  mxfi.to(j) 

HXFLTI03 

mXFlTIOO 

DImEmSIIM  7l  (n  ),SMWTM6i,7L(l<>)«ZR(n),  Ovl  («)  ,QV<’(Bi 

PFaL  N,-<F,M4rHR,MiCHL,MWTJ 

MXF  LTT05 

hxfltioa 

iNUntP  TLr.o 

Lor.ir.Ai  alf'.ifl 

HXFLTI07 
mXFi  Tins 

coM-rHj/.iFTniT/MPr  j,PAf)jn?),Tsj(i7T,iijri?),sPvJ(l?),HwTj(i?), 
•CP>I(  t?l,P!JpL3(  t <>),SPLAr.Jn7),TKEJ(1?l,nTHW.l(l?,3) 

HXFLTI09 

WXFLTIIO 

C'lMMn''i/5ASr'''P/YYK(l?.?),FK(?,l7,?).HK(2,12,?i,2K(16,2,  12,21, 
•MCTNTPfl?,?) ,nTHPK(2, l7,?,0) 

mXFlTM  1 

MXFLTI12 

COH'^nv/COlOFM/VTOL,  YO.nvnX.CTPMAX/OOlRFM/NDOT 
cnHxnv/i  V )at  a/*j*hf  , wa;»,t?,hpt  A ,i?s7f  APS,FTMn?c  Jpo, 

HXFLTI13 
mXFLTI  1 « 

• pcfu  t n . PCo?(  1 1 ) ,PHc(  1 1 ) px(  1 M.PT rn  1 ,P5(  t n ,Htnr. ( 1 n ,r  icr)C(  1 » )mxflti  is 

DATA  1 .'OOB,  1 i.nnn,  ?.n  t 6,  37.00a,  1 7 ‘oos,  1 B.Pl  A,  PS^ni  0,a/|  .Ot  0»  mXFL  TI 16 

' ?S.01h,i'>.‘^<lP,3O.00O,ia.O0P,33.O0B,U6,00P,t7.n-i^,0A.On0/MxFLTIl7 

DATA  /P,rtMC,EIMn)(,H?.Sl.,wTLl  .H7S..SW'.’uTp.CPFP.DH.HFV.CPFV/?i*0.'o/  HXFl  TT19 

oata  4pp.spvh/2»o,o/ 

AVr.  (A,Dl=YY*Afn  .O-YYSaP 

PXFLTI19 

MXFI  TI70 

c 

FGAStGlsSUBl  fr.A(7,0/f  5+1  (GaI  ,o)/(R»l  .0))) 

MXFLTI21 

MXrLTI22 

c 

c 

START  THF  FLIGHT  RFCOPDfH 

MXFLTI73 

Hxri.Ti2a 

NOOf  s'lO 
wpwlND  'in 

“XFLTI7S 

MXFI  Tt76 

C 
_ C 

RFDUCF  Gas  AkjAl  YSIS  data 

mXFlTI?T 

MXFlTTPB 

c 

CAI  L CAPnLfJ,WAR,PHC(j),PCOCJ)fKCJ3Mj),RNOX(J),FBAPS.EIHr,FIrO. 

“XFlT I?9 

MXFLTnO 

'EImGx) 

MXFLTI 51 

MXF|  TT  X? 

•SMwIfK,  1rl7n.lA10.0B*N 

. Bl^CI  =F4PS/FhARS/(  1 .0-riCO»0.’l»SjiRTti6jy2flroi-ELHt)-J..O_  . 

MXFLTI35 

mXFlTISO 

B|.nc  f j 1 = AMAx  1 (Htnccji  ,RLnc  i j 

FrtAPS  = nAp.S/f  1 .'OAFPAPSAilARi 

MXFLTI 55 

MXFLTI35 

F»‘AX  = n.r.01/ltl6  0S7*SMUtfl6) 

FHAY=FMAY/rV-Q+FHAX»WA»Y 

MXFLTI37 

MXFI  T T39 

c 

c 

c 

LOCAL  WET  AIR  ENTMALPT  tBLQC  IS  LOCAL-BT-PASS-RAT lOl  

CALL  EOGAr)TC0.O|WAR,N.T2,PStJ),.FAL5F.f  .'false. ,11, h2.  . 

MXFLTI39 

mxfltioo 

MXFLTial 

MXFLTI02 

' w1|  1 ,Sl  ,SPVL, AFl,CPFI  ) 

f all  nGASTIO-O.wAP.N.  T?S.PS{.h,  .’FALPpJ.rFAl  SF  7.21  .’hpG.' 

MxFLTiaS 

MXFI  TTUtt 

' WlLI .S| ,SPVL,AFL,rWFL) 

HASsf  1 .0YBrTA)*M2-nETA*H7S  . . . .. 

mXFlTtpS 

MXFLTIP6 

c 

HATRz(HAS»BLnc( J)*H?S)/<1 .OtRLOCEji) 

mxfltio; 

MXFlTIPS 

c 

c. 

VITTaTfD  ATR  CDHPOSITiOn 

mxFLTToR 

.llXf4.11SQ 

1 
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c 

COMMFMrE  ITtWATION  FOB  RICH  FRACTION 

MXFLTIOi 

c 

HYFLTI02 

40  IFIVYS.Gt. WMAXlYYSsrvMAX 

ArKHARS»FlHC 

MXFLTI03 
“XFI  TI04 

YYMl»j=(F:^Apr.-FRb-A*(1  .'o -F  GS  ) ) / ( FM  AX»FG5) 
IFIYyS.LT.YYmINIYYSsYyMIN 

HXFLTI05 

MXFLTI06 

FUNLTln  .0 

IFfYYS.‘LT.YYMAX)FUNLlTsA/(1.0-YYSl 

mXfLT 107 

MXFLTI09 

F L = ^■^^Ll  1 YKCS*  ( 1 .o-FHsjtl  T ) 

FRsiFyAKS-M .0-YYS)*FL )/YYS 

MXFLTI09 

mxfltiio 

c 

HTls(i;n-F| )«HATB+FL»HF 

mxfltii 1 
mxflTI 12 

MTH={I.n-Fu)*HATB»FH»nF 

FARHrFW«Mro*4*R>/ri.n-FB) 

mxfltii  s 

HXFLTim 

IF(F aRR.I 1 . 4.0)CALL  EpRORI 

CALL  FtlGASMlF  APH,WAk,M,7TR,PT(J)  ,.>Ai'SF.’.  .FALSF..7R. 

HXFLTI15  . 

MxFLTn6 

c 

• HTP,/.TP,SP,SRVP,AFP,cF'FR) 

mxfltii 7 

MXFLTI19 

c 

LFAN  Gas  CT“P3SITinN 

mxFlTI  19 

c 

MXFLTI20 

CA(  L SrT«( \ ,0,0,ZLf lb) 

CA|  L FMPvCM.1.0-FONI.lT.71,2L.in 

MXFLTI21 

MXFLTI22  _ 

2(.(  I6)=FUN|  IT/S»1WT(16) 

KTLsO.O 

MXFLTI23 

MXFLTI24  

n:i  ho  TSsl.'lh 

60  WTL  swTl  +71  f 131 

MXFLTI25 

HXF|  Tt?S 

WTL=1 .0/Hll 

HLsHTL 

MXFLTI27 

MXFLTI23 

ASSIGN  50  TO  TLCO 

GO  Tn  80 

MXFLTI29 

MXFLT130 

50  TTRtll  sTTR/TU 

MXFLTII! 

r 

Myr^  T T 

C 

coMMFNr.F  Iteration  for  vflocity 

mxfCtI33 

--  C 

mxfltisu 

QV1  ( 1 IsO.’O 

70  KFslJ»»?/S0o7?,Hft4 

“XFLTI35 

MXFLT136 

C 

c_ 

RICH  GAS  PRllprpTTFS 

MXFLTI37 

MXFt  T T A8 

c 

HKsHIR-TTRni •KF/fl.OtFTTRQI -1.0)*YVSi 

MXFLTI39 

MXFlTI4Q 

2R( 1 1 )»(FSa»S*FIMUX/46.0OH-( t .0-YYS)*7L (11 j )/YYS 

IF(  (Z-JC  1 1 1 JlT.O.O)  .'JR.  (YYS.FO.  YYHTN)T  ZRdt  IbO.'O- 

ZR^P1=o.op^ps/9<^♦(l  .n.FRi/(  1 .■o*''AR)-o,5*ZR(tn 

CAl  1.  Enr.ASlKF  ARR.hAR.M.  IP.  PS(.I1  . .F  A1  «!F  . , 'iDllF.  ,7R, 

MXFLTIOI 

MXFl TI42 

MXFLTI43 

MyFLTT/j'J 

' HP, R, SR, SPVR, AFR.CPFR) 

C = CPrR*''IR/l  .98596  . ....  .. 

• GAMR=r/(r-( ,0) 

MACHR  = L'/aFR  ...  ... 

TTPstR^XF/rPFR 
ELiHPSiP.-iAix:tA.CHa,GAiiai 

MXFLT 145 

MXFLTI46 

MXFLTT47 

MXFLTI49 

MXFLTI49 

mxflttso 
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i.n  niijai  u ..jjjjpip 


C I F*N  GAS  PPnpCPTtga 

c 

.OlXJJgflL- 1 •n91 

ASSir.N  lib  TO  TLr.O 

8 0_*  t.  F U t L = P 1 1 N L LI  ,CQ.'l.’  a 

on  loo  HCnTs1,50 

IFTTI  .1  T.iw-^.olTI  =lfl«>.0 

CAl  L F«r.AST(TL.PS(J),/l,HLX,NTLI#SI  » RPVl  , AFL  . CPFL  ) 

cal  L-Fl'f  L(  tl  f.lLiMF  VjlCEFJ/J 

Asl .n-FUMLTT 

HLX»F_yWL  rT»HFV»A*HLX 

CPFLsFU'JL  1T*CPFVaA»CPFL 

SPVLg7L(<h)*lO.‘7HP|*TI./PS(ji»A*SPVi 

DT  = (HI.-H1.XWCPFL 

TFfAHr.{!)T)  TLT.n. 05)00  TO  IIQ 

iF((fL  .eo.iftP,o)7ANh.(OT.LT.o.o))r.n  yn  los 

tF(AnS(!)T)rf:T.SOO.O)PlaS10MfSOO.O«PT) 

100  TL*Tt ♦OT 

IPS  Tpf ai  FIIPI  >03  in  1 10 

WHTlr  (#>,9  9Q'»1.J,r)T,FL*Tl.,H|  ,yV3»U 

_909<)  F0PM4T(5tH0'<XFLT0._-_irAN.GA.S.  TFlP^lIgRATlOfi  DID  NUX  CONVf-KGr.V 

• 6H0PT  Nn,n,hn  OTs,  tPFl7,fl,5H  FI  * . El  ? . R . 5H  TL*,Et2.«» 

'5m  HLa»Fl?»0,f;H lY  Ss*J- 1 a,  ^ Us»r  IP.'q) 

110  Gn  in  iLr,nT(so.'ii5) 

ns  CsrPpLAWTL/l  :9659b 

GAHLaC/(C-l ,0)  , 

A FL  aSQRl  (tlq  [ 2 1 . S7?  « G A^L /MTL  aTL  > 

maCHI  all/AF| 

TTLSTLtKeL/XPFL 

PTLPSsPRATTMaCHL.GAHL) 

r 

C FRFE  StRFAH  HASS  AND  vOLUMF  FRACTIONS  OF  RICH  GAS 

axfcah(Cahr)/fgam(gaml  )*ptrps/pTlps*sq^wtr/w'tl7»ttl/tTr) 

RaSPVR/SPVl 

YVsl'rOAA»IU(  1 ,0-YYS)/YYS 

YYsi:o/YY 

TAU*H*yY/( I ,0»YYA(B-I .0) ) 

-C 

c calculated  Apparent  Impact  pressure 

PTPSX  = (PT«PS*TAU**2aPTLPSa  ( l.’o-TAU>Ai2)/YrAJ**2*(|.'o-TAUj**?) 

^ACHI  .PlLPS»7Lf  Fp!HT«nR',MACHR»PTRH^’7R*^^*^*^  * 

9RRB  FORmaT(I32X/I0M  a***»a  Js,I3»6H  YY3«,F7.'«I,9M  ElCOXa,  1PE10.3» 

• an  l)s,OpFR,lfflH  PTPSXr,  IPEIO.  J» 

'RM  QCO*,Ei0.3,HH  ***•**, 3«IX/P0x,3HFL*. 

*E10.3.6‘(  MTl -,OPFfl.l,bH  TL»,F8.1,flM  m ACHL  a » 1 PF  | A , A , RH  PTlPSa. 
LElo^i-IH !aji4i9JtZ2Xt.llOJLLliZ2X*3F-U)^aJOOX/20X.3HFRs.EIO.’3._„ 


mxflTISI 
nxFi T152 
HXFLTI53 
- mxflTISO. 
MXFLTIS5 
.MXFLTI58. 
MXFLT157 

_pxFlTI59_ 
MXFLTI59 
.«XFlTI60. 
mxFlTIGI 
-XFLTI6L. 
MXFLTIfcS 
HXFl  TIfeq 
MXFLTIfcS 
MXFLTI88 
HXFLT167 
hXFlTJ6B_ 
PXFLTIfeR 
_P_XF.LT110_ 
mXFlTITI 
MXFLT172 
PXFLTI75 
mxfltito 
“XFLT175 
_“XFLmji_ 
HXFLTt77 
mXFlTI7B_ 
MXFLTI79 
mxfltiro_ 
hxfltibi 

-HXFuTjlr2_ 

HXFLTI63 

mxfltIs«_ 
mXFlTISS 
MXFLTIRb_ 
HXFLTIB7 
-P.XFuTI89_ 
MXFLTI89 
mxFlTT90_ 
mXFlTTRI 
HXFLTI92 
vxfltirs 
.“XFLTIRfL. 
mXFLTTRS 
MXFLTI98  . 
mXFlTI97 
mxFlTIRS 
MXFLTI99 
-PXFlTIQlO- 
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•6H  HTR  = . IPFfl. 1 ,SH  lR=,Ffl,l,8H  M AChRs , 1 PF 1 0 . ^ , 8H  PTRPS  = 
*7h  XWz,?PX/?X,  1 iElf>.5.?oxi 

,E10.'^,  MXFLTIOi 

MXFI  TI02 

Yf>=PT(  J)/PS(J) 

YTOLz  1 F-/1*V0 

MXFLTI05 

HXFLTI04 

DYnXsl .0/AVG(AFR. AFL) 

CAI  L nTRFMrJ.PTPSX.-^OOO.'/QVn 

MXFLTI05 

MXFLTIOb 

c 

IF(t3Vl  (n  .nE. 0.0)00  To  70 

mXFlTIOT 

MXFLT109 

c 

c 

check  the  CAI  CI'LATED  sample  CO  content 

MXFLTI09 
„ _MXFLTnO 

F>COx  = ( YYS»?R(7)  + ( 1 .0-YYS)*Z1,(7)  )*?fl^01/FBARa 

TF(  (YYS.F'O.'YYMAXT.AMO.'fEIrnx.OT.EIfOTTOn  TO  120 

MXFLTIll 
- hxflTH.2. 

YOsAl JG(ElrO) 

Ys-SO.O 

MXFLTIli 

MXFI  TTia 

JFffcTCnX.'GT.C.O)  YzAlC)G(EICOX) 

YTnL=lE-5 

mXFlTI  15 

MXFI  Tllb 

OYCXsO.'o 

call  OIPFMf YYS, Y,YYStFP.0V2) 

HXFLTI17 
mXF|  T118 

c 

IF(0V?(1 ) ,nE.O.O)GO  To  40 

mxflth? 

MXFLTT20 

c 

c 

AVFHAGF  POINT  PROPFRlIES  FOR  JETMIX 

MXFLTI21 
. PXFLT122 

120  EUFl  )( J)sAVG<FR.FL) 

SPI.  ■)r,J(.nrAvr,((FR-F.iEi  3(J))«*2,(FI  -F|iEL  Jrj))**2) 

MXFLTI2J 

MXFI  tT24 

rpj(.r)sAvGfcPFR.rPFL) 

MAiTjf  J):l  .o/AVGtl-0/«.'TR*  l^Q/WTI  ) 

MXFLTI25 

HXFL  TIPS 

SPVJT.n  = AYr.(SpVR,SPVLl 

144/1  .o«SR#>/7  7H.lf>s0. 'or  11  8008 

MXFLTI27 

MXFI  TIPS 

TS.K.nsO.’OplI  8008»PS(,n  *SPVj(j)*MWTJf  J) 

!JJ(J)SLI  _ _ ___ 

MXFLTI24 

hxfltijo 

c 

c 

MXFLTI31 

MXF( TTXP 

c 

YYK<.1.  llsYY 

HXFLTI35 

MXFLTI34  . 

EK(1,J,1)=FR 

FK(2.  I.  1 )SFI 

MXFLins 
_ - _MXFLTlib 

HM ( 1 , J, 1 ) =mr 

MKf?.  .1.  1 i=uL 

MXFLTnZ 

MXF|  TTX8 

c 

ifCiNcPf  J,  n«o.o 

CALL  ‘"JYE(,->,ZL»^Ktl,P,  J.l) , lb,  1 » Zh.Zk  ( 1 , 1,  J,  1)  , 1 1 , 1 )_ 

CAIL  SFTmI, ,o.O,7K( 12, 1 , J, 1 ),5) 

MXFLTnO 

MXFLT140  _ 
MXFLTI41 

MXFLT142  . 

RETURN 

ELM) 

MXFLTT43 

MXFLiJJill 
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*MXPLUT  MXFLUTOI 

subroutine  HXFLUT  . " MXFLUTOa 

C M X F LIIT03 

LOGICAL  METRO MXFLUTOO 

COMMON  /CmaTRX/  lNTRlfl2i,lNTRg  »i>ET,IFACTR MXFlUTOS 

COMMON  /CHFACT/  RH0RE*(I2)  MXFLUT06 

COMMON  /CMxFI.T/  XFRACT(l2»12i»XPRHATTlS,i2),ALPHA(t2,12) MxFLUTO/ 

COMMON  /cSPEci/  NSRECT*NF,bX  MXFLUfOB 

CJ) MHON  /cTQL 0/  YRICHO^lgi MXFlUTOR 

COMMON  /CNWNET/  FDUm(100),FuPlFL(I2),FDuMM(100J  mxfldtio 

common  /cCMECIt/  SPEclFd?)  »3PEClS(l3T,RtTIO(  12) _MXFL0T11_ 

C’  ’ MXFLUT12 

COMMON  /JETOAT/  NTl)BEs*jrRj;ACT(l2)eT8tj2j|URFACT(12i/S»»Vtl2)/ MXFLUTiS 

*ZMWTf  IPj,CP(12i,FGSPEc(l?).6HAT(12>»TKE(i2WTFR(l?).TFL»  MXFLUTl*! 

* TIMl  (<2),tIM2.0THER1  flOI M X FLIITlS 

COMMON  /GASCmP/  VRlCMf 12)»VPRlME(12),F0AlR(2,I?»2),kNTH(2»l2,2),  MXFLUT15 

_j«L  C0Nr(16,2,12»2).MCINCP(A2j.?i^  U(  1 2, 2 ) , 01IMSC2  ( 1 6B) _MxFLUT17 

COMMON  /CASTmw/  DUMTMi (96) , TAU( 12,2)7oUMTM2(AB)  ~ MXFLUtlS 

COMMON  /CmaBS/  2MASS(i2),ZMA8SM(t2)»FJELL(l2)»FUFLR(l2^ .MXFLUn’ 

COMMON  /CPRiNT/  P0UM(261  MXFLIJT20 

C OMMQN  /STcTRl/  1 STA»nUH8T(l6) MJ^Fj. UTPl 

common  /CAXIAL/  XCC*0uMAX(2)  MXFL0T22 

common  /CAC.AIn/  again. ientry ^ MXFLIITPS 

DIMENSION  FRR0R(12’)  'mXfLUT2« 

0ImENSI3N_c0NC1J7681^ ' MXFLUT25 

EOUIVAlENCF  (CnNCl(l),CONC(l*t.l»l))  MXFLUT26 

E MX£LU127 

DATA  NCOnC  /I6/  . MXFl'JTPB 

DATA  JD1M>I  Ol.O»LNEM,  JrICH,  JLEAN/12,ir2#t.2/  M^F^OTPR 

C „ MXFLUT30 

00.  1 l__lC8lj,76^9 MXFLUT31 

IF(CONC1(IC).LT,0,  ) CO’nCI  (IC)*0,  MXFLUT32 

11  CONTTNUE MXFLllIll 

NRFACTsNTUhES  MXFLUTia 

LENIR7  jt  IFNTRY»1 _M  X F L U T_3  5 

C , MXFLUT36 

IF  (TENTRY.GT.  ) ) GO  TO  100  . MXFLUT37 

call  MOVF(1»UREACT»UCi»LOLO)»12»1)  MXFl"T38 

too  CONTTNUE ^ MXFLUI.3f> 

C MXFLUT90 

C* ■-FGSPEC—  18  TME  fuel/gas  RATIO  OF  SPeCTE  *K» mXFLIIT«1_ 

C MXFlUT‘12 

c* AOO  FRTRaINEo  Mass  FLOrt_TO_TPTAL  ”aS8  nF_AMBTENT  GaS  SPECIES  mxflUT«3 

SPECIS(NSPFCI)*8PECIS(NSPECI  )tXFRACT(N5PECI*NSPECT)  mxFlUT«« 

C M X E UJ.T  R-i: 

C*  SCALE  FLOM  OF  FaCH  SPEC!  TO  INSURE  FXAcT  CONSERVATION  MXFLUTR6 

_ DO  210  <*ltNSPECl mXFlUTRT 

SPECTF(<)so,  mxflutrb 

C*  SUM  FLOW  OF  SRECIES  *K*_OVER_ALL_TUOES __  mxflUTRR  

DO  200  Jsl.NTUBES  mXFL'>T50 


200  SPEC  TF  ( K j asi^C  TX(  Kj  + Xp^HAT  (Ktji 

C 

210  CONTtNUE  

IF(  PDilHf  U)  .nE.O.  ) call  TABPRTf6HS(.ECTF»SPFCIF»NF»  10) 
S*^E_  01  FLOW  OF  SEEClESlK)  IM  **8PECT3(K> 

'C  * . ' 

IFf  POUHf  17)  .EQ.O.  ) GO  TO  2100  

WRITE  16,2) 

white  (6,6) 

WRITE  16, a) 

__  __  _ white  16,S)_lK,K=l,12i 

WRITE  16,1)  1J,(XeRACT1K,J),K*1,!2  ) , J* 1 , NSPEC I ) 


.A*  00  CONTTN I IE 

call  ALFA2fNTUBES) 

» 

^ T El  POUHll?)^. EQ.O.  ) G (LIP  2200 

WRITE  16,'2j' 

WRTTE_16,B)_  

WRITE  16,<j)  iK,Kal,l2) 

WRITE  16,3)  lJ,lALPHAfK,J),K«l,l 

k 

WRllF  16,2)  

WRITE  16,7) 

write  16*4) 

white  16, S)  1k»Ks1»12) 

WRITE  16, li  lJ,(xFRHAT(K.J).K8li 

2200  CONTINUE 


C*.  _**ZNASS**^  IS_MASS  FLOW  IN_  HI0E_-J.r 

r*  **fufll»*  is  'IASS  of  fOeL  in  tubf  -j-  in 

C«  ««FI.IE LR**  IS  '<AS S GF  FUEL  IN  TUBF  -.1,  IN 

C*  **FLEAN**  is  mixture  ratio  in  lean  CLASS 

_C? **FRTCH.*_*  ,is  MIXTURE  RATIO  IN  RICH  Ct  AS3 


IN  lean  class 


C*  **FLEAN**  is  mixture  ratio  in  lean  class 

_C? **FRTCH.*_*  ,is  MIXTURE  ratio  IN  RICH  Ct  AsS 

C 

c ^ 

-C* --FQA1R--  IS  FUFl  TO  r.A«t  RATln 

C 

c*  set  mass  flow  in  OllMMV  nOTER  tube  ..  _ . 

ZMASSlNSPErnsXFRACT(NSPECT,NSPECl  ) 

C*  RECONSTRUCT  MASS  FLOW  IN  EACH-TUBE  aT  NEW  STATION-  

DO  220  Jal.NTUHES 

ZMA  SSHi  Ji  = 

UO  220  Ksl,NSPFCI 

?20  ZMASSHIJ)*  ZMASSHlJ)tZWASSlK)AALPHA(l<,  J)  

CALL  MOVE  11,UHEaCT,U11,LNEW),12,1) 

00  411  Jsl.NTUBES  - 

FUFLI  *0, 


_MXFLUT51__ 

MXFLUT52 

MXFLUTIil 

MXFLliTSR 

HXFLUTSS 

mXFlUT56 

-_MXFLUTS7 

MXFLUT56 
hXF| UTSR 
MXFLUT60 
_ MXFLUT61__ 
MXFLUT62 

_MXFLIIT65 

MXFLUT64 
MXFI  IIT6S 
MXFLUT66 

_ MXFL‘iT6  7 

MXELUTBS 

_MXFLUI6? 

MXFLUT70 
MXFI UT71 
MXFLUT72 
_-MXFLUT/3__ 
MXFLUT74 
__MXFtlJT7S__ 
MXFLUT76 
— P-XEtmZ-I— 
HXFLUT78 
_MXElUT79-_ 
mxflutbo 

_MXFLUTB1 

MXFLUT82 

MXFLUT64 

-MJIFLUTBS-. 

MXFLUT86 
-MXFLUT8/-_ 
MXFLUT88 
_HXFLUTa9 

mxflutro 
mXFLUTRI  ... 
MXFLUT92 
..  MXFLUT93 
MXFLUTOfl 

_MXFlUT95 

MXFLUT96 
MXFLUT9/  - 
MXFLUT9R 
MXFlUTRV 
MXFLi'TOO 


FUELR*0. 

.„.mxflutoi..  .. 

ZMASSLsO" 

ZmaSSRsO. 

MXFLDTOa 
mXFI UT03 

c 

00  301  Lal>SPECl 

mxflutoo 

hxflotos 

c 

c* 

PERFORM  UST  MIXING  STEP 

MXFLUT06 

mXFLI'TOT 

c* 

calculate  mass  OF  fuel  in  each  tube  ano  Each  class 

FuFLI  »ZMASSfL)*ALPHA(L»J)*FOAlRrji‘FAN#L.LnLO)*n.-VRICH(L))* 

mXFlUTOB 

myelutO*) 

ifuell 

FUFLR  sZmASS  tL)*  alpha  <L»J>*FOAlRrJRICH.L.LnLr))*rRlCH»LUFUFLR 

mxflUTI 0 
mXFlUH  1 

C 

c* 

CALAULATF  MAsS  MFLOW  IN  FACH  TUBE  ANO  FACH  Cl  A^S 

MXFLUT12 

MXFLUL15 

7MASSLsZMA.<5SL*ZMASS(L)*ALPHA(L»J)Af  ir-VRICH(L)) 
ZhASSRsZmASSR^ZmaSSIlSaai  PHAlt  * JlAYRrCHfi  ) 

MXFLUT1« 

HXFl  UT15 

301  CONTINUE 

mxflutis 

MXFLUT17 

C* 

CHECK  FOR  ERROR  IN  MASS  FlQW  CAlCUlATIoM 

ERROR! J)sZmASSR»ZMASSl-ZMASSH(J) 

mXFlOTIB 

nXELUTl*) 

C 

XFRH*T(MF,.l)s(FuELLAFutLR)/(ZMASSLAZHASSR) 

MXFLUT20 

MXFLUT21 

C* 

CALAULATf  interim  MIXTURE  RATION 

HFTRnsZ'iASsLJCT.O.O 

mxflutpz 

MXFLUT23 

FLPRTM  3 0.0 

IF  ( METRO  ) FlPRIm  m FUEli  / ZMASSi’ 

mXFLUT2« 

. MXFlU.T25  . 

C 

FRPRTM  sFuFLR  /ZMaSSR 

mxFLUT2*> 

MXFLUT27 

C* 

CALCULATE  interim  HASS  FRACTION  OF  RICH  SPECIES 
YINTRMbZMASSR/IZMASSR+ZMASSL) 

MXFLUT2e 

MXFLUT29 

c 

c*_ 

CALCULATE  FImAL  MIXTURE  RATIOS  AT  NEW  X-STATION 

MXFLUT30 

mXFL'JT31 

FOAIRI JLFAN, J,LNFW)sFlPRIM 

SMALLFsFQAIRtJLEAN, J.LNEWI-XFRHATfNFTj) 

MXFLUT52 

MXFI  UT33 

GGG  3 AMINl (GMAI (J),  YINTRM*(FRPrIh-XFRHAT(NF, J))**a* 

• fl.-YINTRM)ASMALLFAA2) 

MXFLUT34 

MXFI  UTSS 

c 

F0AIr( JRICH» J.LNEwIs  xFRHAT(NF» J)-6Cr./SMALL> 

MXFLUT36 

MXFLUT37 

C* 

calculate  fraction  of  rich  species  AT  new  X-STATION 

YPRImE(J)«-SmAI  LF/CFQaIRIJRICH#  JrLNFwj-FOAIRIJl  FAN.’j.  LNEW)) 

MXFLUT38 

MXFLUT39 

C 

- - C*. 

ALPHA.lJfiJ.  13  THE_FRACIinH_OF  MASS  JN  tU^E  *J*  at  5TaTIDN«X,  whICH 

MXFLUT40 

EMXFLUTOl 

c* 

*?.c 

IN  tube  *l'  at  station  x*ox 

MXFLUTaZ 

MXFLUTaS 

c* 

c 

update  concentrations  at  NFW  X-STATlON 

MXFLOiaa 

MXFI UT45 

c . 

K3J 

MXFLUT4b 

MXFLUT47 

c* 

aaYYYYa*  IS  PERCENT  OF  MASS  FLOW  IN  LEliN  TUBE  THaT  IS  POURED  INTO 
YYYYiO^O  _ . . 

RImxflUTAS 

HXFlUT49 

TFIYINTRM  TnE,  1.0)  YYYY«(YPRIME(K>-yINTRM>7( 1 .O-VTNTRM) 

mxflutso 

IFIYYYY.LT.’o.’O)  YYYYbO.O 

MXFLUT51 

c 

MXFLUT52 

no  400  Tsi.NrONc 

MXFLUT55 

CONCRHbO 

cnNCi  N«o. 

00  397  K0Um=1,nSPECI 


mXFlU7S« 

MXFLUT55. 

MXFtUTSb 
.MXFi.UT57 
MXFLUT58 
mXF| UTS9 
MXFLUT60 


C*  THIS  EOUaTTON  assumes  cT^crLBM  T/LhM  MtX— NOT  LBM  I/MOI.E  MIX  MXFLUT58 

nCi.  Ns  c n n r LNT rnNC(T»  Ji  Ean,kDiim»i  ni  o)*AiPHAfKnUM.k)*(i.-  mXFiUTS? 

1 VRTCH(KDllM)  ) *ZMAS3(kO|)M)  MXFLUT60 

CONcHHscONrRHf cOHcnf_J^TCH,(<pilM.LnLD)*ALPHAfKoUM,K)*VRIcHf  MXpLUT&l 

lKnU'1)*7MASR{K0UHT  MXFLUT82 

IF(  T.EQ.’lh  ) TFR(Kf)UM)s  CONC  ( T » JRTCh#  KOUM.'LnLO  ) * Al  PH  A (KnUM»  K ) * MXFLUT63 

'*  VRIChIKOUm)  oZMASSCKOumT  mxfLUT<><» 

397  CONTINUE  «XFLU 


C0NCRH  = CriNr.RH»C0NCLN*Y7YY  MXFLUTfci 

IF(  I,F0.’l6)  TFLsCOnClN*YYYY ^ _ _ mxFLUT<>_7__ 

C0NC<I,'jPlrH'.K,'LNE.'l)=rflNCR*)/(YPRlME{K)*(ZMAS3L  + ZMA3SR)  V MXFLUTS8 

CONCfT,  JLFAN,K,LNEiy)»caNC(t,JLEAN,|^,j_OLOj  __MXFLUT69 

IFtHETROjcONCd#  JLEAN,K,1  NF.WisC  JNCi.N/ZMASSl  mXFLUT  70 

aoo  CCINTTNUE  MXFLUT^ 


ENTHLNsO. 

e'nthrh*o7 

DO  MIO  KDUmbj  jNSPECI  

FNlHLNscNTHLN+(ENTrt( JLt AN,K0UM,LOLD)4U(KDUM,LOL0)**?/50075,6iar 

L*  y.? HA 0UM>K)«(1 .0-Yq  ICH(KDUM) ) *ZMARS(kDUM1  

410  ENTHRHsEnTHRH*(FNth( JwTch,kDUM,LOLD)4U(KOUm,LOI  D)  **2/50075. 610) 

»A  A 1.  PH  A ( < n Um  , K ) * T R I C.H  ( kDUm  ) « 7ha  SSIkDUm) 

'fnTHPHsENThRM»FNTHLN*YVYV 

ENTHf  JRlcH.K,LNEW)sENTHRH/.aPRIMEtX7jktZMASSLt2MA.5SR)) 

'-U(K.L NEW) **2/50075.61 4 

FNTHtJLE  A N^tlj.LN£W3  sEljiTH  I JLEAN  « Ki  LOLQ.i 

IF(HFl WOTEWThIJLF  AN,K,LNEM)sENThUN/ZmaSSL 

'fU(!<iLNEw)**?y5Q0Z5.6i4 

TIM2  3 TAU(K,2) 

call  >1YCAHh(IO - - 

TIm1(K)=  TaU(K»2) 

CALCUl ATE  H/C  INCIPIENclES 

Oil  continue  . 

XC3«  3.*DX 


MXFLUT72 

MXFLUT73 

MXFLUT74 

. _MXFL'.IT.75 

MXFLUT76 
MXFI UT77 
MXFLUT78 

_ mXFU'T79 

MXFLUT80 

..  - MXFLL'TSI 

MXFLUT82 

.MXElUliai— 

mXfLL'TBO 

MXFLUT85 

MXFLUTftb 

MXFLUT87 

MXFLUTRS 

MXFLUT aa 

MXFLUT90 

MXFLUT91 

MXFLUT92 


IF(XCC.LE.XC3.AND.PDUm(12)  .NE.'O,)  CAi  L TABPRT  (5HZMASS,  ZMA3S,  1 2,  r 0 ) MXFLUT93 

IF(XrC,LF.XC3,AND.Pr)UM(12),NE.O,)  CA|,L  TAHPRT  (5HYRT  CH,  VRICH,  )2,10)MXFLUT94 

TFXXCC..J.£*XCJL*A.NP..PQUM(121..N£»a*lC.ALl— TAaPRTC6aYPRIM.E*.YPRl-ME*J.2..lOMXFLilT9S 

* ) , MXFLUT96 

IF(XCC.'lE.XC3.AnD.PDJm(12)  ^NE.’O.lCALi'  TARPRT  f OHCHAT,  C.H  A T . 12,  1 0 ) MXFLUT97 

TF(XrC,UF.XC3,ASD.P0UM(12)  ,NE,0,)CALi[  T AHPR  T (5HF0  A T R , FD  A T R , 24  , I 0 ) MXFLI'T9  8 

IF(XCC.'lF,xC3,AnO.PDUm(12)  .NE.O.ICALl'  T ABPRT  (5H4LPHA,  A|  PHA,  1 44  , i 0)  MXFLUT99 

IF(  POUMf 14).NE.0.  .and,  XCC.LEtPOIlMf 14))  mxFlUTOO 


n-rt 


*_  CALL  T»9PBT(6HC*8CMP.EMTH.f>60»!(>> 

IF(  POUH(U).NE.O.  ) WKITE  (6,10)  (XfRHaT(MF.  J)  , Jsl  , mSPECI  ) 
r 


00  OPO  Kal,NTUBCS 

a?0  yRICH(K)aypRIMFJKj 

C*  FQAIR  TS  not  RESET  BETMfEN  X-STEPS 

DO  299  Lal.'NTuPES  ■ 

FQaIR(J'(TCH,L,L0(.D)sFOaIR'(JRICH,L,LNrn) 

FOAIR(JlE*N»I  ,1  01  D>«FqAIR(Ji  EANH  ,i'NFM) 


U(L»I  0|  D)=II(L,LNEW) 

HCINCP(L,LQLOJ*_HClNCpJL»LNEl(i 

ENTH(JRICH^l.LOLO)s  EnTH(JRICH,L,LNEm) 

jLlAN.i.,LOLD>g-lf.MTrtjLlLE<kN/Lf.LMEi(j 

* MOVE  concentrations  From  nfw  to  old  locations  unless  you  have 

* ScKP/GcxPrr 

DO  2RS  IsI.’nCONC 

f ON  C ( I , J R I c H , L .J.nL  0)  = CON  c c J , i R I_C  Ha;4^F  Mi 

29B  CONCCI, JlEaN,l,LOLD)sCONC(I, JLEAN,L,I  NEM) 

P99  CONTINUE 


mxflUWI- 

MXFL'JTOa 
mxfi urns 


MXFLUTOa 

MXFLUT05_ 

mXFlUTOS 

mXFLUT07_ 

MXFLUTOS 
hXF^  UTOR 
MXFLUTIO 

mxflutii_ 

MXFLUTI2 

HXFLUIL5_ 

MXFlUTIR 
mxfi utis 

JUST  CMXFLUTI6 

mxflutu.^ 

mXFlUTIS 

HXFLUIl.<»__ 

MXFLIITPO 


LOGICAt 

INTEGfcR 


OUHSI (9) 

I A L , ST M »FIWSTC 


INTEGER  CHEMK 

COHION^CPRINT/  P0Um(20)  _ 

coHNiiN  /THnorit/  frr^errmaj/inerr^prerr' 

JJ)  G I CAL r»R,rpRHAj,  INEBRtPREBR 

c;)HMON  /c^iTs  / BITS#  Blank 

/CInSAv/  HGCKP(b7)  _ _ 

C'JNmqn  /kHijT/  T1TLFI(20),DUHKT(57) 
CUM«ON  /CNaSS  / nUHASS(«8) 


CUM«ON  /CNaSS  / nUHASS(«8)^  

CUmMON  /CAxIAL/  DUHAX(3) 

CIMNON  /PJPI OF/  PSTa(TO) 

CUmnun  /nJiR'cM/  KINfIl 

_ctjM‘io;^  >'_curljn./_cor^o 

CogicaiT  cobeQ 

_ 0 1 M E N S 1 J N_c  L>  S 3_(  2> 

NAmElIST/a/  PDOM»CHEHk>PSTA,N18T  ,COffEQ 

_C A LC ULALI  , and  aQJUST  CgHa  THERMO  COEFP 

._CALL  AOJAC 

INITIALIZE 

KInFIL»«0  

CALL  SfTM{i,biTS,PSTA,30,) 

call  SETMiTf 0,,POyK,2o,HClNCP»?B»TAU,2«) 

NIST  s ? 

CHFMk  « 1 

XC  « 0, 

_ LSTA  s 1 _ _ , _ _ 

FIRSTNa  .TrUF, 

FiRSrCa  ,TBUF, 


mXkINOI 7 

MXKINOie 

HXKINU19 

MXKIN020 

MXK1NU2I 

>*X<IN022 

MXKINU23 

►'XKlNUaa 

MXKIN025 

mxkinopb 

MXKIN0Z7 
■ wxKINQgB 
HXKIND29 
.»'X«INy30_ 
MXkINOTI 

HXKlN03a_ 

KXKIN035 

MXKIND3P 

MXKINOiS 

MXKINC)3(>_ 

MXKIN037 

mxkinosb, 

HXKINJ39 

NXK1ND/Jp_ 

MXKINCIPI 

NXKINOa2 

MXKIN0«5 

MXKIN0«« 

“XKlNOaS 

MX)aNQ«16_ 

MXKINCIP  7 
“XKINOiJB 

HXxINn«9 

hxkINUSO 


CALL  ERKOKWC  $300>S300  ) 

RLAO  (5»A) 

C 

c calculate  mixture  flutter 

t CALL  LLlNK(  RHLMXF  ) 

LKGCkPs  .FaL3E, 

LKScKPs  .FALSE. 

call'hfm'ain 

CALL  MOVEt?, title, TITlFi, 20,1) 

FTP'S  T«i=  .False. 

NK  s NPTS 
C 

c MIXTURE  Flutter  oata  stored  at  present  (?)  station 
C CALCULATE  MOLECULAR  HEIGHTS 

_C 

CALL  H0VE(?,HHTG(l,l,2),HWTC(l,l,l)#2<i,l,TG(l,1^3), 

^ TG  ( 1 , I , 1),2<I,1) 

OO  6 'Kal^NK 
00  S Jal,2 

~t 

C RESET  N ATOM  COMPOSITION 

_ ^ 

1 F(  CONCd?,  J,K,?)  .lE.  l.E-8  ) CONC  ( j 2,  J,  K,  2)  ap.  

S'UMC  a 6, 

_00  « Isl.U 

a SUMC  a SUHCtCONCC I, J,K,2) 

5 MWTG(J,K.2)s  l./SUMC 

6 CONTINUE 

_C 

C.  calculate  STATIC  TEMPERATURE  FROM  ENTHALPY 

C ' 

10  CALL  TFMH(  NK  ) 

IF(  P0(JM(la).EO,0.  ) GO  TO  15 

CALL  TA3PRt(6HGaSCMP,RICH,R12,  10) ; 

CALL  f AUPRT  ( 6HG'aS  T mh  , TG  , 96 , 1 0 ) 

15  CONIINUE 

C 

c***  section  to  calculaie  Time  htstory  of  reactions 


c 

00  bO  Kai,NK 

C 

C RECORD  starting  P3INT_FaR_KINETIc3  STEP  (JUST  IN  c*Se) 

C 

rewind  KINFIL 

OATA  CLASS  /«HRICM,aHLF.AN/ 

WRITE (KINFIL, I‘>3i)K,RlCH(K,2),HCINCP(K»2), (TaU(k.L),Ls1 ,2), 

* (CLASS(L),FUEL(L,K,2),TG(L,K,2),ENTH(L,K,2), (CUNC( IC,L,K,2), 
*lC8l,16),Lal,2)  


MXKINOSi 

MXKIN052 

MXKIN053 

mxkjnosjl 

MXKIN055 
MXk  1N056_ 
MXKINOST 
MXKIN058 
HXKIN059" 

^^XKlNOfc^ 

HXKrNUSl 
MXKIN062 
HXKIN063 
_MXKIN06a_ 
MXKIN065 
MXK IN066 
MXKIN067 
MXK IN068 
"MXKIN069 
MXKIN070 
'MXK1N071 
MXKIND72 
MXKIN073 
“XKIN07a 
“XK1ND75' 
MXK1N076 
MXKIN077 
MXKTN078 
MXKIN070 

MXKJN080_ 

MXK1N081 
_ MXKIN082 
'MXKIND83 

HXKINQRq 

MXKIN08? 

MXKIN086 

MXKIN087 

MXKINClflS 

HXKIN0H9 

MXKINOPO 


MXKIN091 
MXKIN0P2 
MXKIN093 
MXKIN09q 
PXKIN095 
.‘'XKINOPf^ 

“ixkinop't 

MXKINORB 
MXK  INU99 
MXKINOOO 


3 


1933  formaT(u9N  Initial  c^nBitions  fOh  last  kinftics  calculation, 

'fcOX,llHSTReAMTUar  , I?, IOX/132X/an  ¥»ICM=  ,ril.8,IOH  HrlNCPe  , 

mxkinooi 

MXKINO02 

'F11,8,12h  Time  EROm  ,tlS.8,9M  To  ,E15,8,8H  seconds, 56x/( I32X/ 
*IX,Ai|,19H  PART  FUtL=  ,E12.9,5H  T=  ,FlO.«,SH  H= 

MXKIN003 

MXKIN009 

c 

fTffH  5as  composition,  M0LES/Lb,36X/lX,8ElS,8, 11 X/iX,8E  15,8,1 IX)) 

MXKINO05 

MXKIN006 

30  GO  To  (90,95,50)  , CHpMK 

50  CALL  CHEMQ(  IbRnch  ) 

MXKIN007 

MXKIN008 

c 

GO  TO  (90,95)  , IORnCH 

MXK1NO09 
“KKINOI 0 

c 

90  IF(  LXr.CKP  ) GO  TO  91 

MXKINOI 1 

MXKIN012 

CALL  LLINK(  9HLGCK  ) 

lkgckp=  .True. 

MXKIN013 

MXKINOI 9 

LKSCKPs  .FALSE. 

91  CALL  GCKPl  K ) 

HXKINOIS 

“XK1N016 

IF(  FWR  ) GO  TO  205 

GO  TO  60 

MXKINU17 

MXKINOI 8 

c 

95  TF(  LKSCKP  ) CO  TO  96 

MXKIN019 

MXKIN020 

CALL  LLINH(  9HLSCK  ) 

LKSCKPs  .true. 

MXKIN021 

MXKIN022 

lkgckps  .False. 

96  CALL  SrKP(  K ) 

MXKIN023 

MXKIN029 

IF(  ERR  ) GO  TO  200 

60  CONTINUE 

MXKIN025 

MXKIN026 

c 

call  M0VE(1,TAU(1,2),  TAud,  1),  ii#l) 

MXKIN027 

MXKrN028 

c 

c 

TEST  FOR  print  STATION 

MXKIN029 

MXKINOTO 

IF(  .not. final  ) go  To  I 

CALL  1 LINK(9HLF1N) 

MXKIN031 

MXKIN032 

LKSCK‘'r,FA|.SE, 

LKGCKPS. false. 

MXKIN053 

MXKINU39 

CALL  SUMUP 
final  s .False. 

MXKIN035 

PXK1N036 

LSTA  b LSTAfI 

IF(  PRInT(lSTA)  .NE.SITS  ) CO  TO  1 

MXKIN037 

MXKlNOiS- 

c 

100  RETURN 

MXKIN039 

MXKTNOOO 

200  wRITF  (6,201) 

201  FnR'*AT(//?X,25HER'^0R  IN  SCKP  CALCULATION//) 

MXKIN091 

WXK1NU92 

-- 

GO  To  300 

205  WRITE  (6,206)  _ _ _ 

206  FORNAI (//2X,25HERR3R  IN  GCKP  C ALCULATKIn//) 

300  EHR_  s .TRUE. 

MXKIN043 

MXKIN099 

MXKIN095 

VX<IND96 

IF( .NOT, LKSCKP)  CALL  LL I NK ( 9HLSCK ) 

call  ERROHl  .....  

RETURN 

END  _ . . 

MXKINU97 

HXKIN093 

MXKINl)99 

“XKIN050 

351 


o « I ci  cj 


CNaHBLK »N*MWLK 

” BLOCK  DATA 


» BLOCK  Data 


( A/M 


ALPHANUMFRTC  data  for  testing  and  output 


***  FOR  GCkP-1 


AUcUST  1973  ***** 


COMMON  / LTUS  / LTHM,  loat 


COMMON  / OPTS  / TIMIN,  TIME#  BLNK#  AREA,  0UM3(9)  J 

“ COMMON  / Spec  / »nam(2#3^#  dum«'(27?5W  eepm(?) ;^TNK(i*iP 
_*_DUM'51?5^’A&J i 


h 


_L OG l.r A L TAPE  UNIT  ASStGNMENTS 1 _l , 

***  t NOT  USED  IN  GCKP-I  )»** I (_ 

DATA  LTHM,  LOAT/a,  43/  ♦ f~ 

alphanumfrtc  data  I I 

data  fT^F,~AREA/4HTlME,4tUREA/  ^ 

-- f> AI> SNA M , J F£M,_aLANK /I HV , iitj3HRHQ^-lH_^  UtT,  1 . . 

1 IH  .iH  / : [ 

A fpS.  8J/3H 


-_0*Ti TITLE/ 

* 4H  , an  , 4HKA8K,  4H*NS  , 4HEkPE,  4HRTME, 

_*  UHNT  w.  Oh  PQS,  4HT»FL,  UHAMF  , OhRFAC.  4HTT0N,  i _ 

* OHS  IN,  Oh  lea,  OHN  C2,  0HH0«A,  OHIP  F,  OHLAME, 

* QH  , UH  / # 

DATI  UnITI,UNITO/3HFPS,3HFPS/  ^ ! 

data  Bl  NK/IH  / I 

DATA  TTM'in/OHTIME/  I 


__NAMbLK01_ 
NAMBLKOZ 
NAMOLKOS 
NAMBLK04 
NAM9LK0S_ 
NAMBLKOb 
__  NAMBLK07_ 
NAMBLKOS 
NAM3LK09 


NAMBLKtO 

N*H9LKl.i_ 
NAMBLK12 
. NAM9LK13_ 
NAMBLKtO 
NAmblKI 5 


NAHBLKlb 

_NAMBLKIT.. 

NAMSLKIS 

NAMBLK19__ 

NAMBLK20 

—NAHflLKaL. 

NAMBLK22 

NAM9LK23_ 

NAMBLK24 

n*mbLK25. 

NAMBLK2b 
NAm; 


NAMBLK2B 

_ NAhblK2?_ 
n*mbLK30 
nahblk3I_ 
NAMBLK32 
_5LA)iBkJ<33_ 

NAMBLK34 

„_^NAM9LK35_ 

NAM9LK36 

NAMBLK37 

NAMBLK38 


1 


— r^fTTfiTiTmjn  raiptotiatidnI 

surhoutine  Nux?a(  p,otime,xnoi  ) 

NOX2rt001  1 

NOX2no02  1 

COMMON  /PSfQ  / FUA,RrT3#TP,X(16),0HQDMW,TEa,BfQ»XMWT»HNF0 
EQlJIV*LE‘JCfc-  (X1,X(1)),  (X2,X(2)),  (X3»X(3)),fXa,X(«)),  (X5,X(5))» 

NOX2B003 

NOx2Rooa 

• (X7,X(7)),(X8,X(8)),(X<J,X(‘>))»<X10,X(10)), 

* (Xll,X(ll)),(X12»X(l2)) 

NOXRBOOS 

NOX2B006 

Common  ^GHSC  / F(25),hH(25)»8R(25),CPZ(25),DCPB(25) 

COMMON  /nuxtha/  onoxot 

NOX2B007  1 

NOX2BOOB 

REAL  MwT,k1,K2>k3,KR1,KR2,KR3 

dimension  RK(<t) 

NOX28009 

NDX2H010 

c 

DATA  C2/.0lfc03286/»K5/40.E*l2/ 

N0X2B011 

NOX2R012 

c 

TK  « TP  / 1.8 

NDX20013 

NDX2B0ia 

HHOM  3 ia«,*P*C2/(l5q5,32ATP) 

N 3 1 

NOX2B01S 

NOX2801b 

c 

c 

determine  eoutlibrium  constants 

NOX2B01T 

NDX2B018 

c 

1 CALL  THRM(  TK,li  ) 

NDX2B019. 

NOX2B020 

EOl  3 EXP(E(9)^E(2)-F(n)-FTr2)) 

EQ2  3 EXP(F(12)+F('4)-F(11)-F(2)) 

NOX28021 

N0X2B022 

EQ3  s FXp(K12)+F(5)-F(H)*F(r)) 

K1  3 Eai»3.10Fl3*ExP(-168.187a/TKi 

NOX2Q023 

N0X2B024 

K2  3 6,<»fE0'9TTK»EXp(-3l«>,22/TK) 

KHl  3 Kl/Efll 

^0X28023  ^ 

NOX28026  ■' 

KR2  3 Kd/tQ2 

KR3  3 K3/E03 

NOX2B02T 

NOX2B02B 

c 

TIMEk  s ottme' 

NDX2B029 

NOX2a030 

c 

c 

Compute  dxno/dt  for  rk  integration 

NDX2B031 

NDX2B032 

XNOT  3 XNot 

5 Rl  3 2.*Kl*RHOM*(X9»X2*(K2AXafK3AX5)-XNOT»*2/EOIA 

NOX2B033 

N0x2fl03q 

• (KR2»x2AKRi*xl ) ) 

R2  3 KR| »XNOT*K2*XaAK3*X5 

NUX2B035  . 

NUX2B036  i 

c 

15  RK(N)  3 R1/R2 

NOX2B037 

NOX2B038  i 

GO  TO  (18,  l(>,20r40)  , N 

16  XnOT  s XNOlt,S*PK(N)*TlHEK 

NOX2B039 

NOX2BOqO 

GO  TO  25 

20  XNOT  3 XNni*RK(N)*TlMEK 

NOX2BO«1  ’! 

NOX2BO«2  - 

25  N 3 N+1 

GO  TO  5 

<40  ONOXDTs  (RK(l)*2.*(RK(2)+RK(3))tRK(<»))/6; 

XNOl  3 XNOl ♦DNOXDT»TlMEX 

Nax2floa3 

NOX2BO<4« 

NOXRBORS 

NOX2QOU6 

c 

X12  3 (K1*X9aX2aKR2aXNOTax2*KR3aXNOTAX1)/R? 

NDX2B0<17 

noxrboob 

c 

100  RETURN  

t 

N0X2B049 

NOX2B050 

] 

) 

i 
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CNWNET_  CDniVfRT  JETMIX  profiles  to  FlXFOrwUMflER  stream  NIFT 
C suitable  for  MlxlNIG-REACTlON  CALCULATION? 

^ 

subroutine  NEMNET 

c _ 

integer  ag'aIn 

__  REAL  mwTjX^M^T0_  _ _ 

DIMENSION  GJXfSO)iwKC.fX(SO,  12)  ,UOF(l?) 

_C 

COMMON  /CAGAlN/  AGAIN 

C3«MflN/CTNPJ‘f/niAJ,DijM3((!>a) 

COMMON/JFTnA^/N.RADC  I?).T0f  l^l.UOai.SPVOl'l^TjMWTOf  I2)7cf 

'F0(l?).Gf  l?),TKeof  IP)  ,OTHRO(3<i) 

COMMfiN/ccHFCK/OUMrtf  1 21  .wKTOTf  12)#DUMs(12) 

C 0 M M f^/ C N wjo  E V /WFC  JX  f -So  ),  nUM  b ( 50  )»WFCIIm(  12). '0UM7fS0i.PS  ID 

COmm'on/CSI'fC]  /m.nF.OX 

CO^'^nN/clNP'il  / XXf  S)  .R,IR(5.50)  .UJR(Sjio).RHgjR(5.50)/ 

IXkJHT S.bO, 13: .PSIJR(5,50),GJR(5/50).NJJ(5) JnII 

COMMQn/CaX  T At /DUMB,  OUmR,  X 

COM-nN/CLUrAl  /RJX(SC)  ,UJX(50).DUMi(i(,;0),XK,ix(50,13)'»NJ 

TJO”  " "iN/r  u XFjJ/^NU.?,JL2l,iia*mi..l?hAl>HA.M2.iej 

COMMfiN/c«ASS/wIObDf  1 2)  »mT(1T(I2)  ,DUM1  i (24) 

CnM«nN/GASTMW/f)UM)  (RB),iAUCL2..2lA0UM2.C4a-i 

COMMON  /rPRiNT/  P0UM(20) 

OImEnSIOn  rFACSP(l3)  _ 

FQU I valence  (CORFAC.CFACSPdi)  ) 

X 

c FIRST  time  Thru,  DERIVE  CONTInUITT  check  parameters 

X ,, 

IF(AGAIN.EQ.(-1))G0  TO  12 

’r^~  REPEAT  PREJEt  CAI  CULATION  of  IN'nUL^lsFTREAS 

X 

c set  up  specie  flow  matrix  for  initial  STeP^PROFIlE 

~~  call  SrTM(2,0.,WHAT, lS6,WTnT,l2) 

RTI2  = 0.0  , 

WECJM( 1 )s0.0 

DD_1P_J  = L»-SI 

RTn2r0.5*fRAO(.t)**2ARAO(J+l)AA2) 

1F(J.'E0.N)RTO2  = RA0(M)aa2  . 

AT0S3.) ai5o*(RT3?-RTl?) 

RT12=RT02  _ . 

C 

X lOlALJLOi*  aF_JEA£:H_SP£ILl£_ATiD 

C cumulative  Fuel  Flow  in  each  tube, 

c 

WKT3T(U)=AtO*U(  J)/SPVO(.I) 

WTPI(J)S. ^KTUT(J)  . 
whaTij.JIs  WKTnT(j) 


CP0(!2), 


N^nETOO  l__ 

NWNET002 

NWNFT0Q3 

NWNET004 

._.NWNET005 

NwneTOOB 

NWnFT007_ 

NwNETOOS 

NWNFTOOR 

nwnETO 1 0 
__  NwnFTOI  l_ 
N-IINET012 
NWNET013  _ 
NWNET0t4 

NW.NETQ15_ 

nwnetois 
_.-N.«ineT017  _ 
NWNETOlB 
-_>.'wNET019. 
N.vNETOEO 

K'AHLUZX- 

NWNET022 
_..>IWNET023. 
NWNET024 
NWNET025  . 
NWNFT026 

N;<MEJJ121_ 

NWNET029 
_ -NIvNEI02.9_ 
NWNET030 
NWNET051  - 
NftNET032 

NA'NETCLSi- 

NANET034 
, NANET035 
NWNFT036 
NANET037 
NwNfT03B 

^VhNETfl3.9_ 

NWNF  To«0 
. . NwNEI04l_ 
NWNET042 
NANFTO'13 
Nt*NET044 

_NftNEt04i>__ 

N « N E T 0 U 6 
N w N F T 0 1)  7 
nwnE  T04S 
Nf.NET  04  7 

n^netoso 


J 


ntn  rtorxrt'  non  no  non  , no.no 


P* 


■S’  " " I ■ ' .1  f 


WFbFoI.DwWkTOTTJ) 

NWNFTOSI 

WFCUM( jfl )«HFCUH( J)*HF 

10  CONTINUE 

NWNET052 

NWWCT05I 

C 

C SET  SPFCIES  flow  maTRIX  AT  OLD  STATION  EQUAL  TO  PREVIOUSLY 

N*.NET054 

NWNET0S5 

c derived  Flow  matrix 
c 

NwnETOSS 

NWNET057 

12  DO  14  Jsl»M 

NWNET058 

14  CAI  L HOVECI  >WHAT(l«J)<W(l«ji.t?,li 

nwmFTOST 

c 

c STORF  total  flow  IN  EaCH  TUbF  AT  OLD  STATION 

N«nET060 

Ni<nfTOSI 

C 

NWigET0fc2 

CALL  M0VE(lfWT0T.WT0L0»12.n 

NWNETOfci 

C 

C INTERPOLATE  WITH  AXIAL  DISTANCE  IN  JFTmIX  PROPERTY  TABLE 

NWNETOSa 

NWNFJofcS 

C from  RfAdT  to  establish  JETMix  PROFH.E  AT  X, 

C FIRSTfRAOIUS  (RJX)  AND  VELOCITY  (UJX) 

NWKJFTOS& 

NWKET0A7 

C 

20  NjaNjJd) 

NWNFT0A8 

NWNETOfcR 

DO  So  Jjal.'NJ 

call  lspfit(xx,rjr(i, jj),Nn,x,RJxcJ,i).i»oi 

NWNET070 

NWMET071 

CALL  LSPFlT(XX.UJR(l«.rJ).Nn«x«UJxrJ.I)«l*0) 

NWNET072 

C GET  MOl  E'FR»rTlbN'OF'~SPEClF"  {("at*  POINT  "1J  (XJTjxi  AND 

C BEAN  molecular  weight 

C 

NWNET07J 

NHNET074  ’ 
nw>jfT075 

NWMET07b 

MWTJXSO.O 

wwNFTn77 

DO  30  K*I,M 

_ CALL  LSPFIT(XX,XKjR(I.Jj,Ki.N^I,X.XK.fX(JJ»K),1.0) 

NWNET073 

NWNET079 

SO  MKTJXsmWTJX*XKJX( JJ,K)*MHTO(K) 

C 

NwNETOBO 

N"NETnBl 

c convert  moIe  fractions  to  Mass  fractions  ano 

n«neT0B2 

C compute  fuel  mass  FRACTiOm  (STORE  In  XKjX(JJ,M«-n 

m«»'FTO«  I 

c 

XKJX(J.J,NF>bO.O 

^W»lET0B4 

NwNETORS 

DO  40  KSl»M 

XWJXF  JJ,K)rXKJX(^JJ.K)*MwTO(lO/MWTJX 

N*NETOBb 

W<*NETnA7 

40  XKJX( JJ,NFi aXKJX( JJ,NF)tXKJX( JJ»IO«FO(X) 

N<iNEl  0A8 

N»*JET0''9 

MsNETO^O 

MwNFTOQl 

l.g*.MFT092 

NfcwFT0*»5 

►iKMETO^U 

nwjwFTOPS 

MP.NFT095 

f.4»>pgETOfl7 

N»«*JET098 

N-NET099 

SwmETIOO 


C GET  SPaLOInG  HFTEHOGEnIFTY  FACTOR  GJX 

CALL  lfit(xx,gjr(i » jji rNiTTx7GJx7jj)7f7oy 

iO_CONTINUE- ^ 

C GET  VaL'»E  of  STWEAM  FUmCTICI».  (PSIJX^  tT  POT^T  JJ,  TmEn. 

c cumulative  Specie  flows  (wkcjx)  and  fufl  flow  (wfcjxt 

~ PSIJXirisO'o  ~ ' 

WFCJX(1)«0;0 . 

00  SS  K*1 »M 


SS  WKCJYdfKIaO.O 

NWNETIOI 

DO  6S 

CALL  1 FlT(yY,PS|JRf  1 .,l.n,NTt»  Y.P3TJX<JJ>;i.‘oi 

NWNET102 
nnnETi OS 

OMjxsPsi.txr  jj)-psijx(jj.i ) 
no  bn  Kst,H 

NNNET104 

NWNETIOS 

bo  aXCJXf  JJ,K'>aW«CJXf  JJ-I  »K  Wo.SAtXKJXIJJ-i  ,Ki  ♦XKJX(J.I»K))*DWJX 
bS  WFCJX(  JJ):wFCJX(JJ*l  UO.S*  (XKJX(JJ.l,l4Fi»XKjX(JJ»NF)  iaOMJX 

NWNETlOb 

NWNET107 

c 

c 

scale  EUFL  F| 3WS  TO  MATCH  JET  EXIT 

nWnETIOB 

NWNFTl 09 

c 

CORFACaWFCMMfMl/MFCjXfNj) 

NWNETiiO 

NWNETlll 

DO  To  JJat.NJ 

70  MFCJX(JJ)*wFCJX(JJ)*C0RFAC 

NWNETllZ 

NWNET113., 

c 

c 

TABULATE  RADIUS  ANO  SPFclF  FI  nWS  AGATN«T  FIIFl  Finw. 

NMNETtlQ 
. NWNETl  15 

c 

c 

INTERPOLATE  TO  GET  REACTION  TUBE  BOUNDARIES  AND  SPECIE  FLOWS.' 

NWNETllb 

NWNETl  1 7 

CALL  LSPFlT(WFCJX»RJX,NJ,WFCUMtRAorM70) 

DO  7S  Kai.M 

NWNETl  18 

NWNETl 10 

7S  RAO(K)a  SQrTI  RAO(K)  I 

00  On  Kal.M 

NWNETiPO 

NK’N£T121 

c 

CALL  LSPFIT(WFCJX,WKCJX(1,K),NJ.WFCUm,WMAT(1»K),M,0) 

NwNET1?2 

NWNFTI2S 

c 

c 

convert  CUhUi atIVE  SPECIF  Fi nas  TO  InCrEHENTal  F|  OWg  IN  EACH  TUBE 
invert  specif  flow  matrix  using  alpha  for  temp.'  storage.  

NWNET124 

NWNETl?'* 

c 

DO  80  Jal.N 

NWNETl2b 

_NHNFT1?7 

WHATf J,K)swHAT( J*1 .K)-WHAT( Jf X) 

80  ALPHA(K,.J)aaHAT(J.Kl 

NKNET128 

NWNFTl ?9 

90  CONTINUE 
on  ion  jsi'.'n 

NWNET130 

.NWNEIjJl 

c_ 

100  CALL  MnVF(1»ALPHA{l,J),MHAT(l,J),I?,0 

NWNETisa 

Ukur T 1 1 T 

C iNTCr.RiTF  VEl  DCITY  ANO  ME  TERPCFNE  I TY  ArROSS  EACH  REACTION  TUBE 

C ja.GET  NFAN  VALUE- 

NWNETim 

MHNFTf  XS 

e 

UDFlIIx  UJYll) 

NWNETl 3b 
nwmET| 37 

G(l)  a r.JX(l) 

CAl  L 1 FI  1 1 uFC.IX.U.!X,N  I.WFCUMf  UOF-m".!) 

NWNET13B 

NWNFTl '9 

CALL  LFIT(MFCJX,CJX,Nj,aFCUM,r.f  H,-T) 

DO  no  Jsl.N  . . 

NWNETl 40 

NWNETt4l 

DriFawFCUM(.l«l  )>HFCUM(  j) 

Ufj)s(uDFf.i»n-uDrfjn/nwF 

NKNETi42 

NWNET143 

110  CIJIaAHAXl  (0.0.  (G(J«n-G(ji)/OWF) 

Gt-j  = 0* 

NWNETI44 

NWNFTl as 

c 

c 

c 

CORRECT  SPECIE  FLOWS  IN  EACH  TUBE  SO  THAT  TQTAL.ELDw  OF  EACH  SPECIE 
agrees  with  tnitiai  Value,  air  flow  left  as  ts. 

NWNETJ  ub 

NWNETiUT— 

VwNETlflS 

_ c 


on  140  Kal.N 


S<(NET|4'> 

NkVETISO 


CNWPS!  REOTSTRIOUTia*j  OF  STRE*H  FUNCTION  FROM  JEIMI* NWPSloOt 

e 'based  on  last  known  flows  in  NfWNeT  tubes,  NWPSIOOZ" 


c 

NWPSI0Q3 

subroutine  NEWPSKPSInEW.NN) 

NWPSIOO4 

c 

NWPSIOOS 

dimension  PSINEwISO) 

NWPSI006 

COMMON/ChaSS/OUMJ ( 1?) .FLOW! 1?) .dump (pa) 

nwpstoot 

COMMON/ JETdAT/nT, RAO{ l2) . Tfl2),U( IP). *SPV(l?),DUM3(9<>i 

NWpSIOOS 

c 

NWPSIOOR 

c 

BASIC  NUMapR  Of  psi«3  PpR  nfwnet  tube  iNo  Last  tube 

NWPSIOlO 

c 

NOT  TO  RECEIVE  EXTRA  PSi 

NWPslOl 1 

c 

NWPSI012 

NPTBe{NN-l I/nT 

NWPSI013 

NTXt=NT-MOD((NN-t)*NT) 

NWPSIOlO 

c 

NWPSIOIS 

c 

FIRST  PSI  IS  ALWAYS  CENTERLINE 

NWPST016 

c 

NWPSI017 

N:1 

NWPSIOIS 

PSINFW(N)a(),0 

NwPSIOlR 

c 

NWPSI02O 

c 

STEP  FROM  tube  to  tube 

NWPST021 

c 

NWPSI022 

DO  20  Isl ,Nr 

NWPSI0P3 

c 

NWPST020 

c 

FRACTION  OF  FLOW  IN  THIS  TUBE 

NWPSI025 

c 

NWPSlOPb 

OPSIsFLOw(T) /FLOW! NTT  1 ) 

c 

NWPST028 

c 

NUMBER  OF  PSf'S  HERE  AND  INCREMENT 

mkP«;I02'» 

c 

NWPSI030 

NPTsnPTB 

NWPSTO'i  1 

IFd.’CT.NTxnNPTsNPTBTl 

NWPSI032 

DPSlsOPSI/FLOATtNPT) 

NWP<5TnA3 

c 

NWPSI030 

c 

FVALUATE  PSI'S  in  THIS  TUBF 

NwPsinxS 

c 

NWPSIOIS 

DO  10  JslfNPT 

„ „ NrtPSI037 

NSNtl 

MwPSt038 

10  PSINFW(N)sPSINFw(N-1)tOPSI 

NwP';TftI9 

20  continue 

NWPSIOOO 

RETURN 

NhP<(Toai 

c 

NWPSI002 

_ C - 

IN  THE  BECINn1NG*_-THERE  ARE  NO  FLONS 

NWPSIOOi  

c 

NWPSIOOO 

FNTRV  NEwFl 0 

NWP'STnn^ 

NTIsnTtI 

NwPSIOOb 

. . RTI2  = 0.’0  _ . . . - 

NwPSIOOT 

FLOWfNTlisO.O 

NWPSIOOS 

■ . 

DO  30  I«1.NT  . _ _ 

NWPSIOOO  

RTO2s0.5*{RAD(n*A2TRAD{lTl  )*»2) 

NWPSI050 

. 'J 


1 


I 

I 

■3 


I 
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TF(!.EQ.MT^RTa2iW>0fNTH*»g 

FtOW(na5,l(»159*<RT02-RT12)*lJ(n/8PVn) 

Fl OX(NT 

30  RTI2«RT02 

RFTURN 

END 


NWP3I05L 

►JWPSI052 

-N-^PSim 

Nwpsiosa 

_nwPSI055_ 

NWPSIOSb 


COUTPP  r.E»JERAL  nUTPUT,  UNIT  CflNVERSTONS*  ETC 

subroutine  OUTP 

c 

nuTPPool  _ 

nUTPP002 

nuTPPoos 

c 

c 

OUTPUT  CAN  rE  given  IN  (1)  INTERNAL  fCCS)  UNITS,  (?)  EPS  UNITS 
(3)  SI  UNITS 

ouTPPooa 

OUTPPOOS 

c 

logical  ALI  m1,C0NC,DBijG0,FXCHR,NEXT,RU0C0N#TC0N,BRTEE 

PUTPP006 

nuTPPooi 

c 

REAL  moot, TVAR,N,M,MW,MIXMW,H?,MACH,i’sUHM 

OL'TPPOOB 

OUTPP009 

o io 

1 

i 

. 

— 

,01»EnS10n_sPNM(2,27)  ,pRC(2S),PRX(3(i)7xXH(30),'EsP(?.25)',‘D|/M1  (<in 

CDMMns/OPTs/VERSI,  TTMfV,  VFRSA,  AREAV,Pi  Ir.TcON/RHOCON.’IpRCOO 

nUTppol 0 

OUTPP01 1 

OUTPP012 

OUTPP013 

C0"‘'n'./C3Sn/DVAH,  *Rt:A  , HnnT.P,  I vAR,  v,RHO,T,SIr,MA  (PS)  , LS,LSPT,NExT  nuTPPOl  « 
C3”"‘'0S/SINT/HMTN,HIN1  .hn.hNPI  AVH,hMAX,Et>RN,.ICV,K0llNT,EPRPni)TPP015 

— 

CO«''n''/<nUT/TlTLE(20),UMTTT,UNlTO,cONC*FXCHR,r^KLH(TO),FPS,SI,PBllGOnUTPP01b 
CaM>'.ns/RFAr/LSR(<l,5n),Xx(3O),RATF(30),LKEG(3P),DLKFG(3O),flM(50),LPf^UTPP0l7 
CnM«nM/RRAT/A (30),N(3o j ,KACT(30),B(3ft),M(?S,30),ALLhl  nUTPPOlS  * 

COPMON/AFUN/CNTa) , ITPs2,LSnflM,FTA,r),vISC,BFTAL  OUTPPOlO 

CnP«frJ/S?Lr/SNAy  (?,  lO) , m;*  (?S) , W(?S)  ,STnjC  {?s,  30)  , DmFGA  (?5,30) 
C0MMns/XVSA/XTn(/U)),ATH(a0),NTH,XU,Aiir2)»CX(0),HRlFF,TTNLMT 

fiUTPP020 

OUTPPO?! 

COM -<n  s/NfCr/RR,“IXHW,M?,  GAMMA,  TCP  R,R 

COMMOX  /PORf/Pk  (?f4)  ,r,K(?(U  ,RK(?R)  ,Er2B) 

tlUTPP022 

PUTPP(i?3 

■ — 

COMMns/OFRN/FCPB), Alpha (?fl), beta (2B»?B) 

COM-nN/SxTP/MECL ( 25) , T 1 f T2, IT 

COHMriN/r.HSr/GRTIPS)  ,HRT  (?S)  ,SR(25)7co'U?5),DCPR(25) 
COmmom/SaBS/SI,  AA,Hl3»S2,OA,r)2A,OTERM.';HHO 

OUTPP02« 
nUTPP025 
nuTPP026 
nUT  t»P027 

c 

FQUIVALENCF  (SPNM,5NA-(  1 ,/j)),  (0LAN«,SPNM(i7?7)) 

niJTPP02S 

nuTPPOPR 

c 

equivalence  (PRX(n,xxM(n),([)i)Mi(i).ESP(i,i)) 

DUTPPO50 

OUTPP031 

c 

ENTRY  OUTl 

nuTPPO  52 
nuT?P035 

c 

** 

TITLE  PAGF 

JF  (VERSi  7En.  timfv)  gq  to 

nuTPP03a 

OLITPPOSS 

1 « 2 

GO  TO  99 

flUTPP036 

PIITPPP37 

R8 

9R 

Isa 

IF  (versa  ,Fn.  ABEAV)  T m I - I 

nuTPPOSB 

njTPi’PiR 

too 

GO  Tn  (I00.?00,300,a00),l 

MRITF  (h.ion 

OUTPROOO 

OuTPPoal 

101 

200 

^£LL 

format  ( 1 H|  , iax,2lHr)IsTANCE-ARFA  VFRsIOm) 

GO  To  3 ^ . 

NRITF  (e>,?ol) 

FORMAT  (lhl,12X,25HDlsTANCF-PRESSURE  VEtaiOAli 

OUTPPOfl2 

nuTPPoa) 

nuTPPoaR 

„PUIPP0O3 

300 

301 

<100 

GO  TO  3 

RRITf  (6,301) 

format  (1H1,16X,17HtImF-ARFA  VERSION) 

GO  TO  3 

RRITf  (6,901) 

nuTPPoab 

nyTPPoal 

dUT^RObS 

ouTPPoa? 

nuTpposo 

361 


aoi  format  (1H|,!«X,21HTImE-PRFSSURE  vfrston) 

3"wRITf  (b.'lo?)  (T1TLE(:i),1*i',20  j 

10?  FOR M A T (1H»,<|<»1(,3 3Mr.EvEWAt  CHEHlOi  ifTNFTirS  PROGRAM, 1 1 X ^ ?6HnA5a 
*FwIS~ReSf*RCH  tENIER///?hX,?nA«///9X,8MRFAcTI0N,  31  XjRHREaCTI'on, 

* 38x,?3HREACTinM_RATE  V AR I A9LES/1 0 X*  AHNumBER,  70  X , J H A , 1 6X.’ » HN,  9)(, 

* lOHACTIVATlON/l 19X,6hENERGY) 

KETsI  

IF(BRiFF)MRlTE(3)KEY*TtTl  r.UNIT3»FPS,3I,LS,SPNM 

_£ 

C PRINT  reaction  information 

DO  b J«1.LR 

N1  S USRM,J)  ■ , 

N?  e USR^2^j 

N3  s lSR(3.J) 

NO  = LSRfO'Jj) 

write  (6.103)  J. (SPNM(I,N2) ,Isl,?),(SPNH(I,N3), t=l  ,2),A(J)»N(J), 

* EACT(J) 

103  format  (12X.l2.?7X,?Aq,2X,  lH«,2X,?Aa7^.  1 PE  1 2 .’Sf  SX.  OPFl  0 ,0 . S*. 

^ F10;2) 

IF  (Nl  ,GT^  0)  GO  TO  5 
IF  (Nl  .Lt-  J) 


Nl  « ?6 

_ GO  T0_205__ 

0 WRTIF  (6,105)  (SPNM(I,N0),I«l,2) 

._105  EORhaT.  (lMA^{,3*,lH*,2Xt2AR}  - 

GO  TO  6 

5 IF  IHU  .Gt’  fl)  GO  Tn_20S 

IF  (N«  ,lT.  0)  GO  TO  ?0fl 

- . N«_*-26 

GO  TO  205 

20a  WRITF._(6.It05)-(SPNM(I*Jlljf  lai.Zi—  - 

1105  format  (1Ha,27*,2A«,2x,1Ha) 

GO -10-6 

205  WRITF  (6,ina)  (SPnm( i .N)  ) . Tsl  ,2) . (SPmmI I. N4) I«l  .2) 

l0fl_FaRMAT_£lM*,27X.2Aa,2x.4MA.25X,IH*,2x,2Aa)  _ 

C 

...C CONVERT  JICIIYAT ION  EnErGY.  IU-fl*FACTOR 

6 R(J)  3 EACT(J)/1 .987165 

_£ 

IF  (.’not.’  aLLmI)  GO  To  7 

. . HRITE_(6,106)  

106  format  (///51X,29HALL  ThIRO  800Y  RAlfOS  ARE  1,0) 

GO  TO  13 , . _ . 

C 

2-J<RIlF-r6.107) - 

107  format  (///aiX,50HALL  ThIRO  BODY  RaTi33  ARE  1,0  EXCEPT  THE  FOLLOW 

*NG//) 

K 3 0 ' 

DO  12  131, 1 S . 

DO  1?  J3l,| R 


OUTPP051 

nUTPP052 

_LnUIPPQS_3_ 

o'uTPP'osa 

OUTPP055 

OUTPP056 

OUTPP057_ 

OUTPP058 

_aLILPPfi55_ 

OUTPP060 

OUTPP061 

OUTPP062 

OUTPP063_ 

OUTPP06a 

_DUXg.PttAS- 

OUTPP066 

OUTPP067 

0UTPPCI68 

DUTPP069_ 

OUTPP070 

nUTPPOTl 


OUTPP072 
DUTPP073 
OUTPP070 
OUTPP07S- 
OOTPP076 
_OUIPP07J_ 
nUTPP078 
OUTPP079- 
OUTPP080 
nUTPPOBl 
OUTPP082 
_nuTPP-oa3_ 
ouTPPPBa 
OUTPP085 - 
nUTPP086 
ouTPPoa; 
OUTPP086 
_ OUTPPOBI- 
OUTPP090 
OUTPP091 
OUTPP092 
nUTPP093 
0UTPP09« 
X1UTPP095^ 
nDlPPORO 
nUTPP097 
OOIPPORS 
nUTPP099 
OUTPPlOO 
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IP  (M(If  J)_.EO._  l.J_GO  TQ  12_ 

K s K ♦ 1 

J P_( K .*EQ.  S)  K g i 

fin  fh  (H,9, 10, 11 ),K 

WRITF  (6.10B)  fSPNM(K,I),Ksl,2),J,M(j,Ji 

format  (5X,'?HM(,2AR,lH,,i?,5H)  =,FiO;5) 

GO  Tn  12  _ 

WRITF  ffc.lO^j  (SPNM(K, 1) ,K=1 ,2), J) 

J l^M  A T (lH»,3bX,2HH  f IH,  , IP,3Hi  ».F10«S) 

fiO  Tn  12 

wRITF  Jb,  1 1 0)  cSPNM(K,I),k=1,2),J,m(t,J). ^ 

format  (lM*,6flx,?HM(,?AR,lM,,l2,3Hi  e,F10,5) 
GO  Tnj2 

wrttf  (fc.iii)  (Spmm(k,i),k=i,2)»j,m(t,j) 

_FnPMA  T (lH»,100X,?HM(.2AR.tH..l2,3HT  a.FIO^S’ 
CORT^^^UE 


.OOTPPlOl 
OUTPP102 
_Di'J.?PL0A. 
nuTPPioft 
nuTPPios. 
nuTpPiob 
OUTPPI 07 
nuTPPloa 
nOTPPl OR 
nuTPPi  10 
.nuTPPni_ 
OUTPPl 12 
DUTPP115 
OUTPPl 1« 


OUTPPllt> 
0UTPPH7. 
OUTPPl  18 
OUTPPl  19 


1 IF  <VERSI  .En,  TIMEV)  GO  TO  id  OUTPP118 

wRITF  (<>,ll2)  HHTN*HMaX,hINT,EMAX  OUTPPllR 

» FOR«aT  (///S8X, POHlMpr, ration  CONTROrsZ/l  Sx,  1 THMInTMOM  STEP  SiZF*  nuTPP|20 
J»_E  I « .‘S,3m  rM,3  SX,  17HMAXT  mUm  step  ST/F,F  1 0 . S,  3H  CM//1SX,  17MTkitTTa(,  nuTpPl?! 

• STEP  3I/F»ri«.S,3H  CM,33X,22HviAXltAUM  aELAllVF  FRRORjFfo.S)  nuTPP122' 

GO. To  15 ; nUTPP123 

i WRITE  (h,'ll3)  HMIN,wM/yX,HlNT,EMAX  OUTPP129 

i FOR“aI  (///5hX,20HlNTFGRATION  t OnT ROi'S//l 5X, 1 7Hm  Uj  I MUM  STEP  SlZF»  nUTPP|25 

• £1«.’5,'<IH  SCC,32X,  1 THmAXIMUm  STEP  SI7E»  F I 0 Ts,  «H  SET //I  SX , 1 THI M T I ADUTPPl  28 

• L SiFP  .ST/F>F1R.5,0H  SFC,3?X,??HMAXI*1UM  RFIATIVE  FRROR.FlO.S)  OUTPPlPT 


C 

IS 

n« 


SFCONO  PAGE  

WRITF  (8,n«) 

format  (IHi  ,S0X,31H**  ASSIGNEO_VARIABLE_PRnFlLF  ••//)_ 
GO  In  (IN, IB, 19, 19,20), ITPSZ 


nUTPPl28 

OUTPPIPP 

OUTPPl 30 

PUTPP131 

nuTppr32 

nU.TPPl33_ 

OUTPPl 39 

0UTPP135 

ni.iTPPi38 


> GO  Tn  (116.21h,3l8,9l6),IPRC00  OUTPPlsa 

ASSIGufO  VArIAOLE  TABLE OUTPP135 

i,  write  (b,ll7)  XU,AU  nilTPPl38 

r format  (39x»<'9uthe  arfa  is  calculatfo  by. .Interpolation  from  thf  fjoiitppi37 

• LLClwINfi  table //38X,  IHsTaTION, 10X,17HaXIaL  OISTANCE  ( , A 2 , I H ) , 1 0 X , nuTPPl33 

_*_J  H AREJ L^yiiALiJJLLJ O U T ? P 13 .1 

GO  TO  516  nUTPPlOO 

) WRITE  (8.217)  XU,AU  ..  . OjTPPlOl 

r format  (32x,(>rhthe  pressure  is  calcUlatfo  by  Interpolation  from  tmoutppioz 

• F riLLOwlNG  TAHLF//38^,7HSTATI0N,10x,l7rIAXlAL  niSTANGE  (,*2,IH),  nUTP('i93 

• 9X, 1 IHPRESSURE  (,2AU,1H))  OUTPP199 

_GQ_la_516 OUTPPl  95. 

, WRITF  (b,3l7)  AU  nuTPPlOb 

r format  (39X,69MTHE  area  is  CALrULATEf)  BY  INTERPOLATION  FROM  THF  FOQUTPPto; 

allowing  TARLI//58X,7HSTATinN,19X,lIHTlME  ( SEC ) , 1 6X , 7HA RE A (,Aa,  nuTPPl«8 

• A1,1H))  _ . ouTPPiaR 

CD  TO  518  OUTPPISO 


363 


416  WRITF  (6.0i7) 


nUTpPiSl 


417  format  (52X,66HTHE  PRESSURE  IS  CALFUi^ATED  BY  INTERPOLATION  FROM  THnUTPP152 


FOi  LQWTNn  TAHLF//36Xt7HSTATinN«iaX.tlHTlME  f SFC  i . 1 5X . H HPrES  S l).»  0 IMp  RJ5  3 

*F.  (,2Aa,lH))  nUTPPt54 

51600  17_I  = l*NTfl 0UTPP1S5 

■ 17  WRITE  (6,616)  I,XT8(I),AXB(n  , ' nUTPP156 

616  format  (5ax,l2.  14X,  IPEIP.5,  15X,E1?.S< CIUTPPISZ 

GO  To  21  OUTpPlSB 

_C n uiP  PI  59 

IB  GO  TO  (218,318#4l6#5lR),IPRCOO  OUTPP160 

_C assigned  variable  POl  YnOmIAI : 0UTppi6l_ 

21B"  WRITE  (6,219)  Ai,,CX  0UTPP162 

219  T^'^'^aT  (40x,52HTHE..AR£.A_IiLllALCUl.ATEo_F.ROM_JHE-FOLLOwiNG  POlyNOMI AnUTPPl65„ 

*L//?3X,6HArEA  (,A4,a1,5H)  * ( , 1 PE  1 P, S, 9h) X * » 3 ♦ ( , F 1 2 . 5 , 9M ) X* * 2 * 0UTpPl6a 

»(,E12.5.6H)X  » (,E12,5,1H)) QUJ PP_Lt5 

GO  TO  21  CUJTPP166 

31B  WRITE  (6,319)  AU,CX > 0UTPP167_. 

319  format  (38x,56HTHE  PRESSURE  IS  CALCUj'ATEO  FROM  THE  FOLI OWiNC  POl YNOUTPPIBB 

*J'^LlAL//2!!X,^iqHPRESSilR£__(j2A4.5H)^_(JlPEl2r5,-9RiX*A3  ♦ ,(,E12.’5,9H)DUTPP169._ 

aX»w2  ♦ (,E12.5,6H)X  ♦ (,F12.'5,  IH))  OUTPPITO 

t^.0-.T.D-2J ! QU  TPP 1 7.1 

418  WRITF  (6,4)9)  AU,CX  DUTPPt72 

419_FOR‘lAT_i:40_X/52HlE<£_AR£A_IS_CALCyLATED-F-RaM„THE  FOli  OWInG  POlYNOmI  AOUTPPI  73 

*L//23X,6hArEA  (,A4,A1,5H)  * ( , 1 PF 12,S, 9h) T* a3  ♦ ( , F 1 2, 5, 9H) T»»2  ♦ 0UTPP174 

*(*F.12,5(i6HlJ_E_(,LUaS<-tHJJ 0UTPP175 

60  To  21  nUTPPl76 

_ 516  WRITE  f6.5l9i  AU.CX DU IPJ> UJ— 

519  format  (3a)(,S6HTHE  PRESSURE  IS  CALCUi'aTED  FROM  THE  FDLI  OWING  POl  YNOUTPPITB 

•QMJLAj_yLE?OX_,10HP5LiSURE-_U2AA,^5ttL_*_(Il££X2,'S,_9HJXikA3_t_(,tl2.’5,9H)UUTPP17  9 

•T**2  ♦ (,E1c.5,6H)T  ♦ (,E12.5,1H))  OUTPPlflO 

GQ_In_21 0UTPP181 

C 0UTPP1B2 

P special  AHFa  FUNGTION ni!TpP)R^ 

19  WRITE  (6,118)  L8UBM,ETA  nUTpPlB4 

lli-FaRMAl_i41X,50itlHE  j|R£A_iS  EALCULATEft  -F-POM  .THE  FOLlDWlNG-FUNCTION/nUTPPlBS 

•/46X, 16H1 /AREA  s 1 - ( X/ , F 1 0 . 3 , 4H ) • ♦ f , F 1 0 ,5, 1 H) ) 0UTPP1R6 

IF._ClJ;P5Z_^£Q^  4)  .write.  (6,  11 16).  0,Vt5C,BEJAL OUTPP187 

1116  format  (/6?f,20HHYDRAUl  IC  DIAMETER  s,F8.4,3H  CM , 7X  , 23HV I St  OS  I T Y COEoutPPIBS 

»FFICTENT  x.F12.U,10H  P.M/PM-SF  r . 7X  . AHoFT  a «.F7,u1 DU  TP  P 1 a? 

GO  TO  21  OUTPP190 


OUTPP190 
OUT  PP 191- 

ZERO  VELOCITY.-  ASSIGNED  VARIABLE  NOT  REQUIRED  0UTPP192 

20  WRITE  (6,lJ9i  - 0UTPP193 

119  format  (36X,60HTHI3  IS  A VeO  PROBLEM  - AN  ASSIGNED  VARIABLE  IS  NniOUTPPl94 

* RFQllIRFD) ^ OUTPP495. 

0UTPP196 

- — NEGLECTED  SPECIES  _ . nuTPP197 

21  IF  (T1  ,NEr  p)  CO  To  22  OUTPPlRB 

write  (6,120) OUTPPIRO 

120  format  (///3l X, 70MN0  SPECIES  WILL  BE  PERMANENTLY  NFClECTFD  From  ALOUTPPEOO 


‘L  C^ROR  C0N31J)ERAl.iaN3i 

GO  TO  ?2« 

g?  w R iTf  (6 , i?n 

121  FORMiT  (///3lx,b9HTHE  FOLLOWING  SPFCtES  WILL  BF  NEGLFCTFO  FROM  Al 

• ER'^HR  cO^<SIDERA,TIQn3/_/J ^ 

K = 0 

DO  2fl  II  = !,’ll 

I e NEGL(lT) 

K g K » __  1 

IF  (K  .EO.  6)  K g 1 

_GO  TO  (?3f?a,?5,26,27),K 

23  WHjTf  (b,l?2)  f 3PNm( J, li . Jsl «2) 

_122  format  f61X,2Aaj 

GO  To  28 

2 a_w R r T F f6.i ?5i  (sPNM(j.n.jgi.2i 

123  F0R‘«AT  (lH  + ,76X/2Aa) 

GO  Tn  28  _ 

25  WRTIF  fb.lpai  (SPNM( J, iT, jrl ,2) 

_ l2_a_FORMAT  (tH+,««Xj2A^ 

GO  Tn  28 

2 <>_*'  R IJ  F (8,125)  (SPNH(J.n,jgl,'2) 

125  format  ( lH+,92X,2Aa) 

GO  Tn  28  

27  WRITF  (8,1?6)  (SPNH(J,r),jgt,2) 

128  format  (tH+,2ex,2Aa)  __  

28  CONTINUE 

C 

228  IF  (PMOroNi  WRITE  (6»1l28) 

1126  FqRmaI_(  / / /J,HX ?» H Th E volume  (DEnSTTy)  Will  BE  HElD  COmS T A v T_ F na_. 
•HIS  CASE) 

IF  (xrnNi  write_(6»2126) 

2l2b  format  (///'40X,5tHTHE  TEMPERATURE  Wli  L BE  HEl.D  CONSTANT  FOR  THIS 

i*SFj 

RETURN 

FNTRV  OUT2  “ 

c TnTtial  coN^iTin^ 

!iEJf=2 

IF ( .N0T.3RtEF)WRITE(6,  127) 

__12,7  format.  L1HIa5.2Xj.26H_*_?. lNTIlAL-.CON!n3LlOH3 

GO  TO  29 

ENTRY  out's  i 

c 

c general  output 

KEYSS  , . ....  

IFInfxT.OR. ,N0T.PRIEF)HRITF(6,128) 

. 128  FORMAT  (IHl) . 


OUTPP201_ 

nuTPP202 

_QUTpp205_ 

LOUTPP20<F 

_nuTPP205_ 

OUTPP206 

nuTPP?07_ 

ouTPPpoa 

0UTPP209 

nufpP2i 0 
nuTPPpi 1 
OUTPP212 
..  OUTPP213., 
OUTPP21 « 
_PUTL'?.P2L5_ 
OUTPP216 
OUTpp?t7 
nuTPP21 8 
OUTPP2t9_ 
nuTPP220 
0UTPP22t 
nuTPP222 
nuTPP22S 
nUTPP220 
DUTPP225 
OUTPP226 
-DUIP-P.2.27_ 
r)UTPP223 
ToUTPP22.?_- 
nuTPP?3b 
r)UTOP231 
CnUTPP232 
. nuTPP23S. . 

r)UTPP23<l 
_0UTPP235_ 
nUTPP?36 
OUTPP237 
nUTPP238 
JQUTPP239_ 
DllTPP2aO 
nuTPP2«l_ 
nuTPP2a2 
nuTPP295 
nuTPP2a<i 
PUTPP295 
nuT'pP2«6 
nUTPP2R7 
0UT2P2«B 
OUTPP2a9  . 
DUTPP250 


L 


29  MACH  s S0RT(M2j 

0UTPP251 

c 

MAX  t MAXOfLS,LR) 

nUTPP252 

nuTPPPSS 

TENT  « o' 

CSUM  m 0.' 

nuTPP25a 

0UTPP255 

c 

PMLUr,  s ALnG(P*MlXMW) 

total  entropy  and  mass  fraction  sum 

0UTPP256 

nUTPP257 

00  io  1=1,1 3 

IF  (STGMAfl)  .FQ.'  0.’)  Go  TO  30 

nuTPP258 

nlJTRP?<:;9 

TENT  s TENT  ♦ Sir.MA(I)*(SR(l)  " AL OG f SiGMA f 1)  ) - 
30  CSUM  a CSUM  ♦ SIGMA ( I i*MW( T j 

PMLOG)  0UTRP260 

niiTPP261 

c 

TENT  s TENT*1,98716S 

0UTPP262 

nUTPP263 

c 

IXXH  * o' 

ENERGY  exchange  RATES 

0UTPP264 

nUT?P265 

no  41  J=l,iR 

XXHCJ)  s Xx(J)*OELHlJ) 

nUTPP266 

0UTPP267 

c 

31  TXXH  c TXXH  ♦ XXH(J) 

0UTPP263 

nUTPP269 

IF  (VERST  .'EQ,  TIMEV)  GO  TO  32 

TIME  s OVAr 

nUTPP270 

nuTPP271 

X s tVaR 

GO  Tn  33 

DUTPP272 

nUTPP?73 

32  TIME  s IvAR 

X a OVAR 

nuTPP27a 
. _ DUTPP275 

c 

33  IF(MRIFF>NO.'.NOT.NFXT)r.n  TO  90 

OUTPP27b 

nuTPP?77 

c 

if(unito.nf,fps)60  to  «8 

nuTPP27B 

nUT?P279 

c 

convert  from  internal  (CGS)  units  to  fps  units 

X S X/30-«fl 

flUTPP2eO 

nuTPPPflt 

AREAA  « ARfA/929.’030« 

DOTH  = Mn;3T/«S3-S9?37 

DIJTPP282 

nilTPP3A3 

PP  a P*21U.2 
vv  = v/3n.fl8 

f)UT?P2«a 

niiTPPPfli! 

RHOO  > RH0*62.a3 

J-L-S-TfLIS 

nUTPP28b 

DUTPP287- 

1 


1?9)  IIMEi  AR£AAxJLiPR-iJI.Hi  RHn.1i  tS.MAM  (Ji  JCVji-Lsii2ii 


* TTiOITM,  TFNT,rRRN,MACH,KOllNT,  gamma 
129  F'JRmaT  (i6Xf  JIHTIME,  lP£lq.’b,5H  ..SEc,laX.aHAREA,tl£|.S.7H  SO  FT, 

* iaX,l«HAXT4L  PnSITlO'J, no.'s, OH  FT///?0X,  ISHFLOI*  P»nPFRTIFS,OSX, 


OiJTPP2fl8 

.aUTPP239- 

n'JTPP290 

□JTPP291 

nUTPP292 


* PPHlsTFr.-^ATIDM  IM)ICATDRS//?.2X,8HpRFSS'.iRE,E22.S.  J0X,2tMSTEPS  FRDUTPP2P^ 
*OM  LAST  PRINT, 9X,  IO/2?X,  10H(LA/FT**2>/22X,BHVF:LOriTy,E22.'‘>,inX,  0UTPP29a 

1 myEHA-Gf— STEP- SIZE.  0P£L2<u5/23X,aHfFl/SECiy22X,7HDENSITT«lP£2X.5nOTPP295L. 
*,X0X,?nHr.3igTRJILTNG  yARIAPtF,nX,2AO/?lX,!0MfLR/FT**5)/22X,t  t HTFMPntlTPP?9  6 
*ERATLiRE,E19.S/23X,7H(r)EG  P) /22X,  piHMiSS  FLnw  RATE  ,F16.S/?3X,nH(|  H/niJTPP297 
•SEC)/?PX,7HEMTRnPY,E?X.5,50X,l0HRELATlV£  ERRnw,0PE?7.S/2XX,l OHf rTUTUTPPPRS 
•/LH/OFG  R)/22X, I IHMACh  NUEHER, lPEl9,s,30X,20HPREDICTaR  I TERATiriNS, nuTPP299 

* 1 IX,  n//22X,SHGAMMA,£2S.'S)  nuTPPjOO 


366 


T 


IF  (T2  .EQ.  0)  GO  TO 

IS  = n » J 

00  Kris, IT 

KK  =_'JEGL(K)  

FSP(t,K:  = SPNM(1,KK) 

233  FSP(?,k)  = SP'JMTP/KK) 

WPITF  (b,130)  ((FsP(l7K).i=l,2),K=TS.IT) 

130  format  (1  H»,81X,  iBHrUMINATEO  SPEC  TF  S.  1 SX  , 2 »<l , 2X  , 2 A «/ ( M SX,  2 . ?X  > 

* 2A<i)) 

“3a~wRiTF“ibTrin 

131_F0RM4T  (//S6X,  l_9HCHEMlCAL..PS0PERTtf  S//j 

COnV  r 0 7.0 2.« «1 

IF  (CONC  .n*^.  EXCHR)  GO  To  3b 

PRU'T  MASS~FprAmONS  Tvjb~'REAcfl'o'»i~CO^VFiRSlON~iATFS  ’ 

wrtTF  fS,l32)  

132  format  (ix.  THSPECIES»uX,13HMASS  FRaCtIOM,  5X,  13HMni.'F  PRACfl6s,'3X,‘ 
?- 17 H V.' ^ T_ SPEC  IE 3_P.R no  1,1  ClXQ-N-a.*_TL>J.XilMfiEM Tl 5X/2 » Hjj UL_E E.AJtUJiii_C 

* ONVFPSID'J  RATE.  3X,  13rtRATE  CONSTANT) 

__WRITF  (6,133) 

133  format  (SOX,  IbHIMnUt/FTAAS/SEO,  1 1 X,  bHNUMBER,  7X  , ?2H(  mQi  E-FT**3/lB 

•A2/5EC) , TX,  UH(cr.S  tJNiTsj)  . . 

00  3S  Jsi  ,1  R 

_35_P£X  idJ^XjUdJ 

CONV  = 1./82.«5 

_G^_Tf)_37  

3S  IF  (COMC  ,nR.'_(»NOT.  EXCHR).)  00.10  39 

PRI N LJM SS  fractions  AmO  E^FRGY  EXCHAmGE  RATES 

WRITF  (b,13«) 

134  FORMAT  (lX,7HSPEriES,'iX,  13HBASS  FR  AC  T 1 ON  , 3X  , I AhmOle  FRACTION, 3X. 

* 27HNET  species  PROOUcTION  RA TF , 5X , 8mRE AC T I ON , S X , ?a HNE T FNERGY  EXC 

_..ahanGk  PATE.5X,  13HRA1E  CONSTANT)  . 

WRITE  (6,135) 

JR  A l_(  5 n XaI  6HC.M0Lt/Fl»  f 3/SFr  ) , 1 ix.fcNNUHQFR.  6X,  2LH  ( 0 TL'-XT  » *3  ^'LB  * * 
•2/sEr) ,7x, 1 1H(CGS  UnItS)) 

COMPUTE  “aSs  fractions 
37  00  3h  1 = 1,1  S 
3n  PRC(T)  = STGMA(I)*Mrt(l) 

f.n  To  44 

39  IF  ((.NOT.  CONC)  .OR.  FXCHR)  GO  TO  41 

PRINT  NOLAR  CONCENTRATIONS  AND  REACTION  CONVERSION  RATES 
WRITF  (6.136) 


nUTPP301 

0UTPP302 

nUTPP3f)3 

buTPP304 

nuTPP305 

OUTPP306 

nUTPP307 

nuTPR308' 

0UTpP309_ 

nuTPP310 

nuTPP3i 1 

OUTPP512 

0UTPP313_ 

OUTPP314 

DUJEP.315_ 

nUTpp31 6 

0^JTPP31  7 . 

nuTPPiie 

0UTPP3I 9 

nuTpP3?.o 

0UTPJ5.32L 

0UTPP32'2 

ninpp3?3 

r)UTPP524 

nuT?P325 

OUTPPIPb 

JiyJ!LP327_ 

nuTPP32e 

DUTPP329. 

nUTPP330 

nUTPP331 

OUTPP332 

nUTPP333 

OUTPP334 

0UTPP335_ 

nuTPP35b 

OUTPP537  , 

nUTPP33B 

DUTPP339 

nuTPP340 
0UTPP341  . 
OUTPP  342 
nuTPP343 
0UTPP34a 
DUTPP345_ 

OUT  PP34b 
nuTPP3q7 
nuTPP348 
nuTPPi49 
00TPP35P 
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^iS^FOR'laT  (lX.7HSPEriES*«X,t5HCONCENTRAi!ON.'3X,l3HMOLF  FR*rTlOM#3X,  nUTPP3Sl 

* ?7rtwET  SPFCIES  PROOUCTION  RA  TE. SX,’8HRFACT lUig,  3X»  2AHNET  Rt'ACTIOV  COJTPP352 

*O^JVER3IO^J  RATE,  3X,  nHi^ATE  CONSTANT) U T.P P 353 

WRIlF  (8,137)  nUTPP3S<l 

1 37  FORMAT  ( l2x,  1 3H (MOLFS/FJ • * 3 ) , 2*' » 18H (MnLF/LT**3 /SEC ) 1 1 X ,‘6HNUhHER,  nUTPP355 

* 7X,22H(M0i  E-FTa*3/LB»*2/Skc)  ,7X,  HHrcGS  UNITS))  f)UTPP356 

DO  '•0  J = 1,J_R DUTPP357 

46  PRX(.i)  =^XX(J)  OUTPP3S0 

CONV  = 1.V<,2.’r3 0UTPP359 

GO  TO  «2  OUTPPibO 

C DUTPP561 

C PRINT  MOLAR  concentrations  AnD  FNERGT  EXCHANGE  RATES  0JTPP362 

WRTTF  _(6,138)  — . • DUTPP383 

130  format  (lX.7HSPEClES,«X,l3HCnNCENTRATION.3X,13HMnLF  FR  AC  T lON , 3X  nUTPPi6R 

* 27HNFT  SPECIES  PRQOUrTinN  R A TF » 5X.  BhRE  AC  T T ON,  SX  , ?/]  HNET.  .ENERGY  F.X  C QUIPJ'JSiiS 

*HANGF  RATE.5X, 1 4HRATE  CONSTANT)  nUTPP3h& 

wwiTE -!tf>il3Ri_ _ OUTPP367__-. 

139  FORMAT  (12X,13H{MOLFS/FT**3),?SX,|hHrNOLE/FT*«>3/SEC),  1 1X,6HnI)HBFR»OUTPP360 

8J<j2.1H(BTii-FJ_**3yLH*JL?ZSEC)j7XjllH.Crilia-UNIlS)) . DUTPP369.._ 

C OUTPP370 

C COMPUTE  MILAR.CDNCENT-RATinNS : QUTPPJZi 

02  00  03  IsIMS  OUTPP372 

_0  U*  R Cll  )_»_SJLC  M /LCIl*  RHOO ^ 0UTPP375_ 

c „ . nUTPP37« 

DO  07.Ij8l^4AX_  0UTPP37S. 

IF  (TJ  .GT,  LS  .'or.  IJ  .GT.‘  LR)  GO  TO  45  nuTPP376 

FIQL.s  ?IGhA.LU)*M1XMW OUT ppx77 

WR  * w(IJ)*62.43  nUTPP37B 

XXJL_s_PR}axJ).*C:QNV , 0UTPP379-  . 

WRITE  (6,1«0)  (SPNM(I,IJ),isl,2),PRCflJ),FMOI ,wW,i.i,XXX,RATEflJ)  nUTPP50O 
10fl_FORMAl^.t2X.2AO»2X,iPEia.5,4X.El2.5,llX.Ea2r5,i6X, 12, iax,El2,5, 1 1 X,0UrPP38l 

* E12.5)  0UTPP3fl2 

GO  In_.a.7 , OUT  P P-383 

45  IF  (T.f  .GT;  LS)  GO  TO  46  0UTPP3fl4 

FHQL  ' SIGMAtUjAMLXMii 0UTPP38S 

Wm  s k(IJ)*62.43  nUTPP306 

-._WRLTE-(6,lfll)— rSPNM(l,Iji,I  = l,2),ppCf  1J),FM0V#^WW_ OUTPP387 

101  format  (2X.2A0,2X,  1PEi2.5,4X,E12.5,HX»E12.5)  0UTPP369 

GO  In  fl7 ^ ! nuipp-saa 

46  XXX  = PRX(TJ)*C0NV  nUTPP390 

WSlTE_(6.la2i  IJ.XXX.RATEUJ)  - □UTPP39L 

142  FORMAT  (79x,I2,14x,1Pe12.'5,11X,E12:5)  DIITPP392 

_ 47  CONTINUE  . . ..  nUTPP393 

TXXH  = TXXH»0. 02083  nUTPP3R4 

143  format  ( /0X,2flMMlXTURE  HOLFCUlAR  wE  TGHt  , F i S.'S  , 5 X , 2 6HTnT  AL  ENERGY  nUTPP3R6 

•EXCHANGE  R A TE, 1 PE  1 5. 5 , 7 X , I 7HM ASS  FRArTIriN  SVM,0PFia,8)  nUTPP397  ^ 

WRITE  (6,la4)  ruiTPP390 

144  format  (49X<21H(BTU-FTw*3/LB**2/3EC))  nuTPP399  _ 

GO  TO  78  OUTPPOOO 


.GT.  LR)  GO  TO  45 


• E12:5) 

GO  in_.a.7 , ^ 

45  IF  (T.f  .GT?  LS)  GO  TO  46 

FHQL  ' SIGMAtUjAMLXMii 

Wm  s k(IJ)*62.43 

WRLTE_(6,lal)_3SPNH(l,IJ),I  = l,2),PRCf  1J),FM0V^W14— 

101  format  (2X.2A0,2X,  1PEi2.5,0X,E12.5,HX»E12.'5) 

ca  -iD-a.7 

06  XXX  = PRX(TJ)«CONV 

WSlTE_(6,la2i  IJ.XXX.RATEUJ)  - 

102  FORMAT  (79x,I2,10x,1Pe12.'5,11X,E12?5) 

. 47  CONTINUE  ... .. 

TXXH  = TXXH*0. 02083 

143  format  ( /0X,2flHMlXTURE  HOLFCUlAR  wE  TGHt  , F i S.'S  , 5 X , 2 BHTOT  AL  ENERGY 
•EXCHANGE  R A TE,  1 PE  1 5. 5 , 7 X , I 7HM  ASS  FRArTIriN  SVM,0PFi0,8) 

WRITE  (6,104) 

144  format  (49X,2lH(BTU-FTw*3/LaA^2/3EC))  _. 

GO  TO  78 


} IF  (L'-^ITO  .NE,  SI)  GO  To  63 

CONVERT  FROM  INTERNAL  (CGS)  UNITS  TO  SI  UNITS 

. X = x*;oi_  _ _ . ! 

AREAA  = ARFA*,0001 

03TM  = md3T*0.001_ 

PP  = P*l  .'Ol  33SF»05 

V_v_  =_VAiO.J 

RHnO  c MH'J*1000, 

TENT  a TFNT*.«18((.’0 


OUTPP<«Oi 
nuTPP«02 
J}UTPPJii)J_ 
ouTPPcioa 
0UTPP«05 
nUTPP«06 
riUTPP«07 
nUTP“«08 
O'linP/iOR 
OUTppy 1 0 
0'JTPP«1  1 
OUTPP412 
0UTPP4 1 3 
nuTPPai a 
nuTPPyjs_ 


WRITE  fS.laS)  TlME.AREAA,X,pp,xH,VVjAVH,RHoa,  JCV)#  Ir!/?),  0tJTPP4l3 

* T, doth, temTjERRn.maCh.kount, gamma  nuTPPaia 

[as  FQR'^AT  ( |bX>UHTTME.  iPf1<i.'s,SH  SEC  . 1 aX  . qH  ACF  t . f 1 4 . ^ . 7H  _ nuTPPyjS_ 

1«X.  fa'HAX*!  Ai  nnsi  I IOsi»E  1 4 .S*  4H  M / //Po  X , 1 SHE  L 0 w PRnPF  R>  I E S , 45  X » OUTPPaib 
_*  ??-II  NTEr.RATI  ON  lNf)rrATf)RS//22X,«HpRESSURE.E?2,5.3nx*?lHSTFPS  FH.'li)Tt>P4  1 / 

♦OM  UAia  PRINT, 9X, I4/2XX,flHfN/M**P)/P?X.flHVFLOCTT¥,E2?.S,30X, l7HAVtOUTPP4l9 
_ *RAG£  step  STZE»0PE2u,S/?3X,7H(M/SEC)/?2X,7H[>FNStTv,lPE?3.‘j,3nX,  nUTpP4j9_ 

* POHCONTRJILING  VARrApLE,!) X , ? A 4/?3X 79H ( KG/M * * 3 ) / ??X , M H T F MPfR A TUR TJ T PP 4 2 0“ 
A^F  »_E:  L2  • ^ 5 X,  7H(0E  r^K  ) J_f  ? X , 14  ‘IM  ASS  Flow  ^ ATE,  £ 1 6 ^ ? 5 X , P M f K G / S t C ) / . 0 U T P Pj  P 1_ 

* ’2?X.  /MENTR‘1PY,E?3.S,30x,’iaHHELATI  VK~  F~RR0R , OPt  P 7 . S /? 3 X ,''l hH  ( jouL E /'^f’UTP'P 422 
. *G/OEr.  K ) 1 1 H“ACt<  NtlMPER,  ipFt9^S,30X,?0HPREDICTOR  ITSRiTIONS,  nuTPP«?J 

* 1 IX,  I3//2px,shgahma»e25.5)  OUT?Pa2a 

. ^ _ OUTPP425 

IF  (12  .Far  0)  GO  TO  a’  OuTPPaPb 

IS  = Q U LPR  n 27_ 

DO  240  KalSrIT  nuTpP428 

_ KK-  = n£5L(k) DL)TPP4?9 

FSP(I»K1  a SPNM(1,kk)  nuTPP43C 

>48  ESP(2,K1  a SPNM(2,KK)  nuTpPoST 

write  (6,130)  ((ESP(I,Kl,Isl,2),K3lS7fT)  nuTPP432 

tlUTPPU55_ 

49  WRITE  (6,131)  nufpP434 

^ , . nUTPP435 

CONV  a 4.*lfl40  nUTpP4Tb 

IF  (CJnC  ,nR.’  FXCHR)  GO_T0.5«_. niJTPP4i7 

OUTPP439 

^ I N T_^a  S S F R a CTlnvS  AmP  reaction  CDNVFRSTON  R a TES  n 1 ' T p P 4 ( 9 

WRITE  (6,132)  nUTPPUaO 

WRITE  (6.146)  _ . nUTPP441 

146  format  (SOXrl 5h(MOLE7m*a3/SEC) , 12X,6HNUMRER,7X,2tH(Mni.F-M**3/KG«*2rHITPP442 

*/SEC),«x,  1 iH(cr.s  units))  ouTPPaa) 


to  49 


DO  240  KalSrIT 

_ KK-  = n£5L(k) 

FSP(I,K1  a SPNM(1,kk) 

>48  ESP(2,K)  a SPNM(2,KK)  

write  (6,130)  ((ESP(I,Kl,Isl,2),K3lS7fT) 

49  WRITE  (b.uT) 

CONV  a 47lfl40 

IF  (CJNC  ,nR.’  FXCHR)  G()_T0.5«_. 


DO  50  .lal ,(  R 

J 0_  PR  X C J1  = ^X.xlJJ 

CONV  a O.OOl 
GO  To  52 

51  IF  (ClNC  .OR.'  (.NOT.  FXCHR))  GO  TO  5a 


()UT?P444 
nil)  pr445 
riUTPPaab 
0UTPP447 

0UTP(’448 

OUTPP449 

nUTPP4S0 
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PRINT  MASS  fractions  AnD  CnFRC.Y  EXCHAijGE  RATES 

WRITf 

WR ITF  (b,la7) 

I ay  FORMAT  (SOX,  15H(M0LF:/H**3/8EC),12x,6HNUMBER,7x,22H{jnULE-M**T/Kr. 
*2/SEc).7XtllH(CCS  UNITS)) 

_ COMPUTE  HASS  fractions 

52  DO  53  Iel,|S 

53  PRC(I)  = STr.MA(I)«MNtT) 

GO  TO  59 


5a  IF  {(.NOT,  CONC)  .OR,  EXCHR)  GO  TO  5fc 

PRiNrMOLAR  concentrations  and  r^ction  conversTon  ratS 

WRITF  (6.1Tb) 

WRITf  (b.lafi) 

lae  F0RMAT_(l2Xf  l_2H(M0LF?/^M**J)j26X,15H(M0LE/K**J/Srr),'l2)(^’6HNUMnER, 
*,2lH(HOLE-M**3/KG**2/sEci ,ax, IIHCCGS  UNITS)) 

00_5S  Jgl  .1  R 

55  PRX(J)  « XX(J) 

CONV  8 prooi 

GO  TO  57 

print  molar  concentrations  AnO  energy  exchange  RAfES 

56_WRITE:_t6il3e) 

write  (s,la9) 


*.22H( J0ULE-H**3/KG**2/SEC) ,7X, I IH(CGS  UNITS)) 


COMPUTE  MOLAR  concentrations 
_57_Da  58.lsL.Tj 

58  PRC(I)  s StGMA(I)*RhOO 

59  DO  62  IJsI'.'max 

1 F_ ( IJ_ . G C-LS ; OR , — IJ  „•  Cl 

FMOL  = STGmA(IJ)*MIXMM 

_MW_=  -JS  (IJJ  U aofl. 

XXX  s PRX{TJ)*C0NV 


J-tju-cO-io-ao- 


GO  TO  82 

60_lF_ClJ_.Gl!-LSl_GO_Ti3_A4 ^ 

FMOL  = SIGmA(IJ)*MIXMn 

_MN  s MllJJtlOOO,  _ 

MRIIF  (6,iai)  (SPNM(I,lj),isl,2),PRCflJ)»FMDL.MW 
GO  TO  82  

61  XXX  X PRX(TJ)»caNV 

WRITE  (6.la2)  IJ.XXX.RATEdJ)  . 

62  continue 

TXXH  s TXXH*a,lBqO  __  . . 

WRITE  (6.103)  MIXMW, TxXH.CSUM 


(,4.UJtXX,HAJ£(IJ) 


OUTPPOSl 

0UTPPa52 

nuLppji5  5_ 

;**0UTppa5a 

CHITPPOSS, 

OUTPPOSS 

OUTPPO'jT 

OUTPPOSS 

DUlPPa59_ 

OUIPPOSO 

O'JTPPOAl 

0UTPPa62 

O'JTPPOAi. 

OUTPPOSO 

DuIRPRASl. 

0IJTPPa66 

7XDUTppa67, 

0UTPPU68 

0UTPPa69. 

nUTPPOTO 

DUTJ>RaXi_ 

DUTPPa72 

UUTPP073-. 

nUTpP470 

0UTPP07S 

nuTPPa76 


C1UTPP078 
— nuippa7-9_ 
OUTPPOBO 
OUTPPOBL- 
nuTppoRa 
— nuTPPoai- 

OUTPPORO 
nuTppoflS- 
nuTPPORS 
. nuTPPoa/ 
OUTPPOBS 

—ouippoai- 

OUTPPa90 

0UTPPa9L_ 

nuippa92 

OUTPPOOS-. 

OUIPPOVO 

— nuTPPosS- 
nUTPPa96 
nuTppoPT 
nuTPP099 
0UIPPa99 
nuTPPsoo 
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write  

iSO  format  (<iBX,?2H(J0ULF-M**5/KG*A2/SFCn 
GO  TO  76 


PUTPPSOt 

nUTPPSOZ 

jjyjppspjL 


C nUTppsoa 

_c PRINT  OUTPUT  IN  INTERNAU_(CG3)_t|Nn3-„^ _ _ OUTPP505 

63  WRITF  (6,l*in  time,  area, X,P,NH,V,4VH. RHO,  (SNAMd.JCV),  t*l  »2)7  nUTPPSOS 

_*  T.MnOT.TFwT.FRRN.MACu.KQUNT.GAHMA  _ _ PUIPPSOT 

I5l  format  («6x,0HTlMfc,lPE16.5,^SH  SEC.lax.OHARFA.nu.S.TH  SO  CM,  OutPPSOS 
* 1 UX.  1 aHAXTAL  PQSITlOM.Fia.’s.qH  rM///?ftX,  1 SHFnw  PRnPrRTIFS,USx.2nilTPP!509_ 


*2mInTEGRaTTDn  I>oniCAT-iRS//??X,8HpRESsURF.ODF23.S.?PX,?1HSTFPS  F POMDi' T PPS 1 0 
j*  last  PRTNT,Rx.»I'‘^23x,5H(ATM)/P2x,fiHvFLDClTr.F20,?^3?x.  ITMAVERAr.F  nUTPP511 
aSTFP  SIZF.E2a.5/?3X,flH(cM/SECl/22X.7noENSlTY,lPF23.S,30X,?ftHcUNTROniJTPPSl2 
♦ LLING  VAPlAf»L.E»  nX,2A«/23X,  10H(Gm/CM**3)/2?X,  I iHlEMPFRATURt,  OUTppSlS 

A OPF  W.2/2XX,  7M(DEG  Kl/2?X,iaHHAS3  Fi'oM  R A TF  , 1 PF  1 6 .'S/2  3X  , HH  ( Km/sECOUT  PP6 1 R 
*)/?2X.7MFNTRnPY,nPF?3.a.3QX.  iohRfLaHvf  fRr~ir  . f?7  .s/p  ax  . i an  a1. /gmhutpps  1 S 
A/OFG  <)/?2X, 1 IHhACH  number. F19. a, 30X.20HPRF0ICTOR  1 TFK A T TUNS. 1 1 X . nUTPP516 


_A_13//22X,!iHGAMMAjf_2S,'l). 

' _QJ_GO_TJ)_6iL 


IF  (I2_,FQ. 

IS  s U ♦ 1 
DO  283  K8lS zJJ_ 


KK  s NEGL(K) 

^ ..FSP(l.K)  = SPNMd.KKi  _ 

263  FSP(2.K)  a SPNM(?,KK) 

mRITE_(6,130)  ((F.SP(I,Ki,lsl,2)/l<-lSZlTi. 


64  WRITF  (fe.l3H 


_Lf__{C0NC  .nR.  EXCHRI  r.O  Tn.66. 


print  MASS  fRACTIcinS..A.nO_  RFAcTION^CONVERSION  rates 
WRITF  (6,132) 

WRITF  (6.132) 


tS2  format  (SOX.  l6H(M0LE/rH**3/SEC)»  llX,f,HNUMBFR.7X,22H{MOl  E-CM**3/r.M 

. **2/SEC),7x»UH(CGS  UNITS)) 

DO  6S  J=l ,1 R 

.65  PRX(Jl  = XXIJ) 

GO  TO  67 


66  IF  (rONC  .nR.  (.not.  FXchh))  go  To  69 


C 

C 


PRINT  Mass  fractions  and  FNERGY  exchange  rates 
write  (6,134) 

WRITF  (6,1S3) 

.±il_EJR‘iAl_,C 5 Q X . 16±LLm.0LE/(LM««3/SEC)i  llXif>HNlJ>lB£!U6XjL2lH.tCAL»lLM**3/GM« 


*2/SEr).7X,UH(rGS  UNITS)) 

COMPUTE  MASS  fractions 

67  DO  68  Isl.l  S 

68  PRC(I)  = StGm/.(I)»mw(i) 


0UTPP517, 

nUTPPblS 

nuTPPSlR 

nUTPPS20 
-DU  TP  Pi  2.1- 
0'JTPP522 
aUTpP523 
nurpps24 
nUTpP525 
0UTPPS26 
.0UTP_P52L. 
n:JTPPS29 
niiTpPS29_ 
nUTPPS30 
OUTPPSTl 
nLiTPPi52 

._DUT.P.Pil-L. 

•nUTPP534 
nuTPPSTS 
nUTPPS36 
0UTpP53r 
()UTPP538 
.DJIPP535_ 
nUTppSUO 
flUTPPb41 
0(ITPP5U2 
r>(JTPPS4  3 
nuTPPSau 

AOUTPPboS^ 

nUTPPS«6 

DUTPPSU? 

puTPrsMS 

nUTPP54R 

(VJTPt'SSO 


J 
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GO  Tn  yg 

69  IF  ((.NOT.  CONC)  .OR.  E 


wni 


print  M0L*R  concentrations  and  reaction  CQNVER3IDN  RATfS _ 

WRITE  (5,115) 

WRIlF  (5,lsa)  


DUTPP551. 
0UTPP552 
3 


nUTPPSSR 

nUTpp555_ 

0UTPP555 

niJTPP557_ 


15a  format  ( tax, 13M(mOLES/Cmw*3),25X, 15HrM0LC/CM**3/SEr), 1 1X,6HnUMPER»0UTPP556 


* 7X,?PH(mO|  E»CM««3/GH,*g/SCt 
00  70  J=l,LR 

_7p_PRX(.j)  » XX(Jl 

GO  TO  72 


IHrrCS  UNITSI 


PRINT  mql*R  concentrations  ano  energv  exchange  rates 

7l  WRITC  (6, MSI 

write  (5,1S5) 


OUTPPSSR 

OUTPP550 

niJTPP55l 

OUTPP552 

0UTPP553. 

nuTPPSsa 

DUlP.RiA.S_ 

0UTPP555 


>5_5_F0R“Al_(t2X,13HiM0LFS/Cilww3it25X,l6Hry,DLE/C1*w3/SErJ,llX^5HNU‘1BtR,OyTPP567_ 


* BX,?1H(cA|  -CH**3/GM»*2/SEr),7X,  llH(rr.S  UNITS)) 
^QMPufr^'oLAR  CO ^C ENTRaTIONS 


m)TPP556 

0UTPP559_ 

O1JTPP570 

^ ouTPPsy.i. 

73  PRC(I)  * StGMA(I)*RHO  nUTPPS72 

. L OUTPP573- 

7a  00  77  Mat. MAX  OUTPPSTa 

. 1F„(IJ  .GT.  LS .’or. — lJ_.GTr_LRl  -I;Q_ID-75__ . rjUTPP575 

FMQL  a SICHA(IJ)*MIXMw  r)UTPP575 

Mfil.TE-(6,l/iQ)  (SP.NM(UIji>l«1.2),PRCf  lJ).j-M0L«M(l  J),^mIp«X(M1^ OUlPPitlL 

* RATF(IJ)  nUTPP578 

OUTPPS7.9_ 

75  IF  (TJ  ,GT.  LS)  GO  TO  76  OUTPP5B0 

FMOL  = 3ICmA(1J)aMIXM>( QUTPP5BI. 

write  (5, tat)  (SPNM(I,IJ),Iat,2),PRCflJ),FM0L,M(IJ)  nUTPP5B2 

r.n  Tn  7 7 ^ DUiPRSflj- 

76  WRITE  (5,ta2)  ?.I,PRX(IJ),RATE(M)  nUTPPSfla 

ZJ-JCONTINUE DUTPPSB5 

WRITE  (5,ta3)  MIXMW, TxXH,C8UM  nUTPP585 

WRnE_C5..l567 01JTPP5B7 

155  forma)  (a9X,21H(CAL-CM**5/(;M**2/SEC) ) nUTPP5B8 

nuTPP5a9_ 

7fl  WRITE  (5,1S7)  OUTPPS90 

157  PORMAT  C//2(aX,  BH variable, 5X,  10‘tDERlVATIVE,’6X,9HlNCREMF.NT,5X,iaHRE:nUTPP591 


aLATIVE  error, 9X)) 
L a L3P3/2.. 


00  79  l3l,| 

LP  s UP  * 1 

WRITE  (5,1SB)  (SNAH(K,I),KBt,?),E(I),’RK(I),'E(I), 
* (SNAW(K,LP),Kal,2) ,FrLP) ,KK(LP),E (LP) 

158  format  (?(ax,2Aa,?(ax,f t2.«;),sx,Fi?,«;,5X)) 


nUTPP592 

nuTPP593 

nUTPPS9!| 

OUTPP595_ 

nUTPPS95 

0UTPP597 

nUTPPS9fl 

nuTPPS99 

nuipPhoo 
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90  WRTTE:,(3)<  EVfTTME  , a RI  *.  X,P,V,RH0 »T,HPnT>TENT  , MAC  HrGAMMA.MIXMl^, 
•SIGma»OUh1 

_wRITE(6,  |6S)TIhE,AREAj^X,NH,AVR  __  _ 

165  FO«HAT(7HOTlMfs  ,1PKI3.6,15H  SEC  AREAs  »EJ5.6,11H  SO  CM 

! SMj(=  ,ei3.6»1rh  r.M Na^sTFps=  a vg s if.fLJJ 

'F13,6) 

CAl  L Cl  '3Q'<fTWAl.l.,TPRnc,MnNTH»lPAri 

TF(TPMnc.tT.(36.«T!MLMT))GO  TO  92 
WRTTF(6,16a) 

166  FOHMAT(«0*lO(nUTP)  STOP  - EXCF3S  PROCESSOR  TIME) 

SHIP 

END 


0uTPP63ll 
CH)TPP635 
0OTPP636 
OuTPP6)7 
, nUTPP639 
ZF=  _£.C'l'TPP639_ 
riUTPP690 
niiTPP691 
nuTPP602 
nuTPPbOJ 

n'JTPP69« 

0llTPP6«S__ 

nuTPP6Ub 


CPAOD 

addition  of  mesh  points  aT  jet 

edge 

PAOODOOl 

SUBRoUTInC  PaoO(Vm,nPo»REG> 
logical  First 

PAD90002 
PADDOOOS 

LOGICAL  MChANG 

INTEGER  REG 

PAODOOO*! 

PAOD0005 

COMMON  /UMFSH/  MCHAnG,Ck.0Y1»NMSH  , CXPC » C X I P, NREO 

COMMON/  TNPJFT/  DUMI(12).  Nj  > OilHi(C2o8) 

PADD0006 

PAOD0007 

COMMON  /PHnPJT/  DUMP(9) ,RFFl»OUMPi riOOS) 
COMMON  /CTRL  / 0UMSX(9),CA»l>'JMSXl(8ft9) 

paddooos 

PA000009 

DIMENSION  VM(i) 

DATA  first  /T/ 

PAOOOOlO 

PAOtOO 1 1 

C* 

c*** 

REG«t—  USE  constant  mESH  SIZE  (POTENTIAL  CORE) 

PADOOOtZ 

PAD00013 

c** 

c* 

REG«?.3—  USE  MESH  DEFINED  BY  /UhESH/ 

PAODOOia 

PADD0015 

1 

IFI.NOT.  McHanG)  go  to  10 

GO  To  (t0«?0.20).REG 

PA000016 

PAnonoiT 

10 

YKaYH(NPD) 

PAD00018 

OY  « roi*YK 

PAODOOlO 

11 

np'd=npo*i 

IF (.NOT. FIRST)  0Y=.1*CXPCaREFL/C6 

PA000020 

.PADOO02J 

FIRST  s TFaLSE. 

YMf NPO)=YK*OY 

PA000022 

PADD0023  . 

GO  TO  100 

PA050029 

c* 

*■ 

PAOOOOP5 

20 

0YF»YM(2)-rM(l) 

new=npo*i 

PADDOOZb 

PAOD0027 

rM(NEw)sDYF/(CK-l . )*(CK**rLOAT(NPD)-i .) 
NPDsNEH 

PADD0028 

PAmoo?9 

C* 

100 

RETURN 

PAD50030 

PADQOOTl 

END 

PADD0032 

I 


1 
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CPBOLIC 


CO'IPUTES  solution  of  PAPABOLIf  Poe 


SUBROUTINE  PBOLIC  (K) 

__ 

c -J-  IS  The  cross  stream  InOE* 

-C  -K--IS  THE  INOFX  FOR  DEPENDENT  VARTABLES — 

C THFTA  IS  the  CRANK-NICOLSON  FACTOR 

C 7HETAsO-FXPLTCTrr~THETA»l-IHPLIClT^~THFTA«T/27CRANKiNTcOLSOIi" 


common  /pENDS/  JSTaRT,JEND 

COMMON  /CPrOLI/  'G  (50.  n ; ALPHA7m  i .'BFTA(50,’l  VrGAllHf50Ti  : 
1 OElTAfSO.'l) 

'CnMMnN-VcTRlDT/^cnEFL^SfrTVcOEFcTSOSVrOFFRISOiTRHSfBC^^ 

COMMON  /CBnDRY/  DX#DXpRN#JT 


—  NJMisJENDMj  

JOO  vISPleJSTARTFl 
"-THETaJSI  ’OiTHFTl 

c*  setup  hhs  and  thfn  up-oaTe  bfta,gahm»oflTa  For  new  x^step 

nxs  ilPTIATTTTTnifOTTTD  p 3TTJTi'SDP3T7Trtl ^ 

AAAAs4AA*ThETA1*.’50 
DO  200  JsjSPlVNjHl 

- 

COEFL(JnsAAAA*(BETA(j»K)fnrrA(J«l,Kji 

COFFR(jhsa*AA*  (BETA(.r»KUflETA(J»l  >kH 

1 OFLTAf  J,  Ki  ) )*G(  J,  K)4rf'FFR(  Jl  )*G(  J*1  ^kIaTHETAUGAMmI  J,K) 

TA — UPDATE”COEFFTCrENrS~s-3FTA^GAMM,DELTA-;;  

260  CALL  COEFFIKI 

— A44rALPH4{TI,Ki*0X/(0pSirjT)*DPSIIjTVr~ ~~ — 

AAAAsTHETA*AAA*,S 

-jni RHS~0SFS~G*MH~A  I BOTH  OLD  AND  NEK  STATTONS 

DO  300  J3JSPJ,NJM1 

JIsJ  - ~ 

RHS(.n  i=RHS(.M  )ATHET4.nx*GAMM(J,Ki 

—  Cr)FFR(jn=-AAAA»(8ET4M,KIf3ETA(.T*1,n1) 

COFFt  (Jns-4A4A*f3ETa<'J,K)t8ETA(J-l»K)) 

— 5inrTOErcrnS  = i7^cnEFLijT>-coKFRrjr)-THETAADTriftTCTirrJ7K3 

CA  AXIS  OF  SVmMfTHV  b.'c.' 

3>0”Jl*JSPl 

COEFR(.in=rOFFR(Jl  I-.^5J33333aCOEFL(,?1) 
CnEFc(jl>=rOEFC(^lUl,'35553133*COEFLfjli 

C*  outer  fFREF-STREAMi  0.C. 

IFjrBMSTV7Mli=pHSfNJWITiCDrFir(NJVrn'»Cr.TEN?r.Kj 

CAIL  TRlOlA(.ISPl,NJMli 
JRO  DO  «00  JsJsPl»NJHl 
J1*J 

G( J1 .KjsRMSlJ) 


PBOLICOi 

PBOLICOZ 

PB0LIC03 

"POOlTCW 

PDOlICOS 

PROLlCOk 

PHOLICOT 

PBOLICOB" 

pbolicor 

“PBOLIClflr 

PBOLICH 

PB0LIC12 

PBOLTC13 

PBOLlClO' 

PBOLlClS 

“PDOLTcnr 

PBOLIC17 

PBOlICIB 

PBOLICIR 

PBOLIC20 

PBOL1C21 

“PBOLir^Z" 

PSOLIC23 

P80LIC24 

PBOLIC25 

PB0LIC26 

PBOLIC27 

~PBonc?Br 

pbolicpr 

PB0LIC30 

P80LIC31 

PBOLIC32 

PBr)LlC33 

■PBOLICST” 

PHnLlC35 

P80LIC36' 

PBOLIC37 

P90LIC38 

P0OLIC3R 

PBOLlCRtr 

PBOLICai 

P0OLIC02' 

PB0LlCa3 

PBOlICRO 

PDOLICOS 

■PflOLlCfl*” 

PBOlICRT 

PBOlICoS 

PUOLlCOf 

PBOlICSO 
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IF  (G(J1.K),LT.’(1.E-8))  6(J|,Kj«0.* 

~OOt)~CnNTTNUE 

G(l,K)  = (a.*Gt2,K)-G(J,K))*.’?lJJJ33S 

iF-tGri.xj.-LT.f i.E-an  cri.Kiso. 

return 


P0OLIC51 

PB0LIC52' 

PB0LIC53 

■PB0LIC5ir 

PBolICSS 

PBtlLlCSS" 


c 


f 


L 

t 


C 

C 


PXXSlG(J.Na)  a -MM(J)*EXPl*RH0«EXp?*STGMACH^i*t;XP2 

lF(Na.EQjN%)PXXSIC(  J,N<»)a2r*PXXSlR(j7N<l) 

PXXSTG(J.Na)3pXX3TG(J.NaUXXfJ)/MM/jWM/Na.'.n 

GO  TO  <> 

5_PXXRhO(J)  = -RATF(J)/RHn*SlGM4rNa)/RH0 ^ 

PXXT(J)  a FXPl*sTGMA(Nl)*EXP2*SlGMA(Na)*EXP2*OLKEO(Jl 

PXXSTGfJ.N?)  3_RATE( J)/RHO  

PXXSTGfJ.NT)  s -fXpP*fEXpl*SIGMA(N<()  J*'eXp2 

PXXS  TG(J,Na)  a -FXPP*(EXP1  *SIG  H A ( ^»FXP2 

if(n/4,fq.nt)pxxsig(  j»N'j)s2.apxxstr,r  J.Na) 


PAR0005V 

PARD00S2 

paRdo.qJ}.? 

parBoo5<» 

PAR30055 

PAR0D056 

PARD0057 

PAROOOS8 

PARODnS? 

PAW0D060 


GO  TO  9 


6 IF_(Na_,G 
\r  (M«(  .C 
PXX'RnOt  J) 


GO  To  A 


PXXT(J)  s 
PXXSTGf J, 
PXXSIGf J ' 
IF(N2,fO. 
PXXSTGf J, 
PXXSTG( J. 


T.  0) 

T.l))  GO  TO  7 
- MM(J)«STGMt(N1  )»RATE(jWaiGM4(M?^ 


GO  TO  9 
7_Pxx9hO{ jj 
PXXT(J)  - 
PXXS1G(J, 
PXXSIGtJ, 
-IL(N2>E.Q; 
PXXSTGC J, 
^CIL-IH  9_ 


FXp2*hm(  j)  *eXpi*S1GhA(n5)*fXP2*Dl;^E0(  J) 

Nt)  g MH(J)»pHO«PATE(.f)  a.STCmA(mP)  » XXiJ7/MM(J)*H(Nl/ Ji. 
N?)  a '(M(J)*RHn*RATE(J)*SlGMA(»Jl) 

N1  )PXXSIG(J  f_92)r2,  APXXSlG(J,'y2)_, 

•^?)=PXXSIG(J,^»2)fXX(  J)/MM(J)*M(N2,‘j) 

MXl  e _.EXPl*t£XP2»MM(J)J*EXP.2  » XX  f t WMH  f h aM  f NX.  J > 


PARi>O0/)l 

PARDOObH 

PARGO065 

PARDD06a 

-PARODMS. 


..a  PXPl*SIG^A(N3;A£XP2/PHD*FXP2yRHa 

FXPl*SIGMA(»j3)*EXP2/RMr)*fXP?A0LKE0(J) 

Nl).,s  RATE(J)*SlGMAiU2) 

N?)  s RATE( J)*SrCMA(Nl) 

3?:»Pxx3lr.f  

N-i)  s -EXP2*EXPt*(EXP2/RHn) 


PARDO0b6 

.PARG0067 

PARDD06S 

PARD0069_ 

PAR00070 

-PJIRJJOQJJL 

PAR0D072 

PARG0073 

PAR0f>07<* 

. PARGG075 
PAR0007«> 
-PjlRoaOJJ 


PARGD078 

_PAR0D(77_9_ 


_e_PXXRHO{jj  .jt.O. ^ 

PXXTfJ)  a FXPi*SIGMA(N3)*FXP2*SlGMA(Nq)*EXP2*OLKFO(ji 

PX.XSlGtJ.NlJ-»-RATE(Ji*  STGMAfMP) 

PXXSIG(J,N?)  a RATE(J)*SIGMA(Vt) 

IFCN2.E0.NlJPXX31G(J»M2)=2.’*PXX3lG(j'.’N2i_^- 

PXxSTCtJ.N-i)  a -EXP2*fF;xPl*srG'^A(N0))*EXP2 

PXXSlGtJ^N«)_=-  -EXP2*fEXPl*SIG‘1A(N3))AEXP2________ 

TF(Na.E0.’N3)PXXSTC(J»N'»)=2.'»PXXSICf  J'.’n9) 


9 PXXT(J)  r PXXT(J)  ♦ Xx(J)*(N(J)  ♦ 8(.I)/Tj/T 


GTGMi  a CAMHA*(6AMMA  . I .’) 

PGAHT  a 0.  

gamma  wrT  STGMA(I)  AN3  MACM  number  SQUAREn  WRT  SlGMA(l) 

DU -lO-L*  1.1-3 

PCSlGfT)  s CTCh1*(M1XmW  - CPR(I)/TrPR) 

PM2STG(I)  a -m2*(M1XMw  ♦ PGSIGC  D/CAmmA) . ^ 

10  PGAHT  a PGAHT  ♦ SI Gm A ( T ) *nCPR ( I ) 

CAHHA  WRT  T - . — 


PAR00080 

PARDoeai 

PAR0D082 

PARDDOai. 

PARDOOSA 

PARDDOaS- 

PARoooaa 
_ PARDD0B7. 
PAR00068 

PAROooa.? 

PARD0090 

PAR00091 

PAR00092 

PARDD093. 

PAROOOOq 

PAK00095 

pARon098 
PAR30097 
PAROnoRS 
PAR00099 
pARom  00 


PCAMT  B -GTGM1/TCPR*PG*MT 

PARODlOl 

c 

c 

MACH  NUM3FR  SnUAREO  WRT  V 

PARDD102 

PARDD105 

c 

PM2V  = ?.'*v*MIXMW/(GAmma*R»t) 

MACH  NUMBFR  squared  wrt  t 

parodiop 

PARDD105 

c 

PM2T  = »M2*(1.>T  ♦ PGaMT/GAMMA) 

PAR0D106 

PARDD107 

TERM  B RHO 

tF  (vERSI  TFO.  TIMEV)  r.Q  TO  12 

PARDD108 

PARDD1 09 

c 

TERM  B RhQ/V 

OSir,MA/Dl  VAR  WRT  V 

PARDDl 10 

PARODI 1 1 

on  11  IIS«.'LSP5 

11  BETA(I1,1)  b -F(I1)/V 

PARDDl 12 

PARODI 15 

c 

c 

OSIGMA/DIVAp  wrt  RHO  And  OSIGMA/OIVAR  mrt  t 

PARDDl 1 « 

PAPDD115 

12  DO  14  Il3:|.t.SP3 

I B TI  - 5 

PARODI lb 

PAR0D117 

DO  15  jst ,i  R 

BETA(11,2)  * 0ETA(I1,2)  ♦ STOl C ( 1 , J) iPXxRHOT J) 

PARDOllS 

PARODI 19 

15  0ETA(It.5)  s BFTA(I1.3i  ♦ STOIC ( I , J) *PXxT ( J) 

BFTA(II,2)  B FflTl/RMn  ♦ TERM*BETAflT.2i 

PAR00120 

PAR0D121 

(L_ 

Ifl  flFTA(II,5)  8 TERM*BFTa(II,5) 

PAR0D122 

, PArddi_25_  _ 

c 

OSIGMAd  )/DTVAR  wrt  SIgHA(K) 

DO  lA  IIsU:lSP5 

PAR0D124 

PARDD125 

I 8 II  - 5 
on  ift  kk-u.’lsps 

PAR0D126 

PAR0D127 

K S KK  - 5 

DO  IS  js|  R 

PARD0l2e 

PAR0D129 

IS  BETA(II,KK)  = HETA(I1,KK)  ♦ STOIC<I,,|)*PXXSlC(J,K) 

\h  BETAfll.KKl  = TERMBDETAf II.KK) 

PARD0150 

PARDD131 

c 

c 

31  WRT  V,PHn#T.  SIGMAdi  AND  S2  WRT  V.RHO,  T.SIGMA  f 1 1 

PARDD152 

PAR0D155 

PSIV  c 0. 

PSIRHO  « 0? 

PAR0D154 

PARDD155 

PSIT  B o' 

PS2V  = 0.  , 

PAR0D156 

PARDD157  . 

PS2RH0  8 0.’ 

PS2T  8 o’ 

PARODI 38 

PARODI 39 

DO  18  il8a;LSP5 

PAR0D190 

PAR0D141 

PSIV  8 PSlV  ♦ BETA(It,l) 

PSIRHO  8 PslRHO  ♦ BFTAdl,?.)  „ . _ * 

PSlI  8 PSIT  ♦ PETAdl.S) 

PS2V  = Ps2v  ♦ HRTm*HFTA(ll.n 

PAR0O192 

PAR0Dia5 

PARDDia9 

PARODI as 

- - 

PS2RH0  8 PSPRHH  ♦ HRT(I)*0MAdIf2) 

PS2T  = PS2T  ♦ HRT(n»3F.TAdIi5).  ♦ CP(»(I  ) aF  f 1 1 ) AT 

PSlSTGd)  = 0. 

- PS2SIG(n  3 0,  ..  _ 

DO  17  KK8«I.USP5 

PARODI ab 

PARD0197 

PARODjuB 

pARooia9 

PARDDISO 
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5cr5 


1 1 -77 


a KK_-_5 

PSiSTG(T)  B PSlS'ICtl)  ♦ 0fTA(KK7Tn 
17  PSPSTGfT)  8 PSPSTfifT)  ♦ HRT (K) oBETAfKK# fP 
PSlSTG(I)  B MIX*4M*(P31SIG(I1  • 31) 

_|L8  psasic^l)  B MlKMW»(P3?StC(I)  . 32S 

>31 V ii  MTXMi^*PSlV 

PSIHHO  8 MT  XHiOPSlRHO 

PSiT  8 mtxmw*p»it' 

psav  8 mTXmW*P82V  


psasHo  8 MTXMN*psaRHO 

psaT  = htxmwo psaT  - s?/t 

_GM  1 Or._JB_f  G A mm  k " 1 j )/r.AMM> ! 

SaOGZ  8 sa/(GAMMA*CAMMA) 

BB  URt  V 


PB8V  a GMlOGoPSaV 

BB  WRT  RHQ 

PBBRHO  8 GHlOG*PSaRHO 

BB  WRT  T 

pbb’t  s GMioGopsar  t sanGaopcAMT 


AA  WRT  V ■ 

P A A.  V 8 PSIV  " PBBV 

AA  WRT  RHO 

EAARHa_«_P.SlRllQ_i_PJ3lBfiHa 

AA  WRT  T 


8 H WRT  SlGMAftl  AND  AA  WRT  StGMATf) 

00  IR  I8| ,1 3 

W0SlGtILja_G-HJi)G*£^2Sl-Gai_*_S2QGa.*PG3ieXli- 

19  PAASTGdi  8 PSlSIGdl  - PORSlGd) 


PAROOISI 

PAR30I52 

PARDDI53 

PAR00154 

_ PAR00155 

PAR00156 
PARODIST 

PAR00158 
PARDD159 


PAR00160 

_ PARD0161 

PAR00162 

_PAR00165 

PAR00164 

PAROOIIiS 


PAR0I)166 

PARD0L6I 

PARD0168 

— PARODlfe? 

PARD0170 
PApnni 71 


PAR00172 

._.PAR0DLL3 

PAROOITO 

._J»AR0D17S 

PAR00176 
R 

PARD0178 

-_.PAR0017-9 

PARODIBO 

-PAROOiaJ 

PAR0D182 


IF  (VERSA  .NE.  AREAV)  GO  TO  24 

»aSXGNEJJ_AREA_EflUAX10Ka 

T1  8 i.’/(M?  . 

— GAHl  a-GAWMA  B.  1. 


BETAd.l)  B 71a(DTERM  - F(1)*PM2V  . V*PAAV) 

C DV/OIVAR.MRT.RHO 

HETA(1,2)  8 -VaTUPAARHO 

._X OV/OIVAR.  WRT  .1 

BETAd,J)  8 -TI*(V*pAaT  ♦ F(1)*PM2T) 

C DV/DIVAfl  WRT  31CMAi;i) 

DO  20  IlaR.'LSPS 

20  BETAddT)  » -T1a(V*PaASIG(I)  ♦ F ( 1 )*PMpSI6d  ) ) 


IF  (RHOCON)  GO  TO  22 


PAR00184 

-PARomas 

PAROPlBb 

PAR0DI87 

PAR001B8 

-PAR001&9 

PAR0O190 

PAR00191  

PAR00192 

PAR00193-, 

PAR00194 

-PAR 00195 

PAR00196 
PAR0D197  — - 
PAROOIRB 
PAR00199 
PAROOaoO 
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_DRH0/DiyA5(_wRT  ...y 

BFTAf?,n  = RH0*T1*(P*AV  ♦ T1*0TERM*PM2V) 

DRH 0 /DIVtR  WRT-RHn 

8ETAf?,E)  a RH0*T1*PA*RH0  ♦ F(2)/RH0 

ORHO/Ojy*R  WRT_T 

“ BETAfE,i')  a RH0*T1*(PaAT  ♦ Tl  *DTERMAPH2T) 

_ORHn/QIVAR  wRT  SIRMAClS 

00  2l  Il«t|,LSP3 

T g T1  « > 

I BETA(2,I1)  8 RH3*T!*(pAASIG(n  ♦ TIAOTERM 


TlAnTERM*PM?SIC(I)) 


PAR00201__ 

PAR00202 

EL*  Ron?n3 

PAR0D20a 

PARD0205_ 

PARD0206 

PARDD207_ 

PARDn208 

PA  R00209 

PARDO210 

PARD0211„ 

PARD0212 

J*AR0D2lJ_ 

BBv)  PARD02ia 

EA.RJ>lJ2i.5_ 

PARD021b 

__  _ _P*R0D21L_ 

»<2*0”tERM*PGaMTPaRD0218 

PAR!>021R_ 

AMT  PARD0220 


22  IF  (ICON)  rETURM 

OT/OIVAR  WRT_V 

HETA(3,1)  8 T*(GAM1*Ti*(M2*P*AV  * T U0TERH*PM2v)  - PBBv) 

DT/nIVAR  WRT  RHO 

BETA(3*2)  e T*(GAM1*H2*T lAPAARHO  • PnBRHO) 

OT/OIVAR  WRT_T 

BETAfi.si  9 T*(TI*(:gam1a(M?aPaaT  ♦ T|*0TERMAPM2T)  • M2*o”TERM9PbAH 

A ) - PR3T)  ♦ F(i)/_T_  

IFnRHO.F0.2)BETA(3,3l=BETA(3»3)TTAGAMl*PA*Tt'TAAA*pG*MT 

OT/OIVAR  WRT  STGMAfn 

00  23  IISR.LSP3 

I_s  II..-_3 > : 

BETAf3,IT)sT*(TlA(GAHiA(M2APAA3IG(I)4.TI*0TERH*PM2SlG(n)-M2A 

A OTERMAPGSxGdil  -_POnSlG(JiJ_ _ _ _ 

iF(IRM0,F3.2')BETA(3.Il)*BETA(3,II)ACAMlATAPAASIG(I)  + TAAAAPGSlC(T) 

23  CONTINUE ■ ; 

RETURN 

ASSIGNED  pressure  EQUATIONS 

2q  T1  8 1 .’/(GAHMAaGAMMA) 


F(l)/V 


PV/OIVAR  WRT  V 

IF  (V  .NE.  0.)  BET*(1,1)  s - . 

OV/OIVAR  wRT  RHO 

BETAfl.2)  X -F(1)/RH0 

^DV/0IV*R_  WRT  T 

BETAfl,3r  X 0, 

nyy  0 1 y*_fi_wRT_siaMAiii 

00  2S  IIs«,LSP3 

.25  .8ETAtl«_IlJL»_fl: L 

IF  fRHoCON)  Ga_TQ^7 

ORHO/OIVAR  wRT  V 

B LT A fZdi  x -RHQAPAAV 

ORHO/OIVAR  WRT  RHO 

BETa(2«2)  X F(2)/RHD  - RHOapaaRHQ 

OrHO/OIVAr  WRT  T 
BF.T*(2,3)  X -RHOaIPaat  f_Tl ADTERMApGinJj , 


DRHO/OIVAR  WRT  SIGM*(I) 


PAH0D221 
PARD0222 
PAR0D223__ 
PARD0224 
_PAROO?25 
PARDD22S 
PARPn2?7 
PARD022B 
PARDD229. 
'PARD023'0 
PARDD_231_ 
PARDD232 
PARP0233 
PARD023q 
P_ARP023S_ 
PARDD23b 
PARD0P37 
PARD023B 
.PArOO?3?_ 
PAR00240 
PAR0O2qi _ 
PARD0?a2 
PARDD2a3. 
PAR0024q 
-PAJ<I>02«5_ 
PAR0P2q6 
PAR002q7. 
PArODPUB 

PARDn2q9  . 
PARDO250 
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PAR00251. 

PARD02S2 


JtL 

I s 


2fc  II*q.L8Pl 
II  - X 


c 

KO  nc  1 1 c»  * 1 / _ » Pint  1 j y J1  

2r  IF  (TCON)  return 

PARf)025‘l 

PARDD2S5 

c 

OT/OIVAR  WRT  V 

HETAf5,l)  a -T*PBBV 

PARD0256 

PAR0DPS7 

c 

DT/OIVAR  WRT  RHO 

BFTA(3*2)  s -TaPBBRHO 

PARD0258 

PAR002S<> 

c 

DT/DIVAR  WRT  T 

BETAfS.X)  a BB  - TafPBBT  - Tl  *r>rERN*pGAMn  ♦ FTIWT 

PAR00260 

PARD0261 

c 

DT/OlVAR  WRT  SIGHAd) 

00  28  Uaajspi 

PAR00262 

PARDD283 

PARD0264 

PARnD?65 

c 

RETURN 

PARD0266 

PAPRDPfcT 

ENO 

PARD0268 

CPERRW PWEDtCTS  error  TO  HE  EXPECTgt) 

ruNCTin^  pfrr  (h) 

e 

"r  THIS  ROUTINF  PRFOTCTS  THE  ERROR  WHICH  CAN 

c step  of  STZP  H 

c 

DQUBi  E PRErlSlflM  SUm 

C 

DlMEKISiaH  V(gfti«RKf?BS.Ff?Hi 

C 

COMHnN^CnNr>/DuH<S),  YN(2B),ls»LSP5»^E« 

CnMMnN/STNT/HMlN,H»JHi,HN.HWPl,HMAX.NH,AVH 

eaMMn^i/0FR»i/Ff?8)»<LPH<r?8).BETA/^g«yB> 

C0MHnN/PORF/PK(2fl),0kf28),0uHl(5«>> 
data  jc/n/  


C a H/(2.*H  ♦ HN) 



Cl  e"  H/HH 
C2  3 H ♦ Hm 
PERR  » or 


PERRROOL 

PERRR002 

PEPRR0Q5 

BF  FXPECTFD  FROH  A PERRR008 

PERHRQ05- 

PERRROOfc 

PERRR00.7_ 

pfrrroob 

PFRRR009 

PERRRDIO 

perrroil. 

»EHAX»ERRN, Jcv,KOUMTfERRPPERRROt2 

PFRRR01J„ 

PERRR014 

PERRRftlS 


PERRR016 

P E R RR  0J.7_ 

PERRR018 

PERRR01O_ 

PERRR020 


00  2 I31.LSP3 

_ _RK(n_3  COoIQKf I>/HH  ♦ fUlii, 

2 Ed)  s C»(rl*QKd)  ♦ C2*(Fd)  ♦ ALPHA(I)*H)) 

c6~3  cic2 


SUM  3 0,00 

pn^J-iaiAaPj 

IF  (.1  .EQ,  . I)  RO  TO  3 

SU^ a SUH  ♦ BETA(I,J)ARldJ) 

3 CONTINUE 


PERWR022 

-PERRR023-. 

PERRR024 

.PERRR025_ 

PERRR02fc 


luarJriUfMi 


PERRR02B 

-PERRROi* 

PERRR030 

-_PERRR031 

PERRR032 


a CONTINUE 

DO  6 I31.LBP3 

SUM  3_0,J)OL 

DO  5 J31.LSP3 


RKd)  3 F(T)  ♦ CO*SUM 

6 JfU)  ■ YN{l).>..RK.m 

e 

PERR-i-  ERRORCCJtfJlK»£*jC,«j 


PERRRoTd 

-PERRHOiS 

PERRROSfc 

PCRRR03T--- 

PERRR038 

-PERHR03R 

PERRR040 

PERRRoal 

PERRR002 
PERRROaS  -- 
PERRRoaa 

J>£RRROILS 

PERRROOfc 


CPRAT 

■ c 

J?*TI0 PfRFECT 

PUMCTlON  PRAr(M«CH«6ANMAi 

GAS  PRATOOOl  •* 

PRAT0002- 

pratooas 

C 

REAL  MACH»MSQ 

pratoooa 

PRAT0AA5 

eaCAMHl 

PRATOOAS 

GP1«R*1.0 

PRATO0O7  _ . 

CMlaC-t.O 

PRATOOOS 

CEXPa6/GMl 

pratooao 

c 

• 

PRATOOlO 

MSOaMACHaA> 

PRATOOll 

IF(HSO.6r.l.0)G3  TO  lO 

PRAT0012 

c 

PRATOOIS  . 

PRATa(1.0*A,8aCHl*H9Q)aaGeXP 

PRATOOlA 

RETURN 

PRATAOIS 

c 

PRATOOIS 

lA 

nENDMaf2'0*B/BRl#N8fl*rMl  /CRl  W*  rCrVRjiftT 

PUirnniT 

PRAla(O.SAr.PlaHSO)AaGCXP/OF.NUM 

PRAT0018 

return 

PRATAAIO  _ 

END 

PRAT0020 

1 


384 


CPBCDP  _ PEWFnRH  ALL  NECESSARY  PRg«»OERlVtTl VE  C4LCUI.ATI0NS 

VUBROUtlNE  PRED 

_c 

c PERFORM  ALU  NECESSARY  PRE-OERIVATIVE  CALCULATIONS 

_c : 

double  precision  DP1«0P2 

J 

logical  ALI H1>TCON»NExT 

.c 

REAL  IVAR*hOOT>LKEO,Mm«N«M,HIXHW,M2 

J _ __ 

CClMMhN/OPT«?/VERsT,  TIMFV,  VERSA,  a'REaV»FLIM,  ICON, RHOCnN.IPRCOO 

COMMnN/CnNn/DVAR,AREA,MDf1T,P,TVAR,V,PHO,T,SIGMA(2i),I.S,LSP3,NEXT 

C0MMOM/SPEr/SNAM(2,30),MW(25>,W(a5i,STOIC(?5,30),0HEr.A(25,:i0) 

COM  MfiM/RFAc/L  SRf^»,30).Xyno).RATF(30),LKEQf30).OLKFQ(30).MM(30).l 

COMmon/RSAT/A(30),N(3c>),EACT(To77b(3o),m(25,SO),ALI  Ml 

COHMnN/GMSr/GRT(25),HRT(25),SR(25),CPRC2Si^DCPRi2ji 

C0MM0N/\ECr/»R,MlXMW,M2^GAMMA,  TCPRVR  ' r' 

COM  M n N/ S A BS/Sl ,AA,BH,S2,OA,D2a« dterm7i rho 

c 

IF  trCON)  RO  TO  s 

GO  fn  1 

_C 1.^: 

ENTRY  PREOl 

MWARN  « 0 

C THERMOOynaMTC  PRbPER'fl'ES 

1 CALL  TURN  fT,i:) 

C 

ALOGRT  g Ai  OG(RR*T) j 

DU  4 jsl.LR 


reactton  rate  constant 
RATEfJ)  * A(J)*T»»N(Ji»EXP(-B(JI/T> 

LN  KEO„A»JO  D(LN  KEQ)/OT 

N1  s LSRIl^J) 

N2  * LS3f2.J) 

N3  V'lSR(57J) 

Na  g LSRfa.'j) 

DEL6  ■ GRTfNS)  - GRT(n2) 

OELM  «_HRTfN?)_-  HRT(n21 

IF  (Ni  .ctT  6)  on  to  2 

OELG  s OelG  t GRTJNR) 

DELH  e DELH  ♦ HRT(Na) 

LUF 3 fJ)  « -0 FLC  - ALOpRT 

OLKEQ(J)  s (OELH  - l.)/T 

„ GO  To  4 

2 IF  (wa  .r.T.  0)  GO  TO  3 

_.DELG  a DELG  - .GRT(Nl) 

DElM  e DFLH  - HRT(N!) 


_PRED0001_ 
PREDn002 
PRFOP003 
PREDOOOa 
_ PRFD0005_ 
PRED0006 
_PREDD007_ 
PREDDOOB 
PRE00009 
PREDOOlO 
PREDDOll 
PREDOOI2 
PREDO0l3_ 
PREDOOiR 
.RPRFDPOIS 
PRED0016 
PREDD017 
'PREODOIB' 
PRED0019_ 
■ PRED0020 
PREDP021 
PRE00022 
_ PRED0025_ 
PRED0020 
PRED0025_ 
PRE0D02fc 
PREDD027 
PKEDD02B 
PRFDD029_ 
PREOno30 
_PREDD03l 
PRE 00032 
PRFD0033 
PREb0034 
PREDD035 
PRED003b 
PREDn037 
PREDD038 
_PRE0003'»_ 
PREOOOaO 
PREDP041 
PRED0042 
_ PREDD0a3 
PRED0044 
_PRE9noa5_ 
PHEDOOaS 
PREDOoa7 
PRFOOOaS 
PRE0D049 
PREPD050 


LKEO(J)  s -DFLG  * ALQfSRT 

PRFOnOSl 

DLKEO(J)  « (OKLM  ♦ |.)/T 

GO  Tn  0 

PRE00052 

PREQOOSS 

1 OCLG  m OELG  « 6RT(N4)  - 6RT(Nt) 

OELH  « OELH  ♦ MRT(Na)  - MRTlNli 

PREOOOSO 

PRFnnnss 

LKEOrj)  B -delg 

OLKE(J(J)  a DFLH/T 

PREDO0S6 

PRFDnosT 

c 

a continue 

PREDOOSS 

PRFDDOKO 

c 

MIXTURE  MQLFCULAR  MCIChT 

5 SSUM  so: 

PREDDObO 

PREOOOfcl 

no  6 lat.LiT 

6 SSUM  s SsUm  f SlCMAtlS 

PREDOOfr2 

PRFODOaS 

c 

MIXMW  s t./3SUN 

PREDOOOO 

PREDOOfcS 

c 

assigned  variable 

IF  (iPRCno  .gt:  2)  60  Tn  T 

PRE0n066 

PREOOOAT  __  _ 

y ■ IVAR  , 

IF  (VERSI  .EO.  TTHEV)  X s DVAR 

PRE00068 

PREDDOaO 

CALL  CINP  rX. AVAR,OA#02A) 

GO  Tn  a 

PRE0D070 

PRFftDOTl 

7 TIME  a OVAR 

IF  (VERST  TEO.  TI.MEV)  TIME  a TVAR 

PRE0n072 

PRFOnoTS 

CALL  CINP  rTIHE,AVAR«QA«02A) 

PRE0n07a 

c 

PRFDn07S 

c 

calculated  variable 

8 TF  (VERSA  :E0^  ARFAVl  Grt  TH  9 

PRE0D076 

PBEpnnt? 

P a AVAR 

IF  (V  .‘nf.  o.i  area  a MnnT/(RHn*v; 

PREbD078 

pRFDDOT® 

60  To  10 

9 AREA  a AVAR 

PRFDDOSO 

pRFQng^} 

r 

P a RHO*RR*T/hIXMM 

MASS  FI  nd  P»TF 

PREDD082 

Domnnas 

r 

MOOT  8 RhOaAREAaV 

PREOOOSa 

oornnoR^ 

10  DO  20  Jat,i'R 

N|  a LMBflf'-l^ 

PREOnoRb 

DOrnnAHt 

N2  a LSR(2,J) 

MS  a 

PRF.DD088 

oDFnnoRP 

e 

N«  8 LSR(«.'j) 

PRED0090 

DDpnrkAoL 

c 

THIRD  BODY  FACTOR 

MM(ji  BO, 

PRFDno92 

PRFnnnoX... 

IF  (Nl  .NET  0 .and.  no  .NE.'  0)  60  TO  13 

TF  r«i 1 M<T  ftn  tn  i> 

PRKDD094 

POPnrkAOC 

— 

DO  1}  lawi  S 

ILHM(J)  8 MM(Ji-A.M(l, J)«SICMA(I) 

GO  Tn  15 

12  NN(J).«.  SSUM  - ...  - 

PREOD09h 

PRE0D097  

PRE0D098 

PREOO099  

PRCDnioO 


-i3_EXPl_s_.R*T£lJD 

EXP2  = I, 

TF  (LKEDfJ)  .'gT.  oJ)  QO  TI 
EXP2  s ExPf-LKE0(J)/2.) 

_ GO  Tn  IS  

i«  EXPl  s EXP'f ALOG^RATECj))  • 


LKEO(J»J 


NET  RFACTTOn  conversion  RATE 

IS  IE  (Ml  .r.T^  0)  GO  TO  17 

IF  (N1  .lT.  0)  GO  TO  16 

DPI  s.RATEf  J)*8ir.MA(N2)^ 

DP2  s RHn«FXPi*SlGHA(N3)*EXP2*SIGMA(N‘()*EXP2 

XX(jj._=  MHtJl*J^L_-_j^P2} 

GO  TO  20 

Ifc  D PI  = RATE! J)*SIGMA(N?)/RHQ 

0P2  s EXPl*SlGMA(N3)*EXP2*SIGMACN<tl*EXP2 

XX (J)  s DPI  - PP2 

GO  TO  20 

_ll  .lF_(Na  .GT^  0)  GO  TO  \<t 

IF  (n«  .i-T.  0)  GO  To  l8 

QPl  = HHt«s1GmA(N1 )«RaTE(J)«SIGNA(n2> 

0P2  * FXP1*EXP2*SICHA(NS)*fXP2 

.XX(jV_s  HH.tJl*iJ)P_l_?_DP2j 

60  TO  20  , 

_18  OPl  s SIG'^A(Ni)*RATE(J)*SIGMA(N2) 

DP2  = EXPl*SlCMA(N3)*EXp2/RHn*EXP2 

xxiji  8 OPl  «»  np2 

GO  TO  20 

19  DPI  s SIGMaInI  )^RaTE(J)_*SIGmA(n2)_ 

DP2  » EXp2*SIGMA(N3r*EXPl*siGNA'(N0T*FXP2 

XXTJ^s  oPj  - 0P2 

20  CONTINUE 

RHn2  s RHOaRHO  ^ 

TCPR  ^0l 

00  22  I=l»l S 

TOTAL.  Cp7r 

TcPR  » TrPP  » CPRm*SIGMA(I) 

NE T_SPE C I E S PRODUCTION  RATE 

wci)  « o; 

_ 00  21  jst ,lR  „ ' 

OMEGa(I,.I)  5 RH32*st0lC(I,J)*XX(J) 

21  Wfl)  « Wfl>  ♦ OMECAfl.J) 

22  CONTINUE 

GAMMA  (FROZEN)  

GAMMA  s TCpR/(TCPR  - l.2MlXMWj  _ 


PREOOlOt 

PRE0ni02 

_P«FD0L03 

PREOniOO 
PREP0105  _ ' 
PREDD106 

PREOOlor 

PKE00108 

_PRE0D109 

PREODUO 
PREODJll  . _ 

PREOOl 12 
PRE0D113 

PREOOl 14 

.PREOOilS 

PRF00116 
PRFODl 17 
PREODllB  • 

PRF0O119 

PHEDD120 

_PNP0f>i2J 

P«F.0D)22 

PRE0ni23 

PRE0P124 

PRE00125 

PRE0D126 

_PRFOOl^27 

PREObl'28 

PRF00129 

PRE0O130 

PRF0D131 

PREDD132 

P REDD  MS 

PRF00154 

PREOOMS 

PREODlSb 

PRE00137 

PRFD0138 

PREOOl,  39 

P RE OP  14 0 

PREPOJitl 

PREOP102 

PHEODIOS  

PRE0O1O4 

PRFOOIOS 

"pREDOlOb 
PRE00147  __ 
PREOPIOB 

PRF0P149  

PRFODISO' 


CPRINT  mXPlUT  output  ROUTINE 

subroutine  mprint 

C ' 

C A y lAL/  XtXL*  Alor.x 

COMMON  /CSPECI/  NSPECl»NF,OX 
COMMON  /CRFACT/  RH0REa(12) 

COMMON  /GAStMW/ ' TG(2,ia,2l,ZM"WTG(?,  l2,?>»TAIin2,2)',CPr.f2,i2,2) 

COMMON  /GASCMP/  YRlCH(l2),YPRIME(t2).FQAlR(2,12,2).ENTH(2>12.2). 

1CUNCT16>2>  l2«2'),nUMr.As(2i6) 

C Qmmqs  /j  E tOAT/  NTUh  E S « YPEACTI  1 2 ),TSn2),  U R E A C TJJ  2>/SPVn2)# 

1ZMUT(12).CP(12),KSPECI (12),  G ( 1 2 ) , TKE ( 1 2) , OTHER ( ib ) 

common  /CMaSS/  ZMASS( l2),2MASSH(12),7MA3DU(2a) 

COMMON  /CNWNET/  r0UM(i00),ruEUR(12),  FOUMMdOO) 

c __  

DATA  JNEM, jRICH, JLEAN  /2,1,2/ 

.C 

WHITE  (6,1)  X 

write  (6,2)  


WRITE 

WRITE 


(6,3) 

(6,S) 


write  (6,4)  (YREACT(I),FUELR(I)»ZmAS9H(I)»RH0REA(1),UREACT(I)» 
1YRTCh( I ).F0AIR(  JLEAN.I, JNEW).FaAIR(.tRICH.I. JNEW),G(I) :tAU(I.2 
2Ial,NSPEcn 


printooi 

PHINT002 

PRINT003 

EfilN.TOO.fl- 

PRINT005 
_PRInT006_ 
2)  PRINT007 

2),  PHINTOO0. 

PRINT009 

fiRJ.NTC.lQ- 

PHlNTOll 

PRINT012_ 

PRINTolS 

PR1NT0I4 

PRInTOIS 


PRINTOIT 

printojb. 

PRINTOIQ 

PRINT020 

PRlNT02i 


PRINT025 

PHlNfOaQ 

PRINT025 

PRINT026 


RETURN  PRINT025 

_1  format  (IQX, 19HAXIAL  distance,  X s,Fl3,3)  PRINT026 

2 FORMAT  (//,  10X,6HHA()IuS,SX,aHFljEL,ftX,aHMASS,SX,  7HDEN5ITy,2X,8HVELOPRl.NT02r 
—LOU  T/J5JL*  aHMA3S,3X,flMFjEL/GAS,2X,BHFllrL/GA3,7X,lMr.,SX.7MTRANSIT)  PRINT029 

3 FOHMaI  (l2X,3H(Y),6X,aHFL0W,»X,4HFL0w,?5X,8MFkACTl0N,3X,«HLtAN,6X  PRINT029 

_l,aHRiCH,  i7x,4HTlME) print 030 

4 F0RMaT(F2».5, JF10.5,1F10.4,5F10,5)  PRINT031 

5 format  (6'4X,6H(RlCH),3iX,5H( SEC)) — PRInT032 

END  PRiNTOSi 


CPR3PJ  PR3PFRTIFS  QP  A LAMINaP  OR  TURRULENT  JET 

__  . SURRnUTINE.PROPJ(TWO.NLyR8»NRE6fJ<*-r/Jj.TKEf 

common  /xprin/  oprin 

LOGICAL  QPPIN 


Integer  two 
.logical  NTuRH- 


REAL  MaCH.MUL,muEFF,KcP,MURCP 


.c*_ 

c* 

_£*_ 

c* 

■ C* 

c* 

.C* 

c* 


TmO  ci  STN CLr  JFT 


TWO  m2  COANNuLAr/COPLANAR  JET 


NTURB«F  laminar  properties  only 

_ eT_LAMlNAB  AND  TLiROULi;NT  PROPERTIFS 

nreg  si  MIXING  region  (X.LT.XLC) 

NREG  s^  (LARGE  X-——  SIMILAR  PROFILFS) 


.»-.*XIAL.,C0-UR0!NATE  j(XZ.QJEJJ 

m normal  rO-OROINATE.FT. 


Y 

T 5.  TFMpERATURE_f,OEG  R 

TKE  m tORBULFNT  KE.  8Tijl/L8N 


C* 

C*. 

c* 

.c*. 

c* 

_c* 

c*  XLC  S AXIAL  CO-OROINATE—START  OF  TRANSITION  REGION 

C • M A_C H s J ET  0 1 SCHARGE  M ACM  NUMBER 

C* 

.C*. 


COMMON/PROP JT/ 
« R.  f PRL.a  PRT- 


A TREF 
A REFi 


■ RCA8  « SC.. 


MUREF  $ MACH  , XLC 

C_._CHJ_,_RN05M_i 

RH0(200)  MULiaoO)  - KCP(200) 


f f nuricwij  $ 

J*.MUEFF(2001_.,_  XLN(200)  0K(200)  *_RFTURB(?00)_ 

C3MHON/CPRoP/CTl,CT2,ct3,CT«,CT!»»CT6,CT7,CT8,CTR»CT|0 
_C 0 M MQN  /rPR0P2/  CTP.  r.TS  . CTM 


PROPJOOl 
PROPJ002. 
PROPJ003 
_RHOPJOM_ 
PROPJ005 
PROPJOOS. 
PROPJOOl 
.PROPJ00.8_ 
PROPJ009 
-PROPJOJLO_ 
PrOPJOII 
PROPJ012. 
PROPJ013 
PROP JO lA. 
PROPJOIS 
JLRQPJOJJl. 
PROPJ017 
PROPJ018_ 
PROPJOI9 
.PROPJ020_ 
PROPJ021 
PRQPJO??_ 
PROPJ023 
PROPJOPQ 
PROPJ025 
PR0PJ020 
PROPJ027 
PROPJOES 


COMMON  /PROPJ2/  MACHO, REFLO»Vl,YO, merge 

.LOr.lC.Al_,MEjTG.E 

REAL  macho 

.COmmon_^H I SC/  PMClOl,  PUM33 


PROPJ029 
__PROPJ030_ 
PROPJ031 
. PR0PJ032 
PROPJ033 
PROPJ030 


logical  ltprp 

.Ca)m,MON_/!1lL rCRP/  LTERP 


COMMON  /CTRL/  0UMCLl(9),  C6  , 
COMMON  /FPgE  / VJETE,8FFDCF 
COMMON  /CRmOO  / CJRMOo 


OUHei.2(809) 


.CA 


DIMENSION  V(l),  T(t},  TkC(0 
DATA  GCJ/2«;039:r372/ 


CA 

CA  MUL  bLAMINAR  VISC3SITY»lBM/FT*SEC  

CA  mliEFF  sEFFECTlVE  VISCOSITY, LBM/FT«*8EC 
Ca._RETURBsTUR8UlENCC  REYNOLDS  NUMBER 


PROPJ035 

PROPJ036_ 

PROPJ037 

PR0PJ038. 

PROPJ039 

„PROPJ090- 

PR0PJ041 

PROPJQ42. 

PROPJ003 

PROPJ044 

PROPJ045 

_PRaPJ0A8_ 

PR3PJ047 

PROPJ048 

PROPJOflR 

PROPJ050 


390  ~ 


o o o 


C*  KCP  ■KFFF/CP.LRM/^T-SEC  PR(3PJ051 

c*  Xln  sTiiRhUiFnCE  length  8CALE»fJ : PROPJ052 

C*  RHO  «t)ENSlTY.LBM/rT3  PROPJ053 

OK  cDlFFllSlDN  PARAMETER  FQR  TtJRWULEMfE P.RQPJQ59 

C*  PR  bLamINAR  pRanOTl  number  PROPJ055 

C*  P »PRFSSURE.*P91  PRr)PJ056 

c*  SC  bSUTHFRIANO  C0NSTANT70EG  R PROPJ057 

JTRFF  » REFFRFNCE  TF MPpR* TURE.OCG.P  PROPJ058 

c*  mUREF  ■ reference'  viscosity, lBM/FT«SFC  PHnPJ0S9 


c* 

c*  RNORM  bNORHAI  IZINC  TURBULENCE  REYNOLDS  NUMBER 
C*  REFl  preference  OImEnSIbn  FOR_TUR3,'_j.EmOTh  ScalEj!!!. 
C*  PRT  turbulent  PRAnDTL  NUMBER 

_..C* 

C* 

e*  constant  values 

c* 

OPRal,/PRL 

OPRTal.VpRT 

CPRESS«iaO,*P/RCj|8 

TF(NTURB)  nREFL«'i./REFL 

C)Rn:ipm?jJ/bnqsm 

IFITREF.NE.O.)  3TREF*l./TReP 

- ___CKELel.Vl.fl T ^ 

CHsl./(l.*rT5*MACHy 

GO  TO  (300,’510)_.-TWQ 

3t0  CHnsi,/(t.*CT5*MACHO) 

CTIOb  : : 

300  IF(NRFG,NE:2)  GO  TO  5S 

XRATsX/XLC 

CN5CTa*(CT6*CT7*MACH) 

TRAN5sXRAT»aCN.-_ 

IF(,t|jOT.LTFRP)  00  TO  5 

tMP, . nTCT2»MACHl 

TESTL»CTB»f  XHAT-1  ,)tCTl  aCMA<2,'"XRAT) 

1F(XR*T..  ,GEi_2j nREGsS 

GO  TO  a 

3_C0NTXNU£  

TESTI «CT5*rM*TRANS 

** MOD IFJC AT laMa_£OR-SCALE- CHANGE  lN_CORE  REGION 

33  YC  ■ YJFTEpREFL/Cfc ^ 

YINLTM*  TrbYC 

YOUUMa_tC*,UREFL/C6 

C* 

a 03  100.  

TTpTiJ) 

RH0(J)iiCPRF38/TT — . . 


PRaPJ060 

PROPJ061 

PROPJ062 

PR0PJ063 

PROPJOM 

PROPJ065 

ERQPJftii 

PROPJ067 

PRDPJ06B 

PR0PJ06« 

PROPJ07.0 

PROPJOTl 

PJ{OP  J 0 72 

PROPJ075 

PROPJOTA 

PROPJ075 

PROPJ076 

PROPJ077 

PROPJOiB 

PROPJ079 

PROPJ080 

PROPJOBl 

-,..PROPJOa2 

PROPJ083 

PKOPJosa 

PROPJ085 

PROPJ08B 

PROPJOSr 

PROPJ088 

PRDPJOa? 

PR3PJ090- 

PROPJ091 

_ PR0PJ092 

PROPJ093 

PROPJ09a 

PR0PJ095 

PROPJ09S 

PROPJ097 

PRr>PJ098 

PRnPJ099 

PROPJlOO 


VISR»0. 

JFjtlREF^nE^J 


MULtji».99iS[^t-A!^QHl<CX£L*JJiy(l^i2ol,’6yTii 

60  To  10 

. C» ^ 

c*  LAMIN4P  VlSCnOlTY-— GE^tRAL 

_C* 

5 TRaTT*OTRCr 

MUL<j)e*lURCR*TR*8DRT(TRj*i7aEFt9Ci/t.Tt*M) 

10  ift.not.  mturb)  go  to  ao 

_C* 

c*  calculation  of  turbulent  parahcters 

_£* 

YT*Y(J) 

"c *~fuR8ULENcc  Scale  calculation—  cMECK’rnR  TYpyor  jet 

-t* 

c* 

e***»>»*  computation  of  IENrTh  SCAI  t for  TuRBUiEMCE  ****** 

CO_tO_  ( 2 0 * « 0 0i_<  JLHa 

20  60  To  (2S>35«40)(NRC6 

C*  hiking  TArER--R^»7!^TH  OF  M1X1NG~Z0NR 

_L» . 

25  IF(  YT,LT,V1NLIH  ) CScAlF«C6*CJRM00 

LF_C_YL.GE^OULJL“_1.C3CALF«REFl,  ■_  , 

IFKYT.CF.VINLIM)  .ANo,  (YT.LT.YOULIM))  CSCALE»Cfc»(Cfc»REFL)* 

* -(YT»YINLIH)/CY0UHH-:9oYC^ 

*LN(J)«  CTi*CH*CSCALC 

GO  TO  50 ..  ■ 

c* 

_C * tRA N3ITIQN  REGION 

c* 

■33_yLNXJ)«l£8lL*REgl 

GO  TO  50 

.z* 

c*  SPALOInG.*  sfouencf  for  length  scale 

_£* 

00  XLN(j)aCTB*REFL 

. GQ_Jfl_50 „ 

5*  . , ... 

_r * coannui  ar/coplanar  jet—set  lub  indicator  for  up/Dn -aTR.E an 

t*  OF  merge  point 

«o6~’lus»!  ^ ' 

IF(*1ER6C)._LUSf2 .... 


PROPJIOI 
PROP J 102- 
PROPJIOJ 

PROPJLOA. 

PROPJ105 
„ PROPJlOfc 
PROPJIOT 
PROPJ109. 
PROPJ109 

PROPJllfl- 

PHOPJl 11 
PROPJ112 
PR0PJ113 
_ PROPJllO 
PROPJ115 

PRORJUi- 

PROPJ117 
PROPJllO. 
PRDPJllO 
PRDPJ120- 
PR0PJ121 
_ PROP. 
PROPJ123 
PROPJ120. 
PRDPJ12S 
PROPJ120 
PR0PJ127 
_.PRQPJ128l 
PR0PJ129 
...PRDPJISO. 
PROPJlSl 
PROPJ152_ 
PR0PJ13J 
PROPJiaO 
PROPJ135 
..  PR0PJ13fc_ 
PRnPJ137 
_ PROPJITB, 
PR0PJ139 
_PR0PJ1.05_ 
PROPJIOI 
PROPJ102. 
PR0PJ103 
PROPJIOO 
PROPJIOS 

PRO'»J10^ 

PROPJIOT 

PROPJlOB 

PRnPJ!09 

PROPJI50 


r»or»  1 1 , I ;r»nr«  l ' no  o'  ooo 


w 


.IBRiUm  composition  CH(N)»AlR-t(?0  SrSTEM 
BHJTF-FORCE  method  _ 

SOBRnUTiNE  P3E0^(EAH»MAR,HC,T,BETA,FlXC3,FIXNn»ZZ> 

logical  riXCn.FlXNi3*3*MlX,THQUBL*N030LN»D0NE 
"REAL  mf  , < TTk^  * K i , K , K5 
DIMENSIDH  7(ll)«ZZ(ll) 

DImEnSIuh  B(i)»A(9),0Z<3) 

DOUHi.E  PRtCiSIOV  BETA  

COMMciM  /GHSC  / FF(25),HH(25),3a(25)VCPZ(25T;DCPll(25) 


■ EOUIVAO'JrFCDSUMH.Qd)'),  rDS'UM0,3(2Ur(f>3Pll,B<3))» 
’ (0ZH2,DZ(n).  (DZ02*DZ(2)),  (DZh23»0Z(3)) 


order  of  species  = H,0,H2,n2,OH,H2O,c0,CO2.N2,A»NO 


TROunL=  .False. 

STFl  I X=TF  AirriL  O'FAH  + WaR-OlDWAH  ♦HC-OLDHc), £0,0,0 
_ lF(SA‘dX)GO_TO  10  

calculatf  equivalence  Ratio 


OLDFaRsFAR 

TlLOMARaHAR 


OlOBCsHC  __  

MF  = 12,0U1  J00B»HC 

_ FAHSs0,209o9y2B,9S6b*MF/(  1 ,0»C,25»HC) 
ERsFAH/FAHS  ‘ 


total  POUmd-aTOMS  each  constituent  per  pound  mix 


PSE0200I 

PSE02002 

PSEa2003 

PSE02009 

PSF32005 

_PSF92006 

p'sEoaoc/" 

PSeO^OOO 

PSE02009 

PSEQ20tO 

PSE020H 

PSE32012_ 

>bE02013 

PSE32019 

PSE02015 

PSE02016 

■PSE02017 

PSFQ201B 

PSFD2019 

PSE02020 

PSE0202r 

PSE32022 

PSE32023' 

_PSE3202«_ 

P5E32025 

PSF32026 

PSEa2027 

PSE02028 

PSE32029 

^SE32010_ 


GARsi ,0tFAR*WaR 

SUMH=(FAR«HC/‘1F,WAR*2, 0/18.0  If.) /CAR 

SUMCs(FAR/HFt3E-9/28,9866)/GAR  ' 

SUM:i=(waR/tH  . 0 1 &♦?  , 0JL.(  0.2  09q95»3E«»a)/28.9(>hb)/CAR 


SUM Ns2. 0*0. 780681 /2H, 96 66/GAR 

__  SUM A = 0 . 0093 29/ 28. 9666/Gar 

CC  = 2.  .0*SU'1C'*’0,S*SUmh-sUmO 

ZZX  = O,5*(3E-«t23.9666/18,Ol6AHAH)*SOflN/0»7_80Ml_ 

CCLsSUMC+OjbASUMH-ZZX 
JF(cri..LT*Q.oicCL  = o,.o_ 


CCR=0,5*(SUMO*SUMC»ZZx) 


unreacted,  completely  reacted,  and  specified  specific  molarity 

SPMUs0.5*(3UMO*SUMC*SUMHfSllMN*ZZX)*Sl)MA* 

S PM C = 0 (JLi 3 U MH ♦ 3 U M N ♦ s U M 0 l.t.S U M/L 


IF(ER,GT. 1.O)3PMC=0,S*(3UMH*SUMN)^SUmc»3UMA 
10  BETAlslDO-BETA 


PSE02031 

PSE32032 

PSE32053 
__  PSFQ203q 
PSEQ2035 

^PS£3203b 

PSEQ2037 

PSE02038 

PSEQ2039 

PSE32090 

PSF320al 
psf:a2oq2 . 

PSF320q3 
PSEQPOua 
l/MHTPSEQ20aS 
PSEQ20q6 
PSE320a7 
P5Ea20«9_ 

PSE020q9 

PSEQ2050 


395 


sphcbetai*sphu*bcta*sphc  pseoaost 


c 

P3E0205Z 

c 

c 

SET  CDnCENTRaTIONS  OF  ISOLATED  sFfClES,'  ZERO  OTHERS, 

PSE020SJ 

„ . PSr0205«  

CALL  SETHdrO, 0«Z«ui  ^ ' 

Z(10)«SUMA 

P3E020SS 

PSE02058 

IFaiXC0T2(7)*ii(7)/(ZZ<7)>ZZ(8))*SUMC 

PSE02057 

IF(FTXN3)Z(11  )«Z7dl)/(ZZ(ll)»2iO«ZZr9))*SUMN 

P3F.Q20SB 

ir<T.tQ,OLbT)GO  TO  20 

P3EQ20S9 

c 

P3EQ2060 

c 

C maUlLlB'RlUM'  tONSfANTS 

PSEQ2061 

c 

PSE02062 

dLbt^T 

PSE020fr3 

TXK  c 7 /I. 8 

PSEOZOAO 

CALCnfHRHC  TXk  , 1.  ) 

PSEQ2065 

K1sEXP(FF(5)*FF(«)-2,0*FF(S)) 

PSEg2066 

Ki'»£XP(FF(3)>FF(^()-FF(6)-FF(2)) 

PSEQ2067 

K3aFF(3)*FF(5)-FF(6)-FF(l) 

PSE02088 

IF(K3.r>T.88,0)K3a88,0 

PSEOZOAO 

K3sEXP(K3) 

PSEQ2070 

KasEXP(FF(R)»FF(3)-Ff'U)-FF(7)) 

PSEQ2071 

KbsEXP(FF(9)»FF(a)-2,0*FF(ll)) 

PSE02072 

c 

PSE02075 

c 

initialize  PRIMART  3PEC1E8 

PSE0207<» 

c 

PSt02075 

20  IFaR.CT.l.’oieO  TO  30 

PSE02078 

Z(3)s9ETa1*CCi7T(7T 

PSE02077 

IF(  Z(3).LT,0,  ) Z(3)«0, 

PSE02078 

ziRjao.s^izisiRZiTi-znn-cc) 

PSE02079 

GO  To  ao 

PSE02080 

Jo  Z(a)saETAuCcR**o,5*z<il) 

PSE02081 

IFIFIXCOIGO  TO  35 

PSE02082 

AAA«K4<»1 .0 

PSE0208J 

CCCsCCf2.0*Z(Q)RZ(U) 

PSEa?08a 

BBBs-(CCC*AAA*Kin*SUMCr*0,S*SUHH)  ‘ 

P3ro2085 

CCC=CCC*Ka*8UHC 

PSE0206b 

Z(>)s-0,5*(BBB+50Ri (UBB**2-a,0*AAA*CCC)>/AAA' ' "" 

PSE02087 

35  Z(J)*CC+2,0*Z(a)-Z(7)»Z(ll) 

P8F.Q2088 

~T»0  Z(6l»8UM0+z<7)-Z(ll)-2,0*rsuHCR7^(all 

PSEQ2089 

c 

P5E02090 

c 

BE  GllTTT  ERaT  TUn 

PSEQ2091 

c 

PSC02092 

OtftLalE*fc  ■ 

PSEQ209J 

IF(BETAl.LT,lE-6)0TOL«lE-7 

PSEQ209q 

DO  loo  IsU30 

PSEa2095 

c 

PSE02098 

c 

RADICALS  From  EournBRrA  ' ' 

P3E02097 

c 

PSEQ2098 

Z(5)aS0RT(Kl*Z(3)*Z(a)) 

PSE02099 

Z(2)«K?*Z(3)*Z(«)/Z(6} 

P3ED2100 

R 


2(1 )=K5*Z{3)*2(b)/Z(6) 

iP(Fixra)Gn  to  so 
2(7)=K«*SUMC*Z(3)/TZ(6)+K«*Z(in 
SO  Z(8)s3UMC-Z(7) 

IF(FIXN3)G0  TO  60 
zo?KS=o.?s*«s*Z(a) 

m r7=SQTr(Zl)2K5*(202K5»2,0*SUMN)>*Zn2K5 
60  Z (9  ) ^,  S*(3UMN"Z(U)  ) 

c 

C H,0  continuity  defects  and  MOLiRITY  DEFECT 

C 

0SIJ^H=SUMM,2(1  )-Z(5)-2.0*(7(3)*Z(6)) 
CrSrOKO=S’JHO-Z(2)-r77) -Z{6)-Z(7T^TiI)-2.0*(Z(0)*Z(5)) 
OSPNsSpM 
bo  7o  J=l»ll 
70  OSPMxOSPM»Z(J) 

c 

C TEST  FOR  CONVERGENCE 

T 

OONEs(A3S(DSUhH),lT,OtOL*SUmH) 

• .AND. (AaS(n3UMO),\T,OTOL*SUMO) 
»,AND.(ABS(D3PN),LT,lE-«  ) 

tF'(Oant)  Go  To  uo~ 

c 

T partial  Derivatives  to  direct  convergence 

c ■ • 

23sAHAX1(Z(3), 1E^36) 

Z«*AMAXi(Z(a), IE-36)  

A(l)s2,0*0.’S*(3,0*Z(l  )*Z(5))/Z3 

A (2 ) s (7(2)»0 .S*Z(S1)/Z3 

0CUUX«'k«»Sumc/(Z(6)*K«*Z(3))**2 

IF(,NOT.FlXCn)A(2)=A(2)-OCOOX»Z(6) 

A(3)sJ  .*0*(1  ,5VZ  (i  )*Z(?)*0,5*Z(5))/Z3 
A(«)=0.S*(Z(l )AZ(S))/Z« 

A(5)  = <;.0«(Z(2)«O.S*Z(S))/ZO 
ONnoo?=o.o 

TfU (0) , NE;o.0i0N0DO2-0,S*K5*Z(9)/(0;25*KS*Za*Z(ll)) 

IF(,N'JT.FlXNn)A(b)=A(S)*0NOD02 

A(6)si  .o*(z(?)*o.5*(Z(n*z(5)))/za 

IF(  ,NDT  ,fIxNO)A(6)s^A(6)*0,5*0_N0002 

A(7)=2;o-Z(I)/Z(6) 

A(fl)»l  ,0-Zc?)^(6} 

IF(,nJT,F1xC0)*(8)*A(8)*0C0DX*Z(3) 

, 0-( Z ( I ) l^Z (2 ) VZ (6)__ 

C 

C NEW  estimates  OF  PRIMARY  SPECIES  

C ■ ■ 

^LL  SnLVSlA^B/DZyNjSQLN) 

TKOURLsTROurtL,OR,N3bOLM.nR.I.EQt2l 


PSEQ2101 
PSE02102_ 
PSEQZIOS 
_ PSEQ2l0a_ 
PSE92105 

PSE02J06_ 

PSE02107 

PSE3210S_ 

PSE02109 

^PSE02110_ 

PSEQ2111 

PSEO?il2_ 

PSEQ2113 

PSEo2n«_ 

PSE02US 

^PSE32ll6_ 

PSEQ2il7 

P3EQ2il8 

PSEQ2119 

PSEQ2120 

PSE02121 

_PSE02122_ 

PSE02123 

PSEQ2124 

PSE02i2S 

PSE02126__ 

PSE02127 
_ PSE02l28_ 
PSE02129 

PSE02131 

PSEa2l32_ 

P3E02133 

PSEQ2134_ 

PSE02135 

E_S£J12L3>_ 

psEazli/ 

PSE02138 

P3EQ2139 
_ PSEQ2iaO_ 
PSE02141 

PSFQ2l«2_ 

PSFa2l«3 
_ P3E02144_ 
PSEa2l4S 
PSE02146 
PSE0214/ 

PSF-a2l4B_ 

PSFQ2149 

PSEaZlSO 


•1 

i 

•i 


4 


4 


I 


c 


*OlRFH-  quadratic  INTERPOLATION  ROOT  PVALUATlON  •OIREH*  QIREH-01 

e FOR  FUNCTIONS  WITH  MAXIMUMS " niREM-02' 

OIREM-03 

JE  QiHtHfxrn-xjp;— Qvi o ire 

)N  QV(8)  . OIREH-OS 

flIREM-06“ 
QlREM-07 

IBSCTSSI  : QlREM-OflT 

IRniNATE  (OR  FHROR)  OIREM-09 

r*jU„p--rir8E-TAKF)rHFFTlRr-TOtTr/MAX-ISSpAi;iiiERT~THFn51i;iriQlRFM-l(r 
I POSITIVE  error  ' QIREM-ll 

storage  TOR  EfGHr'ELENENr  0IRE~VECT0R OIREMilZ' 

:Tr  so.  (FIrSt  entry  only)  OIrEM-13 

roi  ERANCF  ON  THE  FRROR  OlREH-U" 

IPnlNATE  TO  8f  obtained  (OPTIONAL)  • ^QIPEN^IS 

tAxtHUM  NO.'  Of  iterations  (s>5  if  not  SPEcTFTED)  OIREM-17 

DIREM-ir 
OIREM-19 

fFxT-jrESTIHATE OlREH-20’ 

I.  IF  YTOL  HAS  BFFN  SATISFIED  OIREM-21 


DIHFN3ION  QV(e) 

INPUT- 

— X s^  ABSCTSSX 

Y a ORDINATE  (OR  FHROR) 


•OlRF.Hl 


A on9TTT\/r  rPofiD 

— OV- s-STORaGE  tor  EfGHr'ELEHENr  0IRE~VECT0R 

DVd)  a CTr  so.'  (FIrSt  ENTRY  ONLY) 

■KTOL  "s  TOi  ERANCF  on  THE  FRROR 

YO  g QRnlNATE  TO  8f  OBTAINED  (OPTIONAL)' 

CTRMAXa  H AxiHUH  NO.'  Of  ITERATIONS  (sRS  IF  NOT  SPEc I F T E D )_ 

OUTPUT- 

— X i-VFxT-jrESTIHATE 

0V(lj  a 0.  IF  YTOL  HAS  BFFN  SATISFIED 


AND  aBSIeI.'GT. YTOL,  OlREH- 

' ‘ ~ " oireh. 

OlREH. 

THIRD  cOFFFICIFnT  IN^THE  EOUATIONi~YaA*B*X*C*X**?  OIREH. 

Of?  IN  aiRE  notation  oirfm. 

e^tT  value  oF  Qv(5);  Nis«  If  x fT^HE  precictfo  max  pt7oiheh= 

Nls*5(-5)  if  X I^JUST  TO  TMf  LFFTI^RICHT)  Or  THE  PRE VIOiiSLOlREH. 
PREOrcTED^H/Of  Pf,  Nis^F  X TS  THt  SFCOND*  PT'KOSE  TO  ThE  OIREH. 


mriMmoh 


otherwise  NIsm, 
fntry  value  Of  ovis) 

Sir.N  OF  M If  a8s{H)s5 
■sTrn  oF  The  Slopf  oTThe  curve 

JUMP  TO  BF  TAkFN  from  las^_x 
ABSOLUTE  VALUE  OF  MAXIMUM  jU'm'p' 


ABS(X jPi 


OIREH. 

OIREH. 

OIREH. 

OIREH^ 

OIREH. 

OIREH* 


s distance  from  central  PT  to  MAX/MlN  OF  PARABOLA,  sXM aX-X X ( 0 1 REH. 


OR  a distance  from  CFNTRAL  PT  to  The  root,  sXRnoT-XX(2) 

XI  a INPUT  (OR  LAST)  X VALUE 

COHMON  /COTREH/  YT0L» YO,OVDX,CTRHAX 
“COHMOn"  /FRaSF  / B0T,C,0XDY,E,I,  II,In7iSP4N',’m,'n,RADICL,.SDYDX,SGN,' 

1 TOP.Xl  ,x13,x!3P»Xj7x.IA,XH,  0X(3  ) » DY  (3)  , 0V»  (1 0) 

dimension  xx(a),YY(«) 

equivalence  (CTP.QVlf 1)),  (Nl ,0TND,OVl(5)i, 

T ofxTovj (?)),  (w.dViTirn 

INITIALIZINR  " AND  ■ preliminary  CHECKING 
TE(CTRMAx,FQ,’o.*)  CTRMAXa2S,' 

00  30  I»1»S 


OIREH" 

OIRfM. 

QIREM. 

OIREM. 

OIREH. 

OIREH. 

OIREH. 

OIREH. 

'0IR£H. 

OIREH. 

OIREM" 

OIREH. 

OIREM. 


30  0Vl<ns  QV(1) 

r '■  ¥*vir^ 

M B Ml  . 

iFirrR7Et3,o,i  mbo 
SGm  ml. 

rr(M.‘Grro)~Gtmm; ^ — 

H « 5 . 

— sip» — r~-i. 

36  N > hInO(H*S^ 

sfjyDX  s"siftvri,/i*xjp) ^ 

(ALTFRMATE  calc  to  circumvent  COMRILFR  ERRORi 
TFrxjpj  'ar,‘a?;-RZ 

41  SOVOX  « 1, 

GO  Tcrai 

42  sorox  B -iT 

-trnrjK — * abscxjp) 

XI  f * 

ir(MS51~a4T457»« 

44  IFfAQSTEj.LE.rTOL)  GO  TO  «(►? , 

IF CH.EQ . 4 . AN07 ^»BS (E-YTr?!  1 .LT#'rrnn“(?0“Tn“7a(5 

IFTCTR.’GE.CTRHAX)  call  errori 

GtrnrTu 

46  M B 3 

“ffrrnp — xxrxi^nnnrn 

— OFTERMlNr  rN0rX-FoR~lNSFRTrNG~CURREMT~y7e  rMTO'-xx,yv 

OHOEREO  ACCORDING  TO  X* 

50  IN ~^~1 

IF(N.EQ,0)  GO  To  40 

"60 — IF  rxxn N J?GT7XTl~Go 'TO  TO 

IN  B IN«1 

1 FTTNT  VE  7n3 CTTTCnSTI 

GO  To  90 

relocate  in  preparation  for  inserting  X,E 

-TO"  T 1 b-nTI ^ 

80  xxdiis  xx(ii-i) 

YTdTVa^YvTn^rt 

II  ■ XT-1 


TnSERT  nEm  point 

90  N B N»t 

xxtinXb  xi 

VV(IN)b  E 

LOCATE  interval  NHICH  SPANS  ROOT 
ISPAN  BO 

_ TFfN.’EO.t)  GO  T0_200__ 

on  110  T«2»N 


OIREM-Sl 

0IREM-S2 

OIREM-53 

6IREM^4 

OIREM-55 

OlREM-56 

OIREM-S7 

QIREM-SB" 

OIREM-59 

QIREM-60" 

OIREM-61 

OIREM-62 

OIREM-63 

OIREM-64 

QIRFM-65 

OTREH^^ 

OIREM-67 

OIREM-68 

OIREM-69 

~0IREH-70 

OIREN-7! 

0 1 R giXiTT 
OIREH-73 
" OlREM-74' 

OlREM-75 
table  which  ISoIREM-76 
OIREN-77 
ftrRE'M^TF' 
OIREM-79 
OIREM-80 
QlREH-81 

OIREM-82 

OIREm-83 

^GIREH^S^ 

QIREM-A5 

OIREM-86 

OIREH-87 

oirem-bb 

OIREM-69 

OIREH-90 

QIREM-91 

QIREM-92 

OIREM-93 

OIREM-94 

OIREM-95 

OlREM-OiT 

_ OIREM-97 

OIREH-98 
DTREN*99 
OIREM-00 


ir(SDYDX*YY(n.GT.*0.  SQYDXoYYrl*!  > ,LT  *0,')  laPAWI OIREH-Ol 


c 

•rro  CONTINUE 

OlREM-02 

OIREM-03 

— r 

REDUCE  rX.VY  TAHLE  TO  TMree  RoifitS 

QIREH-OR 

TPtN.LE.T)  GO  TO  ?00 

OIREM-OS 

' IFdSPAM.’Efl.'OjnGOTfTiIfB 

(JIREM-06 

c 

(ROOT  HAS  BEEN  SPANNED) 

OIREM-07 

“!22'IF(I3PAN 'EO.N)  GO  TO*  i5(5  ^ 

OIREM-OS 

lEdSPAN.EO,?)  GO  TO  (75 

OIREM-09 

irrARscTYd  ji.r.T.’ABsrvT'njj  j VGO~r6"i^o 

orREM*mi 

GO  TO  17S 

OIREM-ll 

— r 

OIREM-12 

c 

(ROOT  HAS  not  been  SPANNED) 

OIREM-13 

TRO  IFdN.UErzi  GO'TO  175 

OIREH-IR 

c 

OlREM-15  S 

c 

DELE  It  FIRST  POINT  ^ “ “ 

filREM-lb  1 

ISO  DO  160  I>1«N 

0IREM-i7 

Tcxd)  s~xx^(TTn  : 

■■  OlREM-18 

160  YYCT)  a YYdfl) 

OlREM-19 

ISPAN  a TSPATJ-I 

OIREH-20  - 

C 

delete  fourth  POINT 

OIREM-21  1 

I T5"  N i;~W5T~  ^ ~ 

OIREM-22  i 

C 

OIrEM-25 

c 

5IMPLF  X-.IUm?  PRCOICTTON 

0IREM-2R  i 

200  N1  a N 

OIREM-25  i 

IFdSPAN.’GT,(r.OR.  OYoirrNE.O.i  150  tff“205 

0IREM«26 

c 

XJ  a SOYOX*SIGN(XJa»-F) 

OIREM-27  i 

c 

(ALIFRNATE  CALC  TO  CIRCUMVENT  COMPILER  ERROR) 

OIREM-28  • 

XJ  _ a xjp 

OIREM-29 

iFIE.LT.O.i  XJ*-*XJ 

OIREM-30 

GO  TO  900 

OIrEM-31 

c 

OIREM-52 

r 

CURVE  FIT  Predictions 

OIREM-53 

205  lF(N^i  210,220710^ 

0IREM-3R 

c 

OIREH-35 

c 

ONE  POINT  Prediction  based  on  input  value  of 

dxdy 

OIREM-56  i 

210  XJ  a -e/oyox 

OIREM-.57  > 

GO  to  900 

0IREM-3a  1 

r 

OIREH-59 

c 

rffo“PolNT  straight  line  prediction 

OIREM-RO 

220  BOT  a YY(2)-VY(1) 

f)IREM-Rl 

IF(0nT.EO.O,)  CO  TO  250 

GIREM-R2' 

DXDY  a fXX(2)-XXd))/B0T 

0IREM-R3 

rF(5XDV*SDY0X,GT.‘0.’)  GO  TO  PRO'  " ' ~ 

OIREM-RR 

c 

(CURVE  Slope  is  wrong  - move  toraro  maximum 

POINT) 

OIRPM-RS 

23fl"  XJ  a'  -3;*$'0YDx»XJ* 

0IPEM-R6  J 

GO  TO  900 

0IREH-R7  1 

c 

(CURVE  Slope  is'correcT) 

0IREM-R8  1 

PRO  XJ  a -EaOXDY 

0IREM-R9  a 

GO  TO  900 

QlREM-50  i 

irn?*BCfLTcncT|RVE'rTT"i»RlirrfTf5ir 

soo  Dxrn  s xx(i)-xx(2) 


TrrrrnrrxTTr^mrj 

oy(i)  « YVf!)-vr<2j 

T>v(3y  «~yvm^f2J 

BDT  * DXflj*0Y(5)  - OX(3)*OVaj 

~TF  f ABs  ? 0 riTiTn  .*  r;^ -T^risri-f  : 

TOP  » OXf  l)*0X(n*DY<3)  - RXfaWoXfsWpVf  1) 


OIREH 

'OIREM 

OIREf^ 

OTREM- 


•51 

•52 

•53 


Tii  3 .S*Tpp/ftoT 

X13  s Xxt3)-xXMj 
TFT IBS  f >fMr.  6T  , AH3  ( 1 .EyWHii  60  TO  fc«0 
C s ROT/fOX(n<tOX(3)*X13) 


ffJnDlcUiT  • yy(i)/ir 

IFtWAOlCL.I  F jo.!)^GO^T0^360 


"sn^ 

XM  c XM 

T;3“Tn"89T' 


* SRN*SQRT(RAOICL) 


OIREH- 

OIREH- 

OIREH- 

'OIREH- 

OIREH- 

"OlREH- 

OIREH- 

'OIREH- 

OIREH- 

OIREH- 

oireh- 

DfREM; 

OIREH- 

OIREH- 

OIREH- 


5T- 

SS 

56." 

sr 

58“ 

59 

hir 

61 

6r 

63 

64“ 

65 


360-IF(Tl-aj  3!»3736T»J6r 
363  rF(AR3(XH).LT.XJA)  Nl«4 
00^0^898 


364  XJ 

irr 


* -xis/ej 

rr. 


1F(1N.6T.2S  go  to  900 


"XJ m-mrr 

Hi  * -5 

iGirTO'TDB 


365  XJ 

vr 


« SGm*x13P/4, 


GO  To  900 


C MmAT, inary  root#  HEnCE  WE  ARE  LOOKING  FqR  THF  mAXImUm  POINT# 

'C FREOrcr“MAX'  PT~IF'H*T7'8EtfCr  PTS  QN  IFFT/RI6HT  SloE  OF  PREVfOUSL YOIREH 

C PREOTCTEO  PT  IF  H«a/5)  OIREH 

YOIREH 

OIREH 

. _ - 

OIREH 
OIREH 
OIREH 

QIREW 

OIREH 

OIREH 

OIREH 
OIREH 
OIREH 

YOIREH 

OIREH 

OIREH 

^ ■ OIREH 

OIREH 

OIREH 

OIrEH 
“ OIREH 

OIREH 

— - OIREH 

OIREH 
OIREH 

_ _ OIREH 

OIREM 

OIREH 
OIREH 


‘67 

69 

■70~ 

71 

TT 

73 

74“ 

75 

76“ 

77 


T5“ 

•79 

■80' 

81 

8?' 

83 


T- 

C retreat  TO  I INEAR  INTERPOLATION 

iHinFT  ISPlAN:GrT7tt)~C0  "ro'T2Z 

GO  TO  lOo 


HAXIHUH  FOUND 


TinnnND — *nrr 

GO  TO  930 


C 

C SOLUTION  FOUND 

“ 800  CTR  '»  07 

60  TO  930 


F1N1S_ 

890  XI  s X)I'r2W'liH' 
GO  In  910 
900  XI  ■*  xliXJ 


FT 

85 

86“ 

87 

8r 

89 

9(r 

91 

92“ 

93 

94' 

95 

96“ 

97 

98 

99 
00 


910  CALL  OTEST 

X s AMAXr(X)((l)-")(JArA>1TNr(XlVXKfM)*XJAli 

CTR  X CTR4>I, 


9S0  QV(l)  ■ 
99<y  RETURW' 
ENO 


QVl(l) 


OIREMi>01 

OIREM^OZ" 

OIREH-03 

"OTfiEt'Wnr 

OIREM-05 

OlREM-Ofc“ 

OlREM-07 


creadin 


CRE< 

C 

^din  tnput  routine  For  emissions  progJ 

soRi. convert  and  storf 

REAOInOI 

RtADTN02 

C 

subroutine  reaotn 

REA0IN03 

READInOR 

C 

LOGICAL  NODATA 

READINGS 

REAOIN06 

REAL  MWT.MATRX.lHV 

OTMENSTON  AMHTf  bl.CyCLFfSi.FilEt  ( T 1 , Ai  DA  T ( 1 0 , 1 1 > , C AROl  LR.II), 

RPADInOT 

READINGS 

•RAOlKin.STDVAl  (1  0),  Till  f.2(10I»/AtRf  11  ) 

COMMON  /CBTTS  / BITS/HLANK 

readinor 

REAOlNlO 

COMMON  /tROUHL/  ERR.ErRMAJ, inerr»prerr 

LOGICAL  FRR# FrRmaJ, infPR.PREpR 

REAOINII 

REA01N12 

c 

COMMON/TnOaTA/HC,HF,-JAR,TT?.b'mFTA.TT>S,FFARS.‘EIC,PPO.’ 

READIN15 

READIN14 

•RRcOH  n,RRCU2(l  1 ),RRriC(l  1 ) , RRN  JX  ( 1 li  ,PT  111  ) .PS  ( 1 li  , BlOC  ( U ) , 
iEic:jc(  1 1 i 

REaOINIS 

READTN16 

C0MMON/JFT0AT/NPTS.R*D(i2),TSJ(L2),U.I(I?).SPV(12),MWT(|2), 
'CPn?),FHAp(i?i,sPLnG(i?i,nTHFRi  ( 

READlNiT 

READINIS 

C OMMON/GASCMP/Rirtu  12,2)  ,K?,  l?.?),Hf2,  1?,?),Z(16,?,  12,2), 
<hcIncP(1P.?),OHFR2(2.  l2,?,/n 

READIN19 

READTnPO 

c 

COMMON/UPCTRl./TI  TLE(2o)  ,PRTnT(30) 

READIN21 

RrA0lN?2 

EOUIVAI  ENCr(RAD(n,RADn(l)),(P0,AMBT(n)»fT0»AMBTf2))^ 

» (HuM,AhBT(3)),(vP**^‘*I  f«')»(P*f'>>»*MBT(5)),(T?,CyCLE(n), 

READIN23 

READ1N24 

c 

1 (FARS,CYrLF(2)l,  (ElNOpC.CYCLFIi)),  IBF1  A.CYCLFmii.  dZS.CVCLEIS)) 

READIN2S 

REA0IN2b 

data  STOy*l  /M,'SRS,SI«.L>R,0.00S3l,0,O,l.0» 

•SIB,fc9, P.OP.PO.O.O.O.SlB.fcR/ 

READIN27 

REaDINPB 

data  UTlEPII) 

•/60HCUNSUMPTrON  OF  EMTSSTONS  IN  AUC.MFNTOR  EXHAUST  PLUME  / 

rEaDInPV 

READIN30 

c 

NAMElJST/TsTOAT/AMBT,pO,TO,HUM,VO,RAnJ» 

REAolNSl 

READIN32 

•CYCLE,T2,FaRs,E1n02C,BE  TA,  T2S,EUE|., 

» ALDAT.CAROi  ,RaDIT,PT,pS,bi  oc.eicoc. 

READIN33 

READlN3a 

c 

*title*sf, Print 

READIN35 

READIN36 

c 

reset  all  input  variables  to  standard  values 

READTN37 

c 

0EADTN3B 

CALL  SETM(I, blank, TITlF.PO) 

CALL  MOyE(?tSTOyAL(  1) , ambj,5,  | ,St0v*l(<*)  f CJCCLE»  S,  l ) 

REA0IN39 

readingo 

CAl  L SFTM(«i,BlTS,CAROL,ilfl,RAOlT,H,PT,««,AI  0 A T , 1 1 0 ,’PR  I NT  , 30  ) 
FUFLTITxP.O 

reaoingi 

RrA0TN02 

EUFL(2)sSJ7.0 

readings 

FUELOTsBITS 

readtnog 

c..  . 

SFal.'O 

readings 

READINGS 

c 

READ  Engine  test  data  ano  cycle  parameters 

reading! 

c 

REAOTS, TSTOAT) 

TE(  INERR  i return 

readings  

READING? 

JltAQl.NSO 

406 


MOVF  GFMERtL  DATA  INTn  rOHMON  Rl  OCKS 

WAR=MUM  

Tf?  = T2' 

nRPTA=nEx* 

TT?5-T>5 

PrARSsFAffS 

FIC=tE-i*ETNn2C 

PP0  = P0__ 

HC»FUE(.(!  ) 

LHV  = FUE  U fj j 

FSTTMATE  F(IF(  heating  VaI  1/F  TF  NQT  GTVFM 

T F ( L H V E n . R_T T ( J ft « 6 H 6 • 0 « ♦ ^ 7 977.7*HC)/ f H .Pl/1 6 8 *1104 

H’F  = LHV-106f>.«60S*(  ISO.  1830  + «7,"0276ftHr)/(  !?T0l  + t .OOflftHC) 

OTFsFUFLt  2)_r,S3J7^0 

HF=HF+blF*f 0.U3733R23fOIFft(3.04513<l4F-«*DTF*(3.7&8?a68F-R 
UOTFol  .gPiaShPF^lOn  ) 


..S  U8  ST  I T U T E ChA  NO  F_y  F^C  T ORS.  IF  ANY.  INTO  *1  DAT L; 

SET  SlANOARO  VALUES  IF  nO. VALUE  GIVfN  TN  INPUT  LIST 

I F ( Al'o M ( vTi ) . E cTTaTrs i aldat(9»i )so,o 

mi  In  MS  I . I 1 


rF(CAKf)L(  I .N)  .NE.RI  TS  jCALL  MOVE!  1 , CAROL  T 1 , N)  , AI.RAT  fl  * N)  » 0,  t ) 

LF(*L?AI  (l,Jil^a.PUSlOO  ID.  20 

IF(RAOTTLM.NE.BlTS)A|f)AT(S,N)=RADIlfN) 

IF(PI(M)  .NE.BLJS)AL0AlC6.H)sP.li(li 

IF(PS(N),'JF,HITS5ALDAT(7,Ni=PS(N) 

TF(AI  QAl  f 7^,Ll-F_q-RlT5lALnATf7.NjaP_n 

IF  (81  OC(N)  ,Nr,«ITS)AUr)AT(fl,N)=BLnCfNi 

IF-CALDAT(S.:Ll.EO.BirS)ALDATi8,N3j*aEXA 

IF  (FICnC(Nl .NE.8ITS) AlOAT (R,N)=ElCnCfM) 

Lf-LA  LD A.  1 .fia.B ULSO  ALDA11.9^nJ  « ALflA  U9  si.I 


REA0IN51 

— reaqinsz 

READ1N55 

_-READlAlS.9 

REA0INS5 

_REA0jKj5i 

REA01N57 

PFADINS9 

REA0IN59 

_RFAD1!!L80 

REA0In61 

READIN62 

READ1N63 

PEADIN64 

READIN&S 

__RFAJJINBS 

REAOlN&r 

_j?E/umi«>a 

READTN&9 
RFAOTJVie ^ 


REAOINTI 

—REAOINIZ 

REA01N73 

_JREAOIn7J1 

REA0IN75 

Dcr&^riiViL. 


REAOIN77 

REAOlHZa 

READIN79 

— REAOlNafl 

READINftl 

— BEADiNflZ 

REAOINR3 

_ READlNRil 

REA0IN85 

— REA0IN86 

READINB/ 


RHCa(NJ=SF*ALOAJ.Ll.NJ 

RRC J2(N)=SF*AL0AT(2,N) 

RHHC(N)=SF*AL0AT(3»N1 

RRN0x(N)=SF*AL04T(4,N) 

DT^kl^?Al  r\ATfA.Ml 


PS(N)=ALnAT(7,N) 

BLOC(N)  = ALOAT(a,Nl 

Einr(N)=A|  DAT(9,N)*tF-3 
RADtN)sA| 0aT(5»NJ 


PEA0IN89 

-JJEA0IN9J) 

REA0IN91 

_REA0IN92 

PEADIN93 

nCAfWs.on 


READIN95 
READIN96  ..  _ 
READIN97 
..RtADlN9B 
REA3IN99 
-REJLOInOO 


CAi  L Mxri'TorN) 

10  NPTSaN 

SET  UP  ambient  air  properties 

20  NAsMPTS*'! 

RAOf NA  j=RAn 


TSJ(MA)aT0 

U Ji  NaJl^Q_ 

rBAWfNA)sO.O 

SPIDr.  LN  (U^ 

«ICHf^JA,l)  = 0.0 
»NA.  ■ 


F(2,NA,n=O,0 

C^L  L_  E Of:  A SJ  _(  0^  0 ,_WA«.  tJiCjJ  f>j  PO  ».>ALSEpr  .FALSE. »ZAIR, 

• HATR.Mw't  (Ma")  ,sx,  SPVrNA),AX,CP(MA>) 

C AJ.I SEJ  M Q ._0 ,0 , 2 (l.l.NA.l)^  

CALL  SET«(|,HAIR,K(J,nA,|),2) 

Call  ►‘OVF ( 2, 7 a T 3 , 2 ( 1 , 1 » N A , J 1.  I U7ATR* 2 ( 1 '.’Z.N A . 


SET  STaNPAPD  PRIWT  STATTONS  TF  »)0T  SPEriFIFD 

tF(PPlNT(i;.NE.9TTS)  .fiq._TQ_903 

PRI^T(nx0.t*RA0J 
PRlNTC2)slO.0*PA 


READInOI 

READIMQ2 

REAOInOS 

REA9IV0<L 

READINGS 

READInOJA. 

readinot 

N 


REA0TN09 
,RtA0TN»0_ 
READlNl I 
.READIN12_ 
READIN13 
RLADINIO 


READINIS 

READTNlb 

'reaoinit 

READrMlB_ 

RF.ADIN!9 

REaDTNPO 


READTN21 
.READIN?2 . 
READTN23 
READtN?t». 
READ1N25 
liLELS_ 
READIN27 
_REAplN2_BL 

RtA0IN29 

.READ1N50 

READ1N31 


CHEADT 
C_.. 

C* 

_C 


REAoS  -JETMIX-  OUTPUT  TAPE 
OCTOBER  1975  HOOIPKaTIOnS  FOR  AUG  FMiS  SYS 


C„ 


subroutine  RKAOT  (IENTHY) 

’ CQMHON  /CUlTS  / BlTS»ai.ANK 

Integer  olank  ...  

COMMON  /cJETOT/  GCJ,OUJ,vJET,EJET,NxTA 

_COM-'1UN.,ycaT.ARj./i_CJ£T(200I,CEX 

common  /CCnJNI/  2X(G),NSL (S)»NX*XmaX' 

COMMON  /CINPUT/  ZP5i(i0O,b),ZR(lOO»5i#ZU(lOO»b),ZEf 100,5)« 

1 ZHhO( 100, J),ZXIN( 100, S),ZF( 100,5) 

COMMON  /cFlLK/  CSC 

COMMON  /CPrFi  / PSI(200),Y(200),UO{2o0),ED(200),RHO(200),Xln 

_S_A.LX(100a2l..NPJ),F3rEclCia),NC,Xaii0i 

«F.*L  MOtFl  M00),m0Lf2(  l0O),  Mf)LF3(lO0),MOLF9(100),,MnLpb(10  0), 

. 1 MJLF6(l0O)..MULF7(l00),MDLFB(l00),MnLF9(100),MOLF10(100),  ~ 

2 MOl.Fll  f 100),MOLF12(iOO) 

. Integer  test, boy, xxx 

LOGICAL  FOUND 

—Eaui  valence t-F^EU*-FSPEC-l-a. 


EQUIVALENCF  (M0LFl(l),ALX(l,n),(M0LF2(l),ALX(l,2)),(MnLF5(n, 

1 ALXd,  5)),  (MOLFad  ),ALX(l,a)),XM0LF5(l),  ALXCl.b)),  (mOLF6(1), 

2 ALXd, hi), ( MOlF  7d),ALXd,7)),  (MOLF8  (1 ) , A LX  ( 1 , 8 ) ) , ( MOLFR  (1  ) , 

5.  ALXd,-7)),(MOLHO(l),ALXd,10)),(NnLFlld),ALXd;il)), 

« (M0LF12d),4LX(l,l2)) 

—JC 

COMMON  / keys  / KEYa(II),  KEYB(11),  kOOA(11),  KOOB(ll) 

DIMENSION  FUEI.da) 

dimension  nJHMYl(2000),DUMHY2(98),DUM.MY3(73),DUMMYad3ll), 

* 0UMmy5(59) 

DLMENSI  O.N_r:lD  L2-0Q ) laCZDQJ  , UC200)*Lt ^Oo  lAli)lJC2aD.X, 


* XMACH(200),PTUT(200), TTD(?00),PTO(2o0) 
--DIMENSION  CNAMF  (12),  AuE.d2),SCMd2),CPCC3<ii- 


Data  KPHLJT/6MPREJET/  ..  

DATA  JETmtX, BOY, TEST, XXX  /6H JE TmT X , THBO Y, OH  TEST , 2HXX/ 


NAMfcLisr  /nLPHOF/  NPO.PSI  ,Y,l(o,ED,RHn,Xi  N,MOLFI,mO|  F?,m0LF3, 
-1  MOLF«,MClLF5,MJLFb,MjLF7,M'JLFfl,MQLFR,MOLF10,MOLFll,MOLF12 
NAMELIST  / JETXX  / GCj,  DIAJ,  VJET,  FjF T , X,  NXTA,  NC 
. NAMELIST  /.HEFOAT  / G.?ET,  FuEL 

namelist  /ROaTa/  OIaJ,  VJET  ,EJET,GEX,(;cJ,NXTA,Nr.,X 


.c... 

c* 

c* 


SAVE  KEYa('I) 
Kasv  s KEYACa) 


HEADTOOl 

. ..  REA0T002  . 
READT003 

UtADIOOR 

REA0T005 

READTOOb 

RtAOTOOF 

REA0T008 

RtA0T009 

RtAOLOlO 

RLAOToil 
REAOT012 
REA0T013 
READT014 

(200)»REA0T015 

RLAOlaib 

REAoTOl J 

REAOTOlS.  _ 

REA0T019 

REAOTo20~ 

REA0T02I 

READT022 

READT023 

-REA0T024 

READTOZS 
RtADT026- — 
READTOal 

-RfcAOToaS 

RtA0T029 

- READT030  

HEA0T031 
. HtA0T032_  . 
RE  ADTO.33 

_KtA0Ta3.<l 

REA0T035 
_READT036_. 
REAOT03/ 
REAOT039  - 
REA0T039 

-RtAOTOOO 

REAOTOOI 
REA0T042 
REAOT043 
READT04(l 

readtoos 

HtAOT046. _ 
RtA0T047 
READTOOa  - 
RtADT0«9 
REA0T050 


I 

i 


1 


409 


L 


w 


IF  (IENTRV.'GT.O)  go  To  lOO  readtosi 

* READT052 

CSCsJOOO.  REAGT053 

--  C REAOTOStt. 

C*  READ  JEThIx  data  FROM  TAPE  READTOSS 

C*  . ....  ....  READT056 

KEYA(4)  s JETMTX  READTOS? 

KEVA(7)s  XXX  READT059 

READ  (2)  KXX1,KREC,  READTo59 

.*_0'HMY5,3ITS,ER<,GC/GCJ./ i?EAoT060 

• F0JT»0IAJ,-1JET»TJET»PTJFT. wJET*T1JEt»EJET,PF»VE»mF,TIE»TE»  RbADT06I 

_.  * AXI,NJ,4'<,uF,HlxPRh.XLC»FL')''J»'<ERCfc.SW,CUNl»  READT062 

• Cn,CT2,CTi.cr4,CT5*CT6.CT7.CTa,CT9,CTp,CTS,CTM»  READT063 

• GAM,Rr.,PR,PRT*SC»T»EF/MURtF«sP*Sv.3LEN,DPRlN,PL0T»C6, RLADT064 

.*  MIX.CF.maxIT, TOl.SJPb*  REAOTOfcS 

*_XtJ?-UaHJfl^XJA«  ItNC.PtlMMl2 READTOAi> 

C*  READT067 

XHAX-X(N)tTA) READI069  

NXsb  RtADT069 

IF  (NXTA.LT.5)._NX*NXLA - RtADT070  --  _ 

NXREmsNXTA-'^X  READT071 

Cj! REAOI072 

C*  READ  INITIAL  -FAR-  AnO  -G-  PROFILES  FROM  PRFJET  DATA  REAOT07J 

C*_ _ REAoTO/a  - 

KErA{4)  3 kPREJT  REAOTO/5 

KEYA(/)s  BlANA REA0T076 

READ  (J)  READT07/ 

^•_OlAJ.»J!LJ£j.JJJE.t«yJEl,£EjlE^IIE.*JlE^ilFa*JIG»i‘Jt,PRTjSC»-tRE£^^ RtADTO/B 

• MyRFF,DIFr»NC*CNAME»ALE.SCM,CPC»NJ»NM»CTl.CT2,CT3,CT4,CTi>,  RtADT079 

•_CT6»CT7,CTa»GJET»Y,Uo*THD,  IID.ED, RbADToBO  

• M.:)UFl,MOtF^*MOLF3,MCluF4»MOLF!>»MOLF<>»’  RbADTOSl 

• MfJLF7«'1OLFf>«.MOLF9,.MOLFi0«MULFlUMDLFl2# - RbADT082  _ 

• DUiMYSfFUF.L  RbADT083 

C.* : Rt;AOT084 

C READTOSB 

NREAD?.! READT08!>  

GO  TO  no  readtort 

100  IF  (NXRE'I.LE.O)  G0.T0.230 RbADT088  

IF  (NXREM.FD.I)  NX32  RbA0T089 

IF_(NXRe.'l.E.1.23_NXsJ READTaOO 

IF  (NXRt'I.FiJ.i)  NX34  RbA0T09l 

_ NXREMsNXRtM-NXfl ..  RbADT092 

NREA0»2  RbADT093 

* RbADT094 

C*  RESET  KEYAr4)  . . HEAR  REMAINDER  OF  JETMIX  DATA  READT09i 

C* READT098 

no  CONTINUE  READT09F 

NSPECI  5 NC  ....  READTORB 

KEYA(4)  3 JETRIX  READT099 

00  210  I»NHEAD«nX  READTIOO 


4 


I 


. 

_ 

ii 


I 


410 


lAClsI+IENTSr 

2X(n=x(iAcli 

XX=/X(I) 

KF  YA(  0_a_CSC_*_XX_i- Jl.S 

founds, false. 

READ  (2)  JREC,KXX,KREG. 

* SURD » SUP3tP» CORE. CORsTh, ME R,MEHSTP»NP0, 
• psi, y,ud.tnd»ed.tio.«hu,xln.u#  t»tot;xmacm, 

* PTOT,TTD,PTO, 

*_r!CuFli.*13LF2.MOLFJjM3LE'l«.HQLfS«-‘10LP6; 

* MO;,F7#MOLF‘»*MOLE'»»>'3Lf‘0»U3LFll»MOl-Fl2,j 

IK  kxx,eu.'.aeya(7]  ) founds, true. _ 

IF  (.NOT. FOUND)  GO  TO  210 

NSL(I)?NP0 

DO  ?00  Jsl.NPD 

ZPSIlJiX)5P3UJ)  _ — --  

ZH(J,nsy(j) 

ZU(J,1)SU0(J) 

Zfc(J, I)=EO(J) 

ZRmD(J.1)sRH0(JJ 

2X1  N(J,  nsxLN(J) 

2K  J * UJiO* 

* CALCULATE  AVFRAGF.  FUEL^AIR  RATIO 

00  190  Ksl.NSPECl — 

ZF(J,naALX(J»K)*FSPEcI(K)+/F(J»I) 

190  CONTINUE 

200  CONTINUE 

.2i.Q_aiNllNUE 

k 

GEXsO, 

230  CONTINUE 

» RESTORE-^KEtACOl 


-RETURN. 

END 


readtioi 

REAOT102- 

REA0T103 

:REA0T104_ 

REAOriO!) 

RtAOTlOb 

RtAOTlOT 

RLA0T108 

REA0T109 

REAOTILO- 

RtAOTlll 

READT112 

RtADTll3 

rlaoti  to.. 

READT115 

RLAOT-H  A- 

READTlt; 

REAOTltS 

Rf-ADT119 

RfcADT120- 

READT121 

6tJLDT422_ 

READT123 

R£A0Tt2tt- 

R£ADri23 

READT12A 

RtADTl27 

RtA0-X12fl- 

READT129 

READT130- 

READTI31 

READT132. 

READT133 

REA0T.13.<L. 

READT13S 

REA0T136 

REA0T137 


•REA0T2 
C 

SUBROUTINE 

C 


reads  **JETHiX**  TAPE  (MXF|,uTi 


REAOT 


coM'inN  /cfilk/  CSC 

COM>)0\  /JUJXIC/  NA4E(|0),TtTLEI  (10),TOEnT(|0)»ADDRES(»0)j 
' IOEnTk  iO)»T#«QDTcn.ERK.i;CfCCJ*FOOT, 

> EJcTf AXT,NJ,NM,UE> 

> '^lAPWF.XLc.Fl.O^Jt  •<ERGE.NV,cnNl,CTl»cT2,CT3,CT«»CT5»CT6» 

' CT7,CTfitCT9,CTp,CT3»cTM*5Cf  TRFF,(4UREF» 


SX,Sv,SLUM»0PPlN,»L;iT»C6tMlX,CF,«4*XTT»T0l.»SUP8, 
XPRN(|001,il(100i. JC(lOo)/TC(100)»TXC(100)» 

PTC(  100)  .WJ(  100)»  TJ(  100)»TK(  100),T9:)N1C(  100)  » YCet  100)» 

XO(100J,Rd(100), YR(IoO), YCO(lOO),PDf I00)»WV(100)»  

ma2(100),vC?(100).  TE2(100),NXTA,Nr:»cNAME(l?),  ALJ(12)» 


C0M10N  /CJMIX2/  SJPD#SUP3TP,C3»’fc»CORsTP,‘1ER»HERSTP,NP0. 

* P5I(200)» Y(200),UD(200),Cf>(20O),TI0f200)»RHn(200), 

. _*  XLN(200),U(?00),T3T(200),XMAC'^(200)»PraT(200),TTO(200), 

* PTJ(200)»*LX(100, t2),T(200) 

-C  y !i“  0 j E j.a  A T / j 6 s ei  a c .xsxxa  > . u r e aclt-C  1 2 )-« spvti2)» 


lZ^‘i><T(12),CP(12).FSi’ECl  (l2),CHAT(l2)»TKF  (l2)»0THtR(36) 

CJm'ion  /CASC^P/  GASX(llOaj  - 

CQHhos  /C  Input/  XY(S),R(SVS0),UU(5,b0)»RRHO(5,50),XSPECl(i»,'i0,15) 

lRPSI(S,50),GG(5t50),NjJ(5),Nll 

COMMON  /CX(  OCA/  XX(S) 

_ common  _/cSPECI/_NSPECXtJiUD)t 

COMMON  /CInPJT/  OIAJ.mJE'»TjET»PTjeT,VJCT,TIJET,PE,VF»ME»TIE»TE, 

.lX(100)ir,AM,RC»PR»P?T 

COMMON  /CAXlAL/  XOOM.XL, ALOCX 

” coHMcnT/cBiTs/  SITS, Blank 

_CyM_M.0N_/_K£lS_^EYA(lll*_XETaC.llX»_KQDA.£itX._»CDQO-aU 

common  / Files  / orgf,  upof,  nemf,  scrf 

..  INTEGER  , ORGr»  JPDF»  SCRF- 

COMMON  / STCTRl  / OUMsTKi),  FIRSTM#  DUhST2(13) 


READT201 

READT202 

RLADT203 

PEAOT20<1. 

READT205 

READT206 

RtADT207 

READT20S 

RfcA0T209 

-REAOTZiO 

READT211 

READT212 

READT213 

REA0T2H 

READT215 

-READT21A 
REA0T21/ 
RtADT2l8 
READT219 
REA0T220 
RfcADT221 

-RLADT222- 


LORICAl.-FIRSTM 

COMMON  /CSPARE/ 

COMMON-ZCPHlNT/. 

COMMON  /XISAVE/ 

C ... 

dimension  SP(13),SPE(12),SPR(12) 


M(16Oo),PSIR(50)»G(5o),SY(SO)»RAO(S0) 

PDUM(20) 

I.ISTaR 


REAL  MOLF1(100)»MOLF2(100),MOLF3(|00),MOLF«(100),MC»LF5(100), 

..  IMJLFndOO  i.—  - _ . 

real  MQlFTI 1 00) ,M0LF8( l00),MOLF9(100),MnLFin(100), 

• molfh(ioo)»molfi2(1oo) 

dimension  TH()(200) 

FOUl  valence  (MQLF  l(n,ALX(l»  I))»(m0LF2(1)»ALX(1,2)), 


READT223 
READT224- 
,RtADT225 
RfcADT226 
RhADT227 
_KEADT22a 
RtADT229 
. RtADT230_ 
RF.ADT2U 
REA0T232 
READT233 
_HtJLDT23<J 
REA0T235 
RLA0T2ib 
READT237 
RtADT23B. 
READT239 
REA0T2aQ 
READT291 
READT242 
RtADT203 
READT244 
READT205 
REA0T24b 
READT2fl7 
READT2<IB 
READT2U9 
READT2S0 


I 


(M0LF3f  1),ALX(J,  S))»(MnLF'4(li»  ALX  (!»«))» 

(M0LF5(l),AL)((i,b)),{MQLF6(l)»AL)((l»6)), 

( H^LF  7 ( 1 ) , ALX ( 1 , 7 ) ) , (MDLFft ( 1 ) / ALX ( 1 , 8 ) ) , 

('4'JLF‘>4  (M0LF1>7(1),  ALXtl»  lOJi/ 

(M.3LF1 1 ( J )»  ALX(1,H}).  (MolF12(1  ),ALX(1,  12)  ) 

FilU'JD  

TEST, boy. XXX»aLANK 

DATA  JETHTX, boy, TEST, XXX  /6HJE TMl X, SHBO Y . «H TEST. 2HXX/ 

data,!  S P aL  D _Zi>  H&PALDG/ ! 

DATA  SPE/12*-1./ 

C 

namelist  /mLPROF/  llO.HOLFl,Mr)LF2,MOLf3,MOLFO,MOLF5,MCILF6, 

• '1OlF7,MJLF9.MOlF9,mDlH0,HJlF11.MOLF12,  - . 

1 HH:j,XLN,Y,iJ,T,XMAr.H,‘4PO,P3l 

NAMELIST  ./jETXXy_VJEI,X.DIAJjAlC 

NAMcl  1ST  /NLSPLO/  f. , S Y , RAO,  JENO 

NRFACTaNTUHES  ' 

K«SV  s KLYA(a)  

IF  ( ,NOT,  FIRSTM  ) Ga  TO  90 

c 

CALL  REOPRF 

CALL  NE-IFLO 

AiRSTMs  .False. 


CALL  SFTM(l,OnS.X,SO) 

NPO=l.,_ 

KtYACA)  a JF.THTX 

. . KEYA(7)s  XXX 

RtAO  (2)  KXX1,KRFC, 

^•_NAMt,jiTLEi,inENI,A0DR£a.LiaE,NLI.JHDDl.HllS,EflK.5C,CC:J. 

• Fi).)T,OlAJ,>iJE7,TJE7»PTJF  f , V JE  T , T J JEj  , E JF  T , Pfc  , VE , HF , T IK , TE 

• AXI,>gj,NM,0e,MiXPRE.rXLC,TL3''J.NEWGE.NV,C0Nl, 

• CTl,CT2,CT3,CT«,CTb,cT6,CT7,CTa,CT9,CTp,CTS,CTM, 

. • GAM,RG,O’T,PRT,SC,rpFF,M(JRTF,SX.3Y,SlEN,0PRIN,PL0T,C6,  . . 

• Mix, CF,MAXIT,TUL. SUPS, 

A.X.XPRN,3,UC,  TC,IIC,PTC,HJ,  YJ,.T.TC,YSnNlC, 

• YCQ,XO,RO, YR, YCD,P0,WV,MA2,VE2,Tk?,NXTA,  I, 

_ • ,NC,CNAME,ALJ,ALJII,ALE',SCM,CPC,0IKF,CSC  

C* 

D'J  80  KKs2,50  

IF(  X(KX).f'J.31T3  ) Gn  TO  85 

_ . IF(  X(KX)  .tT.XCKK-U_l  GQ  -laa<J 

80  CUNTTNUe 

80  IK  * KXfJl  ..  _ _ . ..  _ 

00  Hh  JXalK.bO 
86  X(JK-1)SX(JK) 


logical 

InTLGER 


REA0T251 

REA0T252  

REA0T253 

RF.AOTZSTt 

REA0T255 

- RLA0T256 

REA0T257 

RtA0T258 

REA0T259 

REAal26.Q 

REAOTiJAl 

RtA0T262 — . 

Rt A0T263 

- REA0T26a 

REA0T265 

REA0T266 

RtA0T267 

RtA0T26a .. 

REA0T269 

REA0T270 

REA0T271 

RLA0I2Z2 

BtA0T273 

RtA0T274 

RtA0T275 

REA0T276  

RtA0T277 

RtAOT27.a 

REA0T279 

RLA0T280 

REAOT201 

RLADT282. 

REA0T283 

RtAO  728.0 

, RKA0T285 

REA0T266  

RfcA0T287 

REA0T288  

RtA0T289 

REA0T29Q 

RE  ADT291 

_ REA0T292  

REA0T293 

_ RtA0T29«  

Kfc A0T295 

REA0T296 

PEA0T297 

RtADT298  

RfcA0T299 

REAOT200 


fl 


i 

f 

[ 

f‘; 


3 


413 


SS'CONTiNUE' 

c» _ L_  _ 

NSPECIs  nC 

NTUdESs  NSpECI-1 

NF  B NSPECI*! 

Isl  

ISTARsl 

NIISS  _____ 

90  IF  (tSTAR.GT.NIl)  IsNU 

100  XX(I)sX(ISTaR) 

IF  (XX(I).fQ.UITS)  go  To  210 

C*  HAVE  RFACHEO  END  OF  SI'JRAGE  ON  JETMIx.  TAPE  ..  _ 

C 

. XY(I)sAuoG(XX(I)fl.) . 

C*  — ISTAR—  keeps  track  of  current  POSHtON  IN  JETMIX  X-VtCTOR 

_(L* ^ ••^S-THE_L(ICATlaN_Qf  . aA.TA  IN _axafiAGE  IN  HXFJail 

KEYA(«)s  JETMIX 

CSC  = 1000,‘ 

KEYAfT)  s CSC  A XX(I)  t 6.5 

founds. FAkSE.  

READ  (P)  JREC.KXX.XREG/ 

l_s  u PD  DJif .» CMSlP^I  EaxJlE.RaiPjJ^£0  .. 

* PSl.Y.UO.TUO.FD.TlO.RHO.Xl  N, J» T.TOT.XMACH, 

* PTOT.TTDfPlD, 

* 'intFl.H3UF?.MnLF5»MOLFa,nfltF5»HOl.F6,' 

* HOLF/.M3LF«».MOLF9,MOLFlO.MaLFll»MQLFl2»J 

IF(  KXX.tD,K£YA(/)  ) FOUNDS. TRUE. 

l£:_t..N  Q.I...Em'NIlJ_G  U -liLllQ 

1F(  PDUH(IS).NE,0,  ) WHITE  (6,700)  XflSTAR) 

- 00  forma  I (//  I 0X,2ma«>3X.  UHHESTaRT  AT  X»,F12:6) 

KtYA(«)=  ISPALO 

read  UJ.KxX.SY»/«AD,5,J£tia 

C 

Ni » .MlMaCSgjNPP  ) 

PS1H(1)30. 

_c 

UCONST*  .02 

UFOGF  a UCON3T*(U(1)-U(NPO)  ).*.U(NPD)  — _ . 

JINTERaNPO 

136.  IF(.  IJ(J1N1fR).GE.UEdGE  ) GO  TO  100 

JlNlFRaJINTER"! 

IF  (jiNiFR.'Eo.a)  r.n  tq  too 

GO  TO  1 56 

._190  NlNTERsNpO-JINTERtl 

CAl  L LSPFlT(U(JINTER),PSI(JINTFR),MlNTER,UEOGF,PS!FOC,i,0) 

DPSla(PSIEDr,-PSI(l))/FUyAT(NJ-|) _ 

IF(  PDUM(15).NE.0.  ) WRITE  (6,158)  UFOGE,P5ItDG,NINfER, JINTEr» 

* Xx(I) 

158  forma  1 (IX,27HUE0GE,PSIEI)G,NTNT£R, jXmTER, 1HX,2F10.6»215,F10,6) 
C*  RESTORE  DATA  3N  ZtRJ-TJ-ONE-  BASIS  (PERCENT  JET  WIDTH) 


READT201 

REAOT202 

RtADT203 

PtAOT20il-. 

REA0T205 

RtADT206 , 

REA0T207 

READTHOB 

REA0T209 

RtADL210_ 

READT211 

PEADT212 

PtADT215 

REAOT214 

PEADT215 

REA0l21Ii_ 

READT217 

RkADT2lB 

READT219 

READT220- 

RCADT221 

RtA0L222_ 

READT225 

READT?2a 

RtA0T225 

REA0T226 

PEADT22T 

HEADI22a_ 

KEADT229 

KtADT230._ 

REA0T231 

__REaOT232_ 

REA0T233 

RtAQT234__ 

RLADT235 
_ RtA0T236.. 
REAOT257 
REA0T238. 
RkA0T239 

RtAOT2aO_ 

REA0T2ai 
PEADT2a2 
REA0T2a5 
REA0T2«9  . 
RLA0T2a5 
. .REaDT2«6_. 
HEADT2aT 
RLA0T2a8 
REAoT2a9 
REAOT250 


r 


1 


CALL  Nf«iPSi(  PSIR,NJ  ) 

CALL  PMPVC(  l,PSieDC.pSlR,PSIR«50  1.  _ . 

DD  151  Jsl.-JPO 

151  Y(J) . s . . 

REA0T251 

REA0T252  

RbA0T25i 

RPtnTPsa 

CALL  LSPFiT  (PSI. Y.NPn.PSIR.M/Uj.O) 

CALL  LSPPI^  <PS1»U,vP5,PSIR,H(NJ+1).NJ.O)  . . 

HEA0T255 

REA0TP56 

CALL  LSPFIt 

c * - .... 

REA0T25T 

pp  tnTSCH 

DO  160  K=t,NSPECl 

KPPNJlsf<  + p)*'J.I*J 

REA0T259 

PPApT?/./) 

CALL  LSPFIT  (PSl»ALX(l»K),NP0,PSlR,HrKP2NJl),NJ,0) 

. NPOMl=NPO-l. - . 

C 

C*  CHFCK  ON  JETMlX  CALCULATIONS - . 

SPCOsO, 

nti  165  f-i  ,'jPfiMi 

RtA0T261 

HEA0T262  - — 
REA0T263 

READT260  

REA0T26S 

ppA0T26ijf 

155  SPTKlsSPfKlKALXTJfl  »K)fAI.X(J,K))*(Psl(J*l)-pSl(J))*.5 

160  continue  . ..  

REA0T267 

READT26B 

C 

C*  STORE  **G*»  results  FROM--SPLOG--  ~ 

REA0T269 

i,lT27Q 

KP?N.Ma  (N.SPECI*i)*NJf  1 

TAll  lPIT  (SY.Gf  JEm3,PSTR,H(XP2njO,'n  ir"' 

RtA0T27l 

ppipT??? 

C 

SPfNPlaO. 

RCAOTaTS 

RF  4nTP7a 

n;)  161  Ksi.NSPfcr 

Ih  (SPE(<).‘LT,0,)  5pE(K)«SP(K)  - _ _ 

REA0T275 

READT276 

. 3PR(K)sSP(K)/SPE(K) 

161  SPfNFlS  <?P('JP>*SP<K) 

RfcAOTe77 

IK  P'JUidsT.NE.O.  ) XRITF  (6,?)  5P»8PR 

2 FORNAT  (IX,2RHSPE1CE  CUnSERVAFI JN_atL  JETMlX»/»flH  SPECIE»«F12.6, 

RtADT279 

/»REAOT2B0 

18H  HATIi),0F12,^) 

PSISCLS  VJE:T»01AJ»*2/i<ta. Hi, 1015921 

0IaJQ2s  .5*0IAJ 

NjJdlSN.f 

REA0T281 

REA0T2B2 

WtADT2B3 

R1 AnTPBO 

DO  200  Jsl.NJ 

PPSirl.Jl:  P3IB( J1 apSySCL  

REA0T2BS 

READT2B6  . . 

R(I.J)=  01AJQ2»*2*H(J) 

NJPlsNJfJ  - . . - . . 

UUf I, J)=H(NJP1) 

N.1X2P1sN.T*P*.1 

HEAOT287 

RLADT28B  _ 

HEA0T2R9 

UKAnT?90 

RRHJd,  J)=H(NJX2P1) 

XSP£CId.J,NF)30.  _ _ ... 

C 

c*  calculate  average  mixture  ratio  . 

OJ  190  KsI.NSPECI 

KP2N,JJ  = f'<»?)*NJ»J  

BtA0T291 

RtA0T292  

REA0T293 

RbA0T290  

RbADT295 

PEA3T296 

XSPbcKI,  J,K)*ri(KP?Njj) 

J90  XSPECl(l.J,NF)xXSPECl(r»J.K)*FSPECI(K)tXSPECl(I»J,NF) 

KP2NJ1S  (NSPFCI*3)*nJ*J 
r.Gd,  J)=-«(kppnji) 

RtA3T297 

REA0T298  

RbAGT299 

RtA3T200 

415 


r 


j 


200  CONTINUE  REAOT201 

ISTARsISTARAl RtAOT202. 

lelSTAR  HKA0T203 

IF  (I. IE. Nil)  GO  TO  loo REAOTgO'l. 

GO'IO  220  ' ■ KtA0T209' 

_ PEADT200 

NEARING  END  OF  JETHlX  «UN  RcA0T20I 

0 NIlsNlI-1  READT208 

IF  (XL.LE.X(lSTAR-n)  GO  TO  220  REA0T209 

1F(  PDUNtlSj.NL.O.  ) WRITC  tO«U  XL»XfISTAR»t)  REA0I21!L 

XlsX(1STAR-»)  HtA0T211 

- . _ . . . ...  RtA0T2l2 

0 KEVAIP)  « Kaav  REA0T213 

._  RETURN - _ . REA0T2ia 

RtADT215 

1_FURNA  T-C.U?JI  . ..  »U).Xi2JLHREaUE  3 J E D.  ENO_VA  LUL_0F_X_1  S_8L  IRE  A DI^lA- 

lOND  FNO  OF  JEIHIX  RUN,  XL  HAS  BEEN  HFSE T , / , 20X , 1 7HnL0  VALUE  oF  XL  REA0T217 

. J=,Fl(l,6,/t20X,l7HNEw  V*LUE  QF_XL  s.FiO.fc) READT218 

end  READT21'> 


» NEARING  END  OF  JETHlX  RuN 
210  NIlsNlI-l 

IF  (XL.LE.X(lSTAR-n)  GO  TO  220 

1F(  PDUNtlsT.NE.O.  ) WRITF  fO.l 

XLsX(XSTAR>t) 

220  KEVaIrY  « kPSY”  ~ ’ 

RETURN 


CREOPRE 

C 


-REOPRE-  SUB.  To  READ  PREJET  OaTA 


NOV,  1973 

B R oil  r”i  N E “(Te  0 P R E ~ 

common  /INdaT*/  N.HF. WAR, T^, beta, TPs. FAR5»fIN0?C/P0/ 

* ..  RC,l(il)»RCU2(ll),RHCtll),RN0X(ll), 

* Pf  lll),PS(ll),BLOC(il),QCOfll) 

REAL tJ 

common  /jETOAT/  NP1S,hA0(12),TS(1?),iij(12),SPV(12),m-'T(1?), 

* _ CP(ia),FULL(12),SPALnG(l2),TKE(l2),DTHERt(36) 

REAL  MwT 

..common  ( GaSCMP  ( RICh(29),  F0UL(«8).  EMlH(4fi),  _ . _ 

* CO.JC(7fe8),  HClNCP{?a),  UTHER2(192) 

C.QM.M0N_/0PilT.RL/_TLrLE.(2flJ,rRIMT(ift) 

common  /r.A.MTMw/  Tc;(2,i2,2),0UmTMW(12o) 


C 


CClM'4ns  / mfts  / Kt^Atil),  KF.YM(II),  KOOa(U),  KO'^Bdl) 

OI«tNSI  JM  r.jn  (2n0),  Y(200  ),  JO(20  0),THDt200)»T^O(200),EO(200),- 

* MOLFI ( 100>,MOLF2t 1 0 0 ) , mOl^ 3 ( 1 0 0 ) , MOi F«(100), 

_*_.MQLF  b ( 1 0 OJ jJlOLFb  ( LOfl  J ,-MOlE  7 ( I Ofl-J., MUl-Fa(.M) OO^OL  F9  (-WW-, 

* MntFlO(100),M.lLm(loO),MnLPl2(100) 

. dimension  CiWA.MEC127,ALC(l2),SC.MCi2),CPC(36) 

. OIMEnSIO.SI  h(2,  12,23  

EOUlVALtNCK  (H(l, 1, 1 ),EnTM(1 )) 

_0AJA AgHEJJMHPREUm./ 

namelist  /.REFOAT.  /.NPTS,.  RAO,_ia,-U,_SPV,-,JlHT,  CP,_ 

1 fu£l,spal')G,tke,other1, 

.2  RlCH,FJUL,ENTH,C0’IC,HCINCP,0TMtR2 

* , TITLE, print 

.J_,N,.ME,rtAS,lZ,3£JAA.T2StEJLR5,ELHa2C.,PJl,JTC3,RCQ2*JtHC,RNQX, 

* PT,PS,3LOC,QCO 

K«^V  = KEYA{«) 

KEYA(4)  s KPREJT - _ - 


* DIA.J,mjfT,T1  JET,  v->f.t,pe,tf,tif,ve,cfx,rg,pr,prt,sc,thef, 

* .MI.(kfF,01KF,NC,CNAME,  ALE,SCM,CPC,NJ,NM,cTl,CT2,CT3,CT«,CTb, 

* CTfe.CT/,CTO,GJET, Y, JD, THP,TID,E0, 

* .-MOLFI, mDLF2,M0LF3,MQlF4,M0LP5,M0LF6, _ 

* MOlF7,m.H.F(»,mOLF9,MlIlT  1»»,M0LF  H ,M0LfI2, 

•.  NPTS,RAD,T3,UJ,SP'/,Ma'T,CP,FJ£L,SPALOG,TKE,3TMCRI, 

* TITLE,PR1nT,N,HF ,.yAR,T?,MKTA,T2S,FARS,ClNO2C,P0, 

* RCO,RCJ2,RHC,RnOX,PI,PS,HlOC,QCO, 

* RICH,HCtNrP,FUUL,ENTH,CClNC,OTH£R2 


REDPREOl 

RtOPREOa 

RE0PRE03 

-RbOPREOa. 

REOPREOS 

- REOPREOS 
REf)PRE07 
RtDPREOB 
RE0PRt09 

-RtPPRtlD- 

RtDpREll 

REDPRE12 

REDPRE15 

RE0PRE14 

REOPREIS 

-RhOPRtUx- 

RF.OPREIT 

RFPPREIS 

RE0PRE19 

REDPRE20. 

RE0PRE21 

-REPPREPa- 

RtOPRF.23 

- REDPRK24 
REDPRE25 
REOPRf 25 
REOPRE27 

— RbOPREPS- 
RbDPRE29 
-RbDPRESO 
RtOPRE31 
RbDPRb32 
REDPRb33 
_REDPREJ.4_ 
RbOPRE35 
. .RLDPRb36_ 
REDPRE37 
RbDPRb3B 
REDPRF  39 
. J?E0PHL.4a.. 
REDPRb4l 
RbDPRE42 
RbOPRE43 
REDPRE44 
RbDPRF4S 
_REDPRb45. 
RbOPRE«7 
RtOPRE4B 
REPPRb4V 
RbDPRbbO 


u o o 


KEV*(q)_*_KaSV 

IN *JL* *i ICH  rRACTinN  TgMPEWATURg 

DO  10  KK3l«NPTS 

CALL  TFMHK  CONC»H(l«KK,l),T0(i*KK»lS»CP) 
10.  CONTINUE 

RETURN 


HE0PRE51 

RtOPRESZ. 

RtDPREbS 

wtDPREbq 

REOPRESs 

REOPRE56 

REOPRES; 

REDPRESa 

REDPRE59 

-REDPREfaO- 

RE0PRt6l 

RE0PRE62 


CWh2  HrnRnGFM  COMCENTHATinM  FSTiMATrD  pROH  CO  MFASUREHEKjT 

C ” “ REF  i'TR  GLEArON  TO  STAORVLLA  5*8/71 

c 

FUNCTION  Rh2(RC01) 

C 

IF(RC'J1  .Ea.RCOlGO  TO  30 

C _ 

RCO'RCql 

TF(RCT,GT,O,O91022292)nQ_TQ  20 

H ?cnso .'?«(» 00.  o*RCn)*«o.  16 ' 

GO  Tn  30 

20  H2CO«orot«7*Troor'o*RCn)i*l.’3a2  

30  RH2«H2CO*HrO  ’ 

RFtURM : 

END 


RH200001 

RH200002 

R*^200005_ 

RH200000 

BM2Q000S 

RM20b006 

RH200007  

RH20000S 

R^?00009 ___ 

RH200010 

RH200011 

RH200012 

RH200013 

RH200014 

RH200015 

RH200016 

.RH20001I 

RH2000ia 


CSCALE  turbulence  SCALE/SlNGLE«C0ANtlULAR/C3RLANAR  JETS 

subroutine,  3CALE(UU»llt0jjHHECiX) 

C******  control  rOHHON 


COMMON  /CTRL/ 

_*_>(XTA «._CMPa.8_ 

* NPU  • NPO 

.A_D8lQRjt8(Lli 


-»_QjeT_ 
« oxc 


.._turb; 

• XU 


.«  CQEF(IO) 
» Xt>D 


COHMnN_/(>RnF/._PST(200i,jr(200i.UOf200l,l«Dmi)KEI>tiflS) 

c******  constant  AnO  ERROR  COMMON 

e* 

COMMON  /CNERR/  bits  » ERR  » CC  » CCJ  « FOOT • 

-t* 

c******  BOUNDARY  CONDITION  COMMON 

tA__ ^ 

COMMON  /8C/  UEDGF  , EEdGE  . TMEoGE 

-tA 

COMMON  /ftCo/  UO*  Eo»  TMO 

C0mmqn_ZCISL2/ , 

• FDGFI  . sEI  . merge  , XMERGE  » YMERCE  , 

« SLOPE!  . SLOPEO  « CEpTI  . CEPTQ  

LOGICAL  MERGE  , 

dimension  uUIll 

INTEGER  TWnJ 

to M MON  /FDCE/  YJETe.SFEBGE 

COMMON  /pnnpjz/  macmo»reflo»vi»yo,mfr6p 

LOGlCAL_MERj*P 

COMMON  /PRnPJT/ 

i_PRL_  _._t_^RT M RGAS  i sc , 

• TREP  , MURFF  , MACH  , XlC  , 

* REFL  f C . CHI  , RNORM  

• RHOIPOO)  . MULiaoO)  , KCPI200)  * 

M U E F F C2  0 0 j_,_  X L N ( 2 0.0  j D K ( 2 0 0 E T UR  BX2  0 0 i 

COMMON  /cPROP/  CTlfCT2»CT3,CTa,CT5,CT6»CT7,’cT8 

CA , 

COMMON  /mixer/  MIX»RO(IoO).XD(100).CF,YR(Ioo) 

LOGICAL  HtX 

COMMON  /FLOBAL/  MAXIT,SUPBtNlT»PSID»YDO,YOC» 

• Pl»P2,UCL^TaL,UPSlRMr£¥G 

LOGICAL  SI)Ph.CVG»UPSTRm 

.^COMMON.  /ACONVG/_YC0(l00),PD(l00)»lNDCtl00),'  CHOKE#  CHOKED 
LOGICAL  CHOKE#  CHOKEd 

COMMON  /dfiT/  ■ Cl  SPf looi 

COMMON  /STa2/  MAr.H2,Ts2,SS?#V2#RHO?.OP0X2 

. REAL  MArH2 . 

COMMON  /BCMIX2/  cradu#tw#huw#'rhon#ptf.tte 
REAL  _MUW - . ..  . . 


scaleooi 

__  8CALE002_ 
SCALE003 

SCALEJ5.ftjL_ 

SCAlEOOS 
j 3CALE00S_ 
# SCALEOOr 
SCalE008_ 
SCALE009 

SCAlFOJJL- 

scaleoii 

5CALE012 _ 
SCALE013 

__  scaled 

SCALFOIS 

SCALEOli— 

SCAlEOIT 

SCALE018_ 

SCALE019 

SCALE020_ 

SCALE02I 

SCALE02i_ 

SCALE025 

SCALE02R 

SCALE025 

SCALE026_„ 

SCALE027 

SCAaX28_ 

SCALE029 
_ SCAlE030_ 
SCALE031 
SCAlE032_ 
SCALE033 

SCALEOTO 

SCALE035 

SCALE03>_ 

SCALE037 

8CALE038_ 

SCALE039 

SCALEOR.(L_ 

scaleooi 

. SCALEOOE 

SCALEOOS 
scaleooo  . 
SCALEOOS 

3CAlE0R9_ 

SCALE007 

SCALEOOS 

SCALE009 

scaleoso 


COMMDS’  /CBoOV/  VC0(lnO).CLSPCB(lOO).yCBl  . UCLl 

_ /nUTM!X/_NXORlG 

COMHOS  /scaled/  8CL0»*LXLIM 

LOniCAL SCLD 

COUlV*LENCF_  JCA*COEFLBj3 

c* 

»_G3_Tn (lOOtgQO^  » TWnJ 

c* 

e*  SINGLE  JET.-  COMPOTE  LOrAL  Wtf)TB  OF  HlXlMfi  ZOSt 

CA 

100_Ga  in_  (l«O,t20tj20i-_»-NRtQ. 

120  REFL«C6*VJFTE 

_Go  To  l<»0 

1«0  1F(  SCLD  ) 60  TO  laz 

00  m3  l«i.'npu 

IF(UU(L).NK,UCLn  60  TQ  14a 

1«3  CONTINUE 

GO  TO  144 

142  00  144?  i>i#>jPU . 

TF(  UUai.GE.ALXLlX  ) GO  TO  |44 

_L<L42-C.DNmLLtE 

144  REFL»C6*(Y.fETE»r(L*l)) 

C* 

160  RETURN 


-C* IESI_-,HERGE-IO-DEJ£RHlNE-lEL.Ug/nN.na.IREA!iL  aF-M£JlGE-3TATlON  . 

__  200  TEST1sU0.1'E--6 

Te3T?slJ0*i;E-6 


-CA — upstream^*  CnMRUTE — REFL#REF-UO^-U-tO 

CA 

aiO-TOaCAATJflF 

YlaC6AE0GEl 

.-CA 

CA  SCAN  UU  TABLF  FOR  BOUNDARIES  OF  MIXING  ZONES 

.C* 

00  220  LAl.NPU 

IFIUUID.'MF,  UCLl)  GO  TO  222--- 

?20  CONTINUE 

222_U<st-l 

REFLxYI-C6*Y(LK) 

DO  2?S  LaLK,NPU  - - 

IFfUUfL) 'GT.TESTI  .and.  UUdi.LTT  TE5T2)  UUIL)«"0 
- TF(Ull(L).Eo,UO)  LJ*U  - 


SCALEOSI 

SCALE052. 

SCALEOSJ 

SCALEDiR- 

SCAUE055 

SCALE056_ 

SCALF057 

_ scaleoss, 

8CALE05» 

SCALE06(L 

SCALE061 

SCALE062. 

SCALE06S 

SCAI.E064- 

SCALE06S 

SCALED 66- 

SCALE067 

SCALE06S. 

SCALE064 

5CALE07JO_ 

SCALEoTI 

SCALE072- 

SCALE07S 

SCALE074- 

SCALE07S 

SCALE07b- 

SCALE077 

SCALEOTD- 

SCALE079 

SCALEOAO- 

SCALE081 

SCALE082- 

SCALE083 

SCAUEOSa- 

SCAlEOSS 

SCALE0S6- 

SCALE087 

SCALEOSe- 

SCALE089 

SCALEORO- 

SCALEoRI 

SCALE0R2 

SCALE0R3 

scaleoro 

SCALEORS 

SCALC0R6- 

SCALE0R7 

SCALE0R8 

SCALEORR 

SCALFIOO 


. 225  CONTINUE 

_£• 

230  REFLn«VO«Cfc*V(LJ) 


_C*  _J>D“N  streak— _DETERH1nEJ0UN0AH1E8  OF.>tlXUijC_ZQNE8/y_ 
C*  USE  LINEAR  EnuATIONS. FOR  NOZELE/MERCE  POINT  LINES 

^2SO_!rU(8LOREO*X*tE£lQ) ftCA 

Y0*C6*YJETf 


1^14  a 


00  270  L3l«NPU 

IFtUUtD^yE.* 1 

270  CONTINUE 


275  REFL«YI«C6*Y(L«1> 

» 

500  RETURN 

LNO 


SCALElOl 

SCALE102. 

SCALE103 

-SCALEIDjI- 

SCALEfOS 

8CALE106. 

SCALE107 

SCALE108_ 

SCAlE109 


SCALEIII 

SCALE112. 

SCALE113 

-8CALE119. 

SCALEllS 

-SCALEUJl 

scaleiit 

-5CALEU8_ 


C3CKP  MAIN  DRIVFR  FOR  8CKP  CALCULaTTON 

SUBROUTINE  3CKP(  KK  ) 

COMMON  /r.ASCMP/  B1CH(1?,2).‘f»EI  

A rONC(l6,2.12.2)»HCTNrP(l?,2),DTHfcRf 192) 

C O^H  ON_  ^fiA  S T^W  / T G ( 2 ; 1 2 , 2 ) , Mj^T  G (?  2 ( J 2 , 2 ) ^ C P G1  ? , 1 2j  2 ) 

PEAL  MWTg 

COMMON  /P3F(I  / FOA,6FT8.Tp«yn6)»OHoDHW,TfQ.'BFQ>XMWT#HNEQ 

common  /rBjTS  / BITS, BLANK 

COMMON  /cKTNpT/  nUMrl  (R)  .'xMOLwO,oUMSii:(9Q),pNTRYl 


LORICAL  EnTrYI 

COMMON  /TNMOLF/  XIN(12) 

common  /TNoATA/'hOcI *HFiWAR,T2,BtA,T>S,F*»S,FlN02c,P0,nUM2(88) 

^C 0 M MON  /PSFQX_^HQC,HuM,C02ATR,MATR, £$_, f uelmw 

REAL  MAIR 

COMMON  /9NmW  / ALSPdSO),  WMTcTS) 

COMMON  /RHSC  / FF(?S),HZ(2S),0UMGf7S) 


COMMON  /9NmW 
COMMON  /RHSC 


COMMON  /CPRlNT/_iy)UM(?0) 

DIMENSION  rl  ci6),C2(lfcj 

DATA  RO/ 1 .98396/ ^ 

HOC ■MOCJ 


HUM  s WAR 

jFUEJLMWa_l2r01*U00ft*HQC_.  , 

FS  « FUfLMW/(1  .■♦.■2SAHOC)A.209fl95/HAlR 

_K a 5K_^ 

WRITf  (67iO0)  k 


I 1 1 :i  Auu  3 


_lfX_TP  ^.150  0 . ).  GQ_Tfl_9 

TPK  a TP/1.8 

CALL_.THRH(_tPJ(tl.’_L- , 

CALL  SFTM(?,0,,Cl,lfc»c2»16) 

-ll = 0 - 

no  90  T3l2,i6 

_Y2 s Y2*WKTLLi*CaNCll.-UK7j 

Oy2  B 0. 

JF(_i2:EQ.0,_j_Ga_jm_92 

0V2  B i./r? 


3PLLT__>llXTURE_-IILCaNSERVE  ENERCY 

-CALL  FMPyCfl,QY2,C0NC(l2.'l,’K,2)tC2O2j*5i- 
CALL  FMPvCf l,Qyy?,CONc(l,l,K,2)»Cl,in 

—HSJ 

H9?  • 0, 

-TMOLFSb  0, 

DO  91  Tb|,«6 

..TMOLESl  TMOLES  + CMlj  . — 

Hsi  ■ HSifCiri)AMZ(T) 


scKpoooL 

SCKP0002 
3CKP0003 
SCKP0004 
. SCKPOOOS^ 
SCKP0008 

.SCkpOOOL 

SCKP0008 

9CKP0009 


SCKpOOlO 

SCKPOOll, 

8CKP0012 

_SCKP0011_ 

SCKPOOlO 

SCKPOOIS 

SCKP0016 

SCKPOOIL 

SCKPOOIS 

.SCKPOOl’. 

9CKP0020 


SCKP0022 

SCKP002l_ 

SCKP0024 

SCKP002S- 

SCKP0026 


SCKP0028 

-SCKpOQ29_ 

SCKP0030 

.SCKP0031 

SCKP0032 

^CXPiliJJi. 

SCKP003fl 

SCKP0035. 

9CKP0036 

8CKP0037- 

SCKP0038 

-SCKPOOi*- 

SCKP0040 

SCKP0041 

SCKP0042 

9CKP0043 

SCKP0044 

-SCKPOOaS- 

SCKPOOOO 

SCKP0047 

scKROoas 

scKPooao 

SCKP0030 


MS? « HS?»C2(n_»HZ(ti 

91  COMTNUE 

HSl  • PO<>TP»MSt 

HS2  a R0*TP*HS2 

0 T M ai ._j» _ 1 j /TmQi  pa  

CALL  FMPVCf ltOTHOL»Cl,'xiH»lli 

» a HSt  

IFf  POUhM  O)  .nF.O.  ) call  TABpRTt  SHX1N1T,XIN»  1 1 * 10) 

CALCUl  ATE  COUIVALFNCE  RATIO 

ZETAI  a C^lNr9UXiN(lli 

ZETA a xiN(fi)-.?>*C02AlR/,7«00«l«zPTAl_ 

FR  * ^.*.7floe«l/.2o9a95*fXfH(7)*ZrrA)/ZFTAl 

FOAl  a FS^ER 

OTIHF  a TAI)(K,2)«TAU(K(1) 

CALL  FOR  kinetics  STEP 

ENTRVrirTT^UE; 

XMnLwo«  b!t8 : 

? CALL  KTNFTfP0,H,FQAl,0.) 

yAUL  kT VF fi po » h7f oTT* 0 f IME)  ” 

S faR  E ~ T F^'yON  c E N T R A T1 ONS  ^ 

TFf  POU'^f  IOI.’nF.O.  1 call  TABPRTffcMTrxFTN»TP.’l2»10> 

? -l./I *‘«WT« (J  ."Y2))  

CALL  FMPYC(l,TrRM»X,CnNCf  l.l.K.D.Jll^  ^ 

_ CALL  A^'jPXCflfY?iC2<l?itC0«a2ZljKijii5i 

EnTHCI  HS1*(1.«Y2)»HS2*Y2 

TCClfK.li*  TP 

no  Tfj  5 

YCfl,K.n«,Tr.,a»KY2j__ 

FNTMn.K,!!*  ENTHd.K.Z) 

C A I.  L.*?  ay  E LLlCO»»LU  J.1  i.lC£2iij:  DR  t ( 1 t±l  K.IljlJliJli 


SCKP005L. 

SCKP0052 

_SCKP0-D5_L 

SCKP0054 

_3CkPO0SS_ 

sckpooso 

SCKP00S7 

SCKP0058 

SCKP00S9 

SCKP0060 

SCKP008t_ 

SCKP0062 

SCKPOOOi. 

SCKP0069 

SCKPOOfcS 

SCKPOOOb 

SCKPOOfcZ 

SCKPOOOS 

SCKP0069_ 

SCkp0070 

-S.CK£.007J^. 

SCKP0072 
_SCkP0075_ 
SCKP0079 
SCKP0075. 
SCKP007fc 
^CX£flQ77.. 
SCKP0078 
.SC_HPO079_ 
SCKP0080 
SCKP00«L 
SCKP00R2 
SCKP0083 
SCKPOOSa 
8CKP00R5 . 
SCKPOOAO 
_SCXP0087_ 
SCKPOOR8 
SCKPO0B9 
SCk’pOORO 


CSERCH  OPTlMAI.  sequential  SEARCH  TECHNIQUE 

SERCHOOl 

C 

subroutine  search  (F.FOFX, A,X«H) 

SERCH002 

SERCHOOl 

C 

THIS  ROUTTNf  uses  an  DpTIMaL  sequential  search  TECHNIOUF 
In  (a,h)  such  that  f(x)  s fofx 

TO  find  X 

SERCHOOa 

SERCHOOS 

C 

assumptions 

SERCHOOfc  j 

SERCHOOl 

C 

C 

(1)  F(X)  Continuous  on  thf  closed  interval  (a»b) 

(2)  FOFX  in  not  FOUAL  to  7FRO 

serchoob 

SERCHOOO 

C 

COMMON/SlNT/OUHf 10 I.KOUnT.FX 

SERcHOIO 

SERCHOil 

c 

XI  s (2.*A  ♦ Bi/1. 

SERCH012 

SERCHOil 

KQUNT  s 1 

FI  « FfXl) 

SERCHOIO 

SERCHOlS 

IF  (ABSd .-Fl/FOFX)  .gT.  0.000!)  CO  TO  ^ 

X » XI 

SERCH016 

SERCH017 

FX  « FI 
r'eturn 

serchoi# 

SERCHOIO 

c 

? X2  s (A  4 ?.*0i/3. 

SERCH020 

SERCH021 

kount  s koiint  ♦ 1 

F2  s FIX?) 

St»CH0?2 

SEPCH023 

IF  (ABSCl ,-F2/F3FX)  .GT.  0.0001)  GO  fO  1 

X > X2 

SERCH020 

SERCH025 

FX  s F? 

RETURN 

SERCH025  ; 

SERCH02T 

c 

5 D1  * FI  - FOFX 

SERCH028 

SERCH029 

IF  (ni4(F0FX-F2)  .GT.  0.)  GO  TO  5 

IF  (01  .lT.'  0.)  GO  TO  a 

SERCHOIO 

SERCHOil 

X2  s A 

KOUNT  s KOUNT  4 1 

SERCM012 

SERCHOil 

F2  * F(X?) 

IF  (F2  .IT?  FOFX  .*AND.  AB3(  1 -'-F2/FnFXi  .GT?  O-OOOl)  GO 

TO  5 

SERCHOIO 

SERCHOlS 

X » A 

FX  a F2 

SERCHOIO 

SERCHOI) 

r 

RETURN 

SERCHOlS 

5ERCH019 

a XI  » B 

kount  m KOllNT  4 1 

SERCHOOO 

SERCHOOl 

Fi  * F(Xt),  . . ... 

IF  (F1_,GT^FQFX  ..AND.  ABS( I..--FI/F0FX)  ,GI.-O.OOPt)  GO 

TO  5 

SERCH002 

SERCHOOl 

X a 8 

FX  a FI 

SERCHOOO 

SFRCHOOS 

. ._C- 

return 

5 X a (XI  4 X2)/2. 

KOUNT  a kount  ♦ L _ . _ _ 

FX  a F(xi 

SERCHOOO  J 

SERCHOOl 

SERCHOOA 

SEHCH009 

SERCHOSO 

425 


rf_  ( *8S ( 1 »-FJ</FOF >)  .LF,  0.000 1 
IF  (K3UNT  .EQ.  It)  return 
IF  ((Fx-F0FX)»(rnFx-F?)  :lt:  q:)  cn  to  t> 


SEPCHOSI, 

SEPCH0S2 

-SEECH051. 


XI  ■ X 

GO  Tf)  S 

6 X2  ■ X 
F2  ■ FX 
60  TO  5 


End 


SERCH05< 

SERCH055_ 

SERCHOSb 

SERCH057_ 

SERCM059 

-SEFCHQifL 


SERCH060 


C SET UP 
C 


’ ‘ SETS-UP' FLOH  PROPERffES  POR  INTERPOLATION' 

"SUBROUf InE "^rfUP  (TR3 T # K ) ^ 


1. 

COMMON  /CPflOLI/  G(50»l)f ALPHA(1»1),3eTA(50,1)»CAMm(S0»1), 

1 OELTACSO,  J ) 

COMMON  /CInITV  XX,OPSl(l) 

common  /CSTART/  r.JET(?00),GEX  

COMMON  /CCoJnT/  X(S)tNSL(S}«NX»XMAX 

common  /CInPUT/  PSK  1 00,b),R(l00>S),||(100,5).E(l0Q.S).RHO( 

1 XLN( 100, S) fE( 100.5) 

common  /CnUnET/  PSlMA)((5),NSLZ(5),R2<50,5)iUZ(S0,5)»E2(50» 

r HHn/(50,5),XLN7(50,5),F2(50,5) 

COMMON  /cTRANS/  R2T(5,SO),UZT(5,50),EZT<5,5^0)/RHOZT(5,50), 

1 XLn2T(5,S0),FZT(5,50) 

COMMON  /CSi  OAT/  SY(50),RAD(50),VEL(50),TKEf50),OE 


1 FA»(S0) 

C0MMD^/CAr>CNT/_MAJ^,  NSl  >NXS,NSZMAX,N8Z1 

C* 

C«  determine  values  of  stream  function  on  streamlines  at  in^ut 

00  170  lal  ,'NX  ' 

N S_=  N 3 L_(_IJ 

PSlMAX(I)sP3I(NS,I) 

SLZsp31MAX(I)/0PSI(l) _ £ 

NSLZ(I)siFlX(SLZ}*l 

IF  (NSLZ(1),GT,MAX)_G0  10  J,eQ 

170  CONTINUE 

N X3  s_NX 

GO  To  190 

j80_NX3si 

NSLZ(NXS)smAX 

190  SY(1)30.  

NSZMAX*NSLZ(Nx3) 

D 3_  2 0 0_J  s 2.NSZMAX 

SY(J)=SY(J-l)*OPSI(l) 

__?00  CONTINUE 

C*  calculate  fluid  PROPERTIES  ON  STREAMLINES  AT  INPUT  STATIONS 

DU  205>  1 = 1, NXS  _ 

NSsNSL(I) 


NSZgNSLZlI^ 

call  LFITI 
CALL  LEITI 
CALL  LFITI 
CALL  LFITI 
CALL  LFITI 


(Psi(i,n,R(i,n,Ns,sY,RZ(i,i),Nsz,o) 

(PSI(1,1),U(1,I).NS,SY,UZ(1,I),NSZ,0) 

(PSI(l,I)fE(l.I),N3,SY,EZ(l,I),NSZrO) 
(PSlU/D/RHUd,  I},NS,SV,RHUZ(1,I),NSZ,0) 
(PSI(l,I),xLN(l,I),N3,SVrXLNZ(l,I),NSZ,0) 


205  continue 
. DO  215  IKsi,nXS 
IsNXSAl >IR 

NSZ*NSLZ(1) 


SETUPOOl 

_ ^ _ 5ET.UP002 

SETUP003 

SET  UE0.(L4_ 

SETUPOOS 

5ETUP006_ 

SETUP007 

SETUPOOS  _ 

8tTUP009 

100.5),  SETUPOIO 
SETUPOl 1 

S),  _ SETUP012 
SETUP013 

SETUP019_ 

SETUP015 
. SETUPOl 


SETUP017 

_ SETUP018__ 

SETUP019 

STATIONSSETUP020  _ 
SETUP021 

5ETUP022__ 

SETUP023 

StTUPO?« 

SETUP025 

SETUP028 

SETUP027 

SEtUPJ32a_ 

SETUP029 

^ETUP030  _ 

SETUP031 

SETUP032  - 

SETUP033 

SEXURJlil- 

StTUP035 

SETUP036. 

SETUP037 

3tTUP03B 

SF.TUP039 

SLTUPQRQ 

SETUPOOl 

SETUP002 

StTUP0a3 

SETUPOaO 

SETUPOOS 

SLI.UP  006 

SETUP007 

stTuPooa  _ 

SETUP009 
SETUP050  - 


NSZP13NSLZ(I)»1 

If  (NSZPUGT^NSZHAX)  fiO  TO  21S 

SETUPOSl 

SETUP052 

DO  210  JsNSZP1»N3ZHaX 

RZ(J,nsRZf  J»I«n»RZ(NSZ«l)/RZ(NSZf  I»l) 

SETUP055 

StTUPOSO 

U2(J,1)3U(nS,I) 

StTUPOSS 

EZ(J,n:E(NS.n 

SETUP05S 

RHOZ(J»1)sRHO(NS»I) 

SETUP057 

XLNZ(J«nsxLN(NS.ll 

SETUPOSS 

fZ(J,I)xf (n3»I) 

SETUP059 

210  CONTINUE 

SFTUP060 

215  continue 

StTuPObl 

If  (IRST.GT.O)  GO  TO  220 

SETUP062 

NSZlsNSUZCl) 

SETUP063 

.If  (UZ(NSZ1*1).LT.(0.0))  UZINSZl.ilBA. 

SETUP064 

If  (pZ(NSZl,n.LT.(0.0))  EZ(NSZUl)Be. 

SETUP065 

If  (P2(NSZl,l).LT.(0.0))  FZlNSZl#n«ft. 

SETUP066 

CALL  LflTl  (PSI#GJET«nS1«SY»6»N3Z1,0) 

StTUPObT 

If  (G(NSZ1,K).LT.(0.01)  C(NSZ1»K)*0. 

StTUPOAS 

220  CONTINUE 

SETUP069 

c«  transpose  matrices  for  interpolation  ai  qng  streamlines 

SET'.iPoTO 

DO  240  Isl.NXS 

SETUP071 

on  2.T0  Js1*NSZmAX 

SETUP072 

RZT(I, J)aRZ(J»I) 

SETUP073 

UZT(I, J)sUZ(J.l) 

StTUPOZa 

EZT(I»J)aEZ(J»I) 

SETUP075 

RhOZT(I*J)3RHOZ(J.11 

SETUP076 

XLNZT(I»J)eXLNZ<J»I) 

SETUP077 

fZT(I»J)sfZ(J»I) 

SETUPOTS 

230  CONTINUE 

SETUP079 

240  continue 

setuposo 

RETURN  StTUPOSl 

END SET_UPg_82 


csoLvs  saiVF  s L 


SUBRnuTlME  SOLV3(A.Bt XtNOSOLN) 

LOGICAL  ^lOspyil ; 

blMENSlON  A(3*3)tB(3).X(S).0(5«3$  ^ 

C*0,0 

00  20  1«1»3 

DO  10  J«l«3 

Il«l*l  , , 

IFtll .GT:3IIl«Ii»3 

I2«U2  , 

I F ( 1 ? , GJ . 3II2«  I2i»3 

JlsJ^l 

TFCJt .GTr3^Jl«Jl«3 

J2>J42 

lF(J2,GT;5ij2»J2ft3_ 

to  0(t..))sArlf, J1)*A(I2, J2)«A(I1. J2)*A(T2*J1) 

20  jC«C*D(l,3UltL*J> 

NOSOL  ^JacTEn, 0,6 

IFINOSOLNIPETUWN 

00  ao  Jal,3 

X ( J ) • 0 ; 0 

DO  30  Taj,l 

_50_X.(  J ) sX  ( J ) 

‘•0  X(J)*X(J)/C 

RETUPN : 

end 


SOLV3002 

SOLV3005. 

soLV3ooa 

SOLV3005_ 

SOLV3006 

SOLy30PI_ 

S0LV300B 

SOLV3009_ 

SOLV3010 

SOLV3011_ 

S0LV3012 

SOI  V3Q13 

SOLVSOia 

80LV3015. 

S0LV3016 

SOLV301Z_ 

S0LV301S 

SOLV30tO 

SOLV3O20 

SDLV3021_ 

S0LV3022 

S0LV3023 

SDlv302‘I 

S0L-V3fl2S- 

S0LV302b 


CSPALD  -spald- 

c 

MAIN  Subroutine  for  calc. 

of  >»c^ 

SPALDOOI 

SPALP002__ 

C*  OCTOBER  1974 

C* 

modifications  for  AUG  EHlS 

3V3 

SPALD003 

C*  DUJ  = JET  diameter  — IN 

C*  VJKT  = JET  velocity  — rT/8EC 

'C*'  tJET  = JET  TkE—  HTU/LBM 

C*  GJET  g initial  niSTWlpUTlON  OF  -C"  IN  JET 

TS  OTX  S VALUE  nF  -G-  IN  EXTERNAL  FLUN 

C*__GCJ_»  OIhENSTJNaL  constant  --  L9N.FT«o>/flTU*SEC**g 

C*  PSI  « stream  FlilxCTlON  — LBM/FTA«i 

C*  R = OlMENSiriNLf SS  RADIUS^ 

C**  U > dimensionless  VELOClfr 

C*  E 8 DImEnST  JnLF  SS  TkE  ^ 

F 8 MEAN  FOEL/AiR  RATTO 

c»  _RHO  8 OEnSTTv  -•  LBN/FT«*3 

C*  Xln'm'  Tur3Ul£NCE‘lENGTM‘8cAlE  — Ft 

_c 

logical  print 

COMMON  /ctmeta/  theta, n 

common  /CfcNDS/  jstart,jend 

c OMMON  /CPBOLI/  G(50>l),ALPHA(l>n.  BeT*(S0,  n,6AMMf50, 1 ). 

1 OElTAISO,!) 

COMMON  ■ /CTRID  L/_CaEFL  (50)xCQEFC  (SO)>rQEFRUO)#RH8fSO)  _____  _ 

COMMON  /CBNDWy/  DX,DXpRN^JT 

common  /CU'IT/  XX.PPSTdl ^ 

COMMON  /CJF.TOT/  GCJ,OTAJ,VJET,EJET»MxTA 

common  /c  ST  ART/  r.JE  T(?0  0 LtG  E* I 

COMMON  /CCnUNT/  X(b)»NSL(b).NX,XMAX 

COMMON  _/CJ  N PUJ/_PS1.(1 0 Q^J  .At  10  0 ,3  ) *-1111 QJL*  Si  .1 LIQ  0*5  ) , rhq  a®  o * 5 1 , 

1 XLNtlOO.S)»F(lOO#5) 
common  /CChnST/  con 


COMMON  /CNOVET/  PSlMAx(b),NSLZ(5T,RZf50,5)»U?(S0»5)*EZ(50»5), 

1 R‘<0  Z15  0/  5i*i!L  N Z (50t5)»LZ150,5  ) 

COMMON  /cTRANS/  RZT(b,50)»UZT{5*S0)*FZT(5*50)*RHOZT(5*50)» 

L_XLNZlt5»Sfii*£2IC5*.5al . „ _ 

COMMON  /CSlDaT/  ST(50),RAD(50)»VEL(50)*TKt(50)*DF.N(50),TLS(50)f 

1 FARISOT 

COMMON  /CADCNT/  M A X, Ns  1 * NX8* NSZM AX* NSZ t 

common  /CPRFL  / PUMri(?Rl<ll.XWI100) 

COMMON  / CFILK  / CSC 

common  / keys  / KEYaCiD*  KEVScTiT,  K30Amr*  KOoVm) 

X 

DIHEN8I0N  LGSPC(S)*  NSSPC(b)*  NS2SPG(2) 

X 

data  LfiSPG/Z*  50*  1*  50  *0/ 

DAIA _NS3PG/-U-9M1PS1* 1,  . 


SPALOOOP 

SPaLDOOT 

SRAlDOOB 

SPALD009 

SPaLDOIO 

SPALOOll 

SPALD012 

SPAlDOIS 

SPALOOIO 

SPALD015 
SPAi DOlb 

sPaldoit 

spaldoi? 

SPAlDOIO 

SPALD020 

SPAl6o21 

-S-PjH  tM21 L 

SPALD025 

3PALO02O 

SPALD025 

,SPAL002b 

SPALD027 
-8gAtP02fl 

SPALD029 

-5PAL0Q3Q 

SPALD03I 

SPAlD032_ 

SPALD033 
NPAt  nn'AU 


SPALD035 

SPALD03b 

SPALD037 

SPALD036 

SPAL0039 

-SPALDDHQ 

SPALOOai 

SPAlD0«2 

SPALD093 

SPALDOail 

SPALDOaS 

-SPALOOab 

SPALD0a7 
sPALDoaa  - 
SPALD0a9 
SPALDOSO  - 


DATA  NS2SPC/1#  3HIGK/ 

“nameliTt  '/Fhang  e / A L f'a  . c G 1 . c cl  iTi  CM  A r,  * t heTa  , oxTd  x p r n »'x  s t op  • 
* »prInt 


PRINT  » .False, 

X8TDP  *_lOoOLi 

DX  3 tooo. 

READ  (S. CHANGE) 

lENTRTmO  

call  WFAOT  (lENfRY) 

ienthy3ientry»nx«i 

JSTABisI 

Il»l 

rnri 

K3l  

ixxi 

iRSTaO  ^ 

MAX«50 

^»Lt’HA(l,  1 )sl  ./(V.rFt»DIAJ/l?^) 

CLiNSr  J xAlFA*SQH1  (GC  J*E  JhT) 

C0NST2sCGJ/(YJf r«0lAJ/t2,)  _ ' 

‘ CONST 5SC^.^*(I>1  A J/12,  )/{ ALFA aAl'FAavJEt) 

CONST<lsl,/Slr.MAC  _ _ „ 

IF  (XST  JP.r.l  ,XMAX)  XSTOPSXMAX' 

l» SET  initial  SjtRf ^l^INt_S.PACjNJ5 

NS18N3L ( t ) 

Dl)_lS0  Jsl.NSl 

IF  (R(.I,  t ).'l'T,1  .P)  G1  To  150 

^DPSKnsPSI  (J,  t )/(Fl.)aT(NSZ1-1)J 

GO  TO  IPO 

ISO  CONTINUE 

DPSl  (l)3PSl(NSl, t )/(FlUAT(N3ZI-1)) 

:•  _SET-IIP  F|  ^ROPFRJIES  for  INTERP'JLATInN  ALONG  STREAMLINES 
IPO  call  SETUP  (IRSTfK) 

:•  _PRInT  -G-  profile  at  initial  station  _ 

XX30. 

JFnPxnSZI 

CAIL  STPRUP  (K) 

KEVtt(7)a  CSC«XX»0,5 

WRITE  (3)  KXX,SYf  RAO,i;»  JEND 

IF(  ,NOT,PRTNT_J  »*3_Tn  170 _ 

CALL  TAapRT  (PHA3  X3,XX,IX,1) 

CALL  TASPRT  (SR  PSI , SY, JEnD, 10) 

CALL  TASPRT  (3H  K#RAC), JEND,  10) 

. _ call  TABpRT  (3m  G,Cf  JF.no, 10) 

:*  MOVE  downstream  from  initial  station 

170.SYMAX  * 0, 


SPALDOSI 
SPALD052. 
SPALD053 
SPALPOSq 

Fpaldoss 

SPALOOSP 

SPAL0057 

SPALD058 

SPALD059 

spaldopo 

SPALOOPl 
_ SPALP0P2 
SPALD0P3 
SPALPOpq 
SPALPOPS 

^SPALPOPP 

SPAlD6p7“ 
_ SPALPOPS 
SPALP0P9' 
SPALPO  TJ) 
SPALP071 

SPALP072_ 

SPALP073 

spalppto 

5PALP07S 

SPALD07P, 

5PALD077 

^SPALnQ18_ 

SPALP079 
_ SPALOOBO_ 

'spalposi 

SPALno82 

SPALn083 

SPALPOSO. 

SPALOOSP 
_ SPALOOHP_ 
SPAL0087 
SPAL0088 
SPALD089 

SPALPfi9_0_ 

SPALD091 

SPAL0092. 

SPALP09i 

SPALP09« 

SPAL009S 

SPALP09P_ 

SPALP097 

SPALP098. 

SPALP099 

spaloioo 


431 


I 


S>NExT«SY(NSZj)»OPSl{t)  SPALOtOl 


c* 

0U>LO3P  rOR  downstream  calculations 

SPAl D102 

XD  s XWf?) 

DX  3 AMiNt (OX,XO«Xw(l)) 

SPALD103 

SPALDlOa 

IP  ■ 2 

180  XX  3 XX«OX 

SPALD105 

SPAl D106 

c* 

ISPACEmO 

spaldiot 

SPALD108 

c* 

c* 

CHECK  TO  SEE  IF  ADDITIONAL  INTERPOLATION  STATIONS  ARE  REDUIRED 

SPALD109 

SPALDllO 

c* 

If  f XX.LE.XiNX) ) GO  To  270 

IF  REOUIRED#  ADO  OIIWNSTrEam  InTERPOlATtON  STATIONS 

SPALOl  11 

SPALD112 

call  ‘invE(5»X(5),X(l),l,l,NSL(S),NSL(l)»l»l»PST(l,5),PSI(I,l), 

• too. l»R(l.S),R(l,n>tOO>t«U(t*!>),U(  1,1), 100.1) 

SPALD113 

SPAL0114 

CALL  HOVF(4,F.(l,5),r(l»n,100,l,HHn(l,5),RHO(l,l),100,  1, 

SPALDI  13 

* XLV(1.3),XLN(l,n,lOo,l,F(l,5),F(l,l),100,l) 

SPALD118 

CALL  SCTH(S»O,,X(?),A,NSL(?)»a»PSl(l,2),a0O»R(l»?),«OO,U(l,^),ao0)SPALDll7 

CALL  SETM(‘>»0,»E(l»2),«00,RHO(l»2)»«00»XLN(l*2)»'*no*r(l,P),400,  SPAi  DH8 

• PSIMAX.S) 

CALL  SETm(S,0,,RZ,2S0,UZ,250,E2,250,RHOZ,2S0,XLNZ,250) 

SPALOl 19 

SPALD120 

CALL  SETM(5,d,,FZ,250,RZT,2S0,UZT,2b6,EZT,2S0,RHOZT,256) 

CALL  SET“(2»0.,XLNZT,2i0,FZT,250) 

SPALD121 

SPALD122 

CALL  SFTm( 1 ,o,NSLZ,S> 

CALL  REAOT  (lENTRY) 

5PALD123 

SPAL012<» 

C* 

IENTRYsI£NTRYtNX«l 

SET-UP  FLOW  PROPERTIES  FOR  INTERPOLATION  THROUGH  NEw  STATIONS 

SPAlDi25 

SPAL0126 

IRSTslR3T»i 

CALL  Setup  (irst.k) 

SPALD127 

SPAL0128 

\ 

c* 

JTO  continue 

SPALD129 

SPAl D130 

c* 

c* 

CHECK  TO  see  if  another  STREAMLINE  SHOULD  BE  ADDED 

SPALD131 

SPAL0132 

CALL  LFITl  (X,PSImAx,nX,XX,SYMAX,iX,o) 

IF  (SYMax.lT.SYNFXT)  go  to  320 

SPAlDI 33 

SPALf'l 

c* 

IF  RtUUlREO#  add  another  STRFaHlINE 

JENDsJEnD*! 

Sf'Al.Oli? 

SPAl D13S 

c* 

CHECK  TO  SEE  IF  NUMBER  OF  STREAMLINES  EXCEEDS  IIMIT 

IF  ( JEnO.LF.maX)  r.0  To  300 

SPALD137 

SPALD138 

c* 

IF  RFOuIREd,  Rfc-SEt  streamline  SPACING 

ISPACL31 

SPALD139 

SPALOmO 

()PSI(1)30PSI(1)*0PSI(1) 

CALL  SFTH(S»0.,RZ,250.UZ,2SO,EZ,2SO,RHOZ,2SO,XLNZ.?SO) 

SPALD141 

SPAl 0102 

CALL  SFTMTS,0,,FZ,2'jO,RZT,?SO,UZT,2BO,FZT,2SO,RHnZT,250) 

CALL  SFTM(5,O..xLN7T,?b0.FZT,250,SY.SO,RAD.5O,VEL.SO) 

8PALD103 

SPALDIOO 

CALL  SETM(?,,0,,TKt,b0,0EN,S0,TLS,50,FAR,50,BETA,S0) 

CALL  SETM(?,0.,GAMM,So,DrLTA,50) 

SPALD105 

SPAl DlQb 

c* 

SET-UP  FLOW  PROPERTIES  FOR  INTERPOLATION  ALONG  REVISED  STRFAMLINF.S 
IRSTslRSTAl 

SPALD107 

SPALOlOft 

CALL  SETUP  (IRST.K) 

NEWjNS(JENn*l)/2 

SPALD109 

SPALD150-  

I 


DU  290  JsITnEWJN 



IF  (JJ.GE.JENO)  GO  TO  260 

G( J»K)=G( JJ,K) 

GO  TO  290 

280  G(J»K)xGEX 

290  CONTINUE 

NSTARTsNEWJN^J 

'ng=max»ne»J'^ 

CALL  SETm  (1,0.0,C(NSt*RT«K).nG) 

JETnOsNE^JN 

_GO  TO  310 ^ 

300  G( jEND,K)sGEX 

_ JSTARUJENO  

* RE-CALCt  POE  coefficients'  AT  PREVIOUS  STATION  o'n 

ilO  XXsXX-DX 

CALL  STPROP  (k) 

CALL  COEF^JO 

■jSTARTsl 

XXsXX^OX  

SYN£xraSY(jEND)»OPSl  (j) 

320  CJNItNUp 


* CALCULATE  FLUiO  PROPERTIES  ON  ALL  STREAMLINES  AT 

CALL  STPROP  (K)  

* SOLVE  PARAaOLiC  POE  AT  EACH  GRID  P'OInT  AN6  PRINT 

CALL  PRO LlC<X) 

IF(  XX.l'T.XI)  ) GO  To  SMO 

*  RJ TE  D A T_A  _RE C PROS  » - AT  EACH  XX  . . 

* ■ ■ SY - RaO - G 

» 

LGSPG(2)  * JEnO 
LGSPG(«)  s jeno 
kEySIiT)  s CSC  * XX  ♦ OtS 

KXX  a KEyRLT)  ^ 

WRITE  (3)  KXX,SY>RAD>G»JEND 

I F ("'.'NOT  ;PR  I NT“^!r rFiso 

WRITE  (6. API)  XX ^ 

321  F0H~‘1AT  (/px,2HXa,F16,6/) 

WRTTF  (6,3p?)  _ 

'322  FOR'^aT  (//SX,3hPSI,9x,  iHR,  uX,rHC‘,UX,3HpSl,>X,  I 
DO  323  lrl,JFND,2 

WRITF  (6,32a)  SY(I),RAO(I),Gd»l),SY(IFl)»RAO(I 
323_C JNTiNUf 

329  FJR'iAU2(FT0.6,F12,6fET3.«)) 

330  IP  a IPtl  . _ _ 

IF(  IP.GT.nXTA  ) GO  To  900 

XD  s X-dP)  . . 


SPAlDISI 

SPALD152 

SPALD153 

SPAL01S9 

'sp'aldiss 

_ . SPALDJ56 

spaldist 

spaldisb 

SPALD1S9 

SPALDKjO 

SPAL0161 

_ .SPAL0I62 

SPALD165 
SPALDlfc9 

REVISED  STKEAHL1nESsPAl0165 
SPALP166 

SPALT167 

SPALD166 

”sPaLD169 

. SPALfTlJJL. 

SPALDiTl 

SPALD172_  __ 

SPALDI73 

. 5PALD17R 

NEW  STATION  SPALDI7S 

_ SPALDI76 

RESULTS  SPALD177 

^SP.A.L0LL8 

spaloitv 

SPALD160 

SPALDiei 

SPALD182  

SPALD185 

SPAi  Di89 

spalpibs 

SPAL0186 

SPAL0187 

_ SPALD188  __ 

SPALD189 

SPAL0190 

SPALD191 
SPALD192 

HR,11X,1HG/)  SPaLDIRS 

SPALD199 

♦l)»6(Iti,l)  SPALD195 

SPALD196 

SPALDlPF 

SPALD198 

SPAL0199 

SPAL0200 


RESULTS 


HR,11X,1HG/) 
♦1 )»6(Itl  *1  ) 


433 


ox  ■ OXSAVE  SPtCoiOl 

C*  RE-SCT  AXIAL  SPACIWS  WHCN  STWEAmLINE  SPACING  HAS  BEEN  RE-SET SPALOeoa 

S40  1F(  ISPACE.EO.i  )“Bx¥oXtOX  - - - SPAl.0203 

DX3AVE  » OX SPAlOPOO 

OX  s AMINK  OX»  XO.XX  ) SPAt.020S 

GO  To  180 SPALO20fc 

4d0  RETURN  SPAI.0207 


End 


.SP.ALP208. 


C9TPR0P 


calculates  Fluid  properties  at  each  point 


subroutine  STPROP  (K) 

COMMON  /CENOS/  JSTART.JENO 

-COMMON  /CINIT/  XX,RPSl(li 

COMMON  /CCnUNT/  X(5)*nSL(S).NX.XMAX 

COMMON  /CTrAnS/  R7T(5,50) ,U2T(S»50i*P7T(S>S0i»RHO7T(?»50S 
1 XLNZT(5,S0),FZT(S.Sr») 

1 FAR(SO) 

'COMMON -/CAOCMTA-MAX,N8r,>JXS,NS2^AX;Mszl  ~ 

-rxsi ^ 

DO  3S0  jajsTART, JENO 

CALL'  LFITl  (X7RZT(1»  JI.KIXSTYXiRAIJIJJ  *tx;0'J ^ 

CALL  LFITl  {X,UZT(1,JI,NXS,XX,VEL(J).1X,0) 

call  LFTTI  (X.FZTCl  , J^.NXS,XX,TKEf.fl'.'lX,OJ 

call  LFITl  (X,RMnZT(l,.n,NXS.XX,r)EN(;fi»IX,0) 

CALL  LFITl  {X,XLNZT(l,J),NXS.XX,TLS(,l).lX>D) 

CALL  LFITl  (X,FZT(1,  Ji.NXS.XX.FARlJl.’lX.O) 

Tr-TVELT  1 1 tt'TT  0 ."0  H"  VFTiTi  a O*;!! 

IF  (TKE(.I)*LT.  (O.OI)  TKF(ji*0,0 

IF  (FAR(.i):LT.(0.‘0h'F*R<Jla0.O 

CONTINUE 

RETURN  - ■ 

END 


5r^)T 


STPROPOl 
STPROPOZ  ■ 
STPROP03 
“STPROPOfT- 
STPROPOS 
STPROPOb- 
STPROP07 
STPROPOS- 
STPROPOR 

■ STPROP ro— 
STpROPl 1 
STPROP12  " 
STPROPtS 
STPROPIO— 
STPROPIS 
"STPROPTS— 
STPROPIT 
STPROPIS" 
STPROP19 
'STPROPaO" 
STPROP21 
"5TPR0P22~ 
STPROP23 
STPRnp2a- 
STPROP25 
STPROP26  ' 
STPROP27 


• 004J  (OOO 


_CSUMCP0 l>TFFUSinN_FLJX_TXBM_FC'R.ESEBj;y_eOiJATlQ>L 

FUNCTION.  5luMCPD(L) 

**********************  SPECIAL  VERSION  POP  12  SPECIES  **** 


COMMON  /E«aSE/  OUHSl(qOO),  r(200)»  0(IM32(200) 

_COMHON_/niFEOI/ 

* NC  . CNAMF(12)  , AlJ<I2)  , ALrJ0I12)  .AlEII?)"  , SCm(12{ 

^ TCPPF(1?)„,  HCPRF(12)_,  CF£.tJ.12) 

COMMON  /MOI  UP/  ALXU(t200r#OALXU(10O,i2),0UHE(200) 
dimension  CPT(12) 


1 TEMP»T(Li 

bo  10  ksi<nc 

10  CPT(K)sCPCn.K)»CPC(2.K)*TEMP»CPCn»Kl*TEMP*TEMP 
C* 

c* 

C*  MULTIPLY  BY  gRAOIENTS/ScHmIDT  NUMBERS  AND  SUM 

C* 

12  SUmCPDpO.  , 

DO  IS  KsI.nC 

15  SUMCPDsSUMf.PO+CPT(K)/SCM(K)*OALXUrL»K) 

2_0_R  E turn  ■ _____________ 

END 


SUMCPOOl 
SUMCP002 
isuMcppoi 
rSUMCPDoa 
'SUMCPPOS 
SUHCPDOb 
SUhCPDOT 
SijMCPOOS 
SUMCP009 
SUmCPDIO" 
SUMCP01 1 

SUMrpoiS 

S'JMCPOt  5 
su«cPOia 
SUMCPOt  5 
SUMCPOIS 
SUMCPD17 
S’UMCPOIB 
SUMCP019 
SUMCPD20 
SUMCPP21 
SL'mcp022 
SUMCP02S 
Sl)M|;P02« 
SUMCPD2S 
SUMCP02S 


qSUMP CALC.  AND  PRTN 

'C  ' ' AT  SFUF.CTED  ax 

C 

sJonnafiME  SUMUP 

_c 

PFAU  HWTf^l,MwTf^AR,M 

INTEGER  DAY,YEaR_ 

oiMEMSia-g  sRvf^T.cPf 

LLlA'lL^i 

c 

cn“HnNi/GAScMP/YY(  1?, 

» 19?) 

rOMMn‘j/;)PCT?i./TiTLEr 

’ciiMMn'.'/CAXtAi /niST#') 
cn^^inNi  /c'lASS  / nj‘'<5 
C ►JDa  T A /HC. '<F, 

C:i*'Mrrj  /^IfTPL  / lSe 
CQMHriM  /CiiTlS/  rtITS, 


T RESIOUAl,  EhISStDNS  INDICES 

lAL  P03N3. 


2).X(lV').Tf2),OPT(f6,il,'T).SHMT«),f;AM(?)7 


gT.Ff?.l?.?)»Hf?.lg.?).7TlT>>2,i?,g>, 

?n),PRTHT(30)/jrTf>AT/NT,RAn(l?) 

JvtRfP) 

n?),‘'f  

«AR,nUM7(5)  »P0,DIIMB(B8> 

A.nUMST(16) 

Blank 


_ Ay/lf lA .‘1  'fj;!}*  1L«  0 "XXAJ Al? 

CALL  SFTmO  .HITS, aPT. 350) 


CAIL  .SFT«(  I ,0,0,SUN,a) 

n_:)_/  ill 

_c ■Jil'AMT F -P ? "If  F FjS . n F^  R T C M_ ( 1 )_ A N 0 J. E an  _< 2 ) _ p a r ts^ 


f)')  2n  TPgi,? 

««T(lf')=o,o 

f’X  J O.Jst  •_if> 

m>iiT(TP)sMW1{1P)+Z(I, 
|»WT(TP1  = I .n/N^T(TP) 
CAl  L MTVFf  { , 7.  ( 1 , T?,  •' 
_r A i.L  )F M-ii  (;x ,n(i Pty 
SPV(  TP)  = I 0 . 75?'I59/m'.j 

GAM(TR)=cP/Ii’)*i^':'Tf  I 
r,  A ■<  ( I P ) s r,  A M ( i p ) / ( G A M 


TPf N»  1 ) 

» 1)  ,i(,  i^rf) 

' ' »T(rP),cP(rph 

T f IP)*T ( IP)/PO 
P)/J  .'93596 

(IP)-I Jo) 


FRFF  stream  mean  “RnPERTlrS 

ASSIGN  50  TD  NEAN 

KKs?  _ 

YYY  = YY(N,’li 

10  FOARsAVr.fFf  f,N7n,E(?,V,T)) 

SpvRAPsA  vGxsPy  !Lil»^RV  L?ij ^ 

“.iTSARr  I 7'VAv'r,(  1 .0/'i"T(  n . 1 .0/MhT{?)1 
m 140  ls|  , lb 

to  X(T)sAV5rZf 1,1 ,N.1),/(I,?,N,1)) 


SU-POOOl 
SUMP0002 
5UHP0005 
SLP'POOOR 
_SIJ“P000_5_ 
SlIMPOOOb" 
SUMP0007 
SijMPOOOO 
SU*<P0009 
SltMPOOlO 
SUjxPOOl  1_ 
"SiiHPOOlZ 
SUMPOOl 5 
SUhPOOIO 
SU-POOlS 
5UMP0016 
Sl4MP00_l  7_ 

“suVpoofs 

SUMP0019 
SUMP0020 
S11MP0021 
SUMP0022 
_Slli'POO^y_ 
SIJMP0029 
SUPPOOPS 
SUMP0026 
SUMP0027 
SUMPOOPS 
siiMPon?9 
SIJMPOOTO 
sijMPno5i 
SUMP0052 
siJMpno53 
’ SUMP003<I 
Sumpo 035 
~SUmPo'036 
SiJ«P0037,_ 
suMPno38" 
SUMP0039 

sii»?onao 

Si|MPOPnl_ 

suMPopaz" 

S'.i‘'POoa3 

SUMPOOUH 

SUMPOOUS 

SIJMP00446 

su'^pono  7_ 

suxpooas 

SU“P0nq9 

Su'^POOSO 


I 


riCL)=afl,01iH(7)/FB*R 

riMC=(  !?0,  t VlO.'o«*HC)«X(  j6)/F8*R 

Fiwax»«s>roo''*(x(ii)*x(m)/£aA? 

CALL  f H^VCf  I .Mt*TnAf»,  x,'x,  16) 

nav'^riL  =)  >06 ?o?*(i.'o-y(h))  

IF (DPVMjL.nf. 1.0)O»YHOL5l.O 

_RCn  = X(7) /DRYMJ3J. ] 

RHC*107o*X(16) 

R NOX  sX( 1 1 )»X(iq) 

PLACF  PRQPFRTIFS  In  lUTpUT  VFCroW 

nPT(i,N,KK)=vrv. 

nPT(?,K,KX)=FHAR«(1.0*WAH)/(l  .'O-FBAR^^ 

^nPT(  $,M,  jalEJoEICn 

npT(a,kj,i<K)  = tET*riHc 

nPT(S.Ki.‘<KiciEi«FTMQX 

0PT(6,n,<K1=1£6*RC3 

nPT(7_.N,<K  j = l£6*ftHC 

DPTtP,  =1  ffcARNOX 

GO  _T fl_ME  A.Sj  tS  OilPJ 

strfahtupe  area  and  vrLnCiTY 

50  ARFA s 3.1  ''<IS9?/»(RA0(>J»1  )«Ag-RAP7NUAg)/>qq, 

VFf  SW(N) *SPVHAR/AREA 

)=  PADIN)/127 - 

r)PT(a,M,  1 )»  RA0(Nfn/|2. 

0PTt3i!i.l}a.>«CMJ 

OPT(a,N, 1 )sVEt 

npr(6,n,t)=r(i) 

0?  T u f N f J i 5 FI  

opt(b,n, 1 )sr(2) 

fuel  anO  Contaminant  summations 
FFl OwtFSAR»W(N) 

SUMllJaSU'llJJff-Fl.ai* 

SU'*(?)sSJ'if  ?)fFFLOH*eiCO 

sj  m A la  3 ari-c:!  i t£f  l j*  a Line 

3UM(/i)3SLiM(a)fFFL0''»ETN0X 
MEAN  IMPACT  PRESSURE 

TAI/ryT(N,  1)  *S^V(  1) /SP Y (?i7f  I .’o ♦ TV (N,  f ) • I SP V 11 ) /SP V f 2 ) -1 . 0)  ) 

no-6n  iPsi.2 

FC.AMf  !P)sSf)RT(r,AM(lP)  ,(2;o/(r.AM(  1P)*|  .0)  )••(  (GAM(IP)4l  'oi 
•/(CAM(IP)-l .0)13 

60  MdPisVEl  /S'JRT(«R723.92nAGAM(IP)/MWT(lP>*IfIP)) 


SUMP0051 

SUMP0052 

SUMP00S5 

SU‘'P005« 

SU«>P0QS5  ■ _ 

suMPooSP 
8UMP0057 
SUMP0058 
. SU-POO^R 
SUMP0060 

SUMPflOjbJ 

SUMP0062 

SU«Pn065 

SUhP006<I 

SUMP0065 

SliMPOObb 

^SLiMPQllU 

5UMP0068 

SUMP0069 

SUHP0070 
, SU«P0071 

SIJMP0072 

SIIMP0074 

. SUNPOOTS 

SUMP0076 

SUMP0077 

SOXP0078 

SU:IPQ07.9 

SliMPOOflO 

- suMPOoai 

suMPoona 

SUMP0083-,.. 

SUMP0084 

suHPuaas 

SUMPOOPb 
. SUHP0087- 
SU“P0088 
SJMPOOBR 
SUMP0090 

SUMP0091 

SUMP0092 

SU'1P0093 

SUMP0094 

SUMP009S 

.SUMP0096 

SUmPOOR? 

SU“P0098 

SUMP0099 

SUMpOlOO 


on  poo  1 loop  I poo  p 1 0*00  i oo 


. CTAlfsl  .0-T4'J 

PT3P0*(TaU*»2*PRAT(M(1),GAM(1 ) MCTAU*a2aPHAT(M(2) ,G*M(P) ) ) 

l/(T*U**2tCJAllA*21 


GAS  sample  BTCH  FRACTTDm 


SUMPOlOl 

SUMPOiOZ 

SUMP0103 

SUMPOlOfl 

-SUilPJO-lfli. 


__  RKlK,->  = S1RTttT(a)+WEL*AZ/50075.>S8/cPf2)l 

'/(T(l  )+VFL**2/Sno7S./4S8/rp(in  A*1wT7li/MaT72n 
_ Hwi  <iP  = Rwi^p*FGA'i(ll/FGAM(a)*PRATCMlli,CAfl(l)  j/J»J?AlfM(2i,GAM(2)). 
YYS=TAU*H*h*42/(TAU*HWiWZ*CTAU) 

apparent  mfan  TEMPFRATURF  (ASPIRATED  THERMaCnUPLF ) 


TTr=nAll»(T(n/T(2n*»0.'l'H*RWlwZAA0,#,*T(l)+CTAU*T(?)) 
»/(TAii»(  rrti/T(PJ  )A*£).qS*RRlK2**0.6tClAUi 

0PT(9.N. t )sPT 


SUMP0106 
SL/mp01<»7 
SUMPOJ08 
.SUHP0109^ 
SI.IMP01  to 
-SL'MPOiJLL. 
SUmPOI 12 
.SU"P011J 
SUMPOI IR 
SUMP0115 
SUMPOI 16 


apparent  mean  properties  op  gaS  SAmPi  e 

SUMPOI  18 

SUmPOI 19 

ASSIGN  70  TO  MEAN 

SUMPOlPO 

SUMPOiZl. 

KKSi 

YYYSYYS 

5UMP0122 

SUMP0125 

r.o  In  SO 

suM?ni20 

SUMPOlPS  • 

70  CONTINUE 

SUMP0126 

SUMP0127 

OVERAtl  EMISSIONS  INDICES 

SUMP0128 

SU«'»0l?9 

EIC0=lFi*Sl|Mt2)/.SUM(  I ) 

FTH:=tFS*SMM(3)/sUM(li 

SUMPOlSO 

SUMPOlSl 

FlNOX  = t ES*SJM(a)/SUM(  1) 

SUMPOI 52 

SUMP0153 

PRINT  RESULTS 

SIJMP0150 

Si.iMPOl  35 

CALL  Cl  )CKrTTME,FLAPSO,MnNTH,OAY) 

OATA  YFAR/7S/ 

SU»<P0136 

SUMP0137 

WHJTF  (6,lnn0)  TTmE, Mtnth, HAY, YEAR, ri'APsD»TlTLF, PRINTd  STA)» 

» (inPT ( I , 1,1)  ,J  = 1 , 10) , J=1 , 1 1 ) 

MR  I Tr  (h,  t oon 

wRiiF f6, 1 oo2)  I nPTii,  j,pi , 1 = 1 . 1 0 j.  jst  .in 

SUMP0138 

SUMPOI  S9_ 

SUMPO  1 '10 

SMwpOl'Il 

WHI Tr  (6, 1 OOS) 

LRlTf  (<,,tOO?)  ((nPT(T,j,5i,l  = t,10),J  = i,n) 

SiiMPOt'42 

SUmPOI  Cl  3 

WRlir (6, 1 00a)W(NT*l ), SUMIl ) , E 1 C J, F I Hr , F I NOX, fSUMI n , IrP.O) 

~ PUNCH  FARTS  for  SUnSKD-lFNI  PlVlfllNG 

RATA  FnR  Each  Tu^F  - INvFW.  OhTEP  RAOIhS.  SAMP!  r Fun /'AIR. 

SUMPO  t aa 
suMpotas 
su-P0ta6 

StjMPoi  Hi 

Eir  ),  FiHC,  fin:ix,  ppm  c»,  hc.  vox 

PUNCH  10nS.'TITLE,PMtNT(LSTA),NT,  (iriPTII,.?,  1)  , 1 = 1 , 2)  » (OPT  f I , .1 , S)  , 

SU^PO  t U8 

SUmPO  1 C|9 

SUMPOlSO 



A 

[ RETURN 

n 

1000  FnRMtTdMl  YT1C*I  HOJEl  Or  FtHA  naT  Pt  HnrS  from  . 

•ShH»FTFRrtlJRNiI*jr.  FnCINFS  TO  PREniCT  RFACTIOM  of  CflNTAMlNANT  , 

' ioHEMissr:)ns./s2M  r,rNE*<At.FLEc^’^jr._c'i'iP*'<r,  , 

•PlHAJRCRAFT  EnRIME  RRllUP^  9X  , 1 1 HCOMP'.IT  EO  ATjFfc.j/lOH  HOURS  ON  , 

1 H/>,  Tg,  7X,1  gHfcLAPSFp  TImE,Fh;2,6H  SKCOnDS/  btLiiOkb// 

'SUX,?'4H?RnFlLES  AmO  CoNIAmInAsjT  RFSI0'JAlS,FS.'3, 

'PPH  FEFT  FRIM  N.T77LE  F X IT //9X  . 1 PHR  A 0 T US.  FF  F T . Rx  . I SHR  A FI  Ow  I 

'flHVFI  3ci  TT,  I IX,  9H«IcH  Pa«T,' 1 7X,  9HL  FAW  Pa  R f , I ?X  , I OKPREDTC  TF.O  , 

* IOHIMJTCaTtDN/I  IH LNNHi»flX»StnUTERf ’><.  SHPPS»  lOX,  iHFP3»7X, 

•p(26>HFl)£iVr.A.S  TEMp,DE&R  )»?1H  pT,PSTA  TT,DEGR// 

!iinx,iPioFi3jS£)j 

1001  FtiHHAK/gftxjRaHAVERACE  CAS  .COlP'JSlTInN  UNDER  FREF  STREAH  , 

» IQHCnNOTTTnNS) 

lOOa  FOR'iATfblHO  MASS  FRAfl  FUEL/AIR  EMISSIONS  INOIFES#  i 

' I IHLH/Ki.H_FUrt,  nx,?3HANAl,V?FR  HFAOImGS,  PPMV/J3H  MICH  PARl, 

• f>x;SHR4Ti:i.3X,?HCn,l  lX,?HHb,7X,i?7HNOX  AS  N02  COlORIFOi  » 

•9hhc_as  r.HKi,j/x,  3Hvnx//i  1 nx,  ioioEi3,s/)) 

1003  F0PMaTT/P»X,39HAVFRaCE  CAS  COMPJSITlnN  AS  MnrtlFIEO  BV  7 

MgHSAMPLF  PROBE) 

1009  FORMAT! /PHXfUlHIMlEGRiTEO  PROFILE  AVERAGES  (FREE  STREAM 

Ll  LyCnvDIlI.oNS)/_^2lH0_ total  Pua“!5.  PPSjRXjITMF.MISSIONS  INDICES* 

'15H,  LH/KLB  FUEL.  1 3X»?2Hr.nNTAMrgANT  FLO-gS,  PPS/IPH  GAS  MIX, 

J.7X,7hFUfl. ..?t7X,?HC(J.nX.2MHC.7x,10HN3X  AS  NQ2) //I  X,  1 P lOEl  3.5 ) 

lOOS  F3RMAT!2fNx.lOA«>/).l7x.?HXs,E7.3,3H  F T » 1 7 X , J H ( , I ? , 7H  TUBES)/ 

' f lPt.E)?.9/3bX.  3E12:u)i 


SU“P0151 

SUHP01S2 

SUMP0153 

SU“?015« 

S>/.r?0155 

SUMP01S6 

SUMP0157 

SU“P0l S8 
SUMP0159  . 
SUMPOlbO 
Sl'NP.Olb.l 

SUMP01<)2 

SUHP01N3 

SUMP01 64 

SUMP0165_ 

SUMPOl 66 

suMPni67 

SUMP0168 

SUMP0169 

SUMPO170 

Su-P«17l 

SUHP0172 

SUMPni73._ 

SUMPOl 7« 

SUMPOl 75 
SUMP0176 
SUMP0177 
SUMP0178 

SU-MP-lllia 

SUMP0180 
SUMPDiai 


CTAsPHt  Table  printout 

SUBRnUTI»jE  TABPRT(NAMF,A»NA,NCOLt) 

TABPRTOl 

TABPRT02 

C 

OIHENSIOR  A(10} 

TABPRTOi 

TABPRTOa 

c 

c 

Input- 

name  s array  name  TO  QE  printed 

tabprtos 

T ABPRT06 

C 

* s array  TO  BE  Panted 

TABPRT07 

c 

NA  s number  of  elements 

tabprtos 

c 

NCOl!  = nUmOEH  JE  columns  tq  be  used  in  the  print 

FORMAT  (maximum  TABPRT09 

c 

UTAH  « LOCATION  Of  FjRST  ELEMENT  TN  A-ARRay  TO  BE 

printed  TABPRTIO 

C ■ 

TABPRTI 1 

COMMON  /CHTTS  / BITS»0LANK 

TABPRT12 

CTJN^TOKTZCTaBPr/  IiVaiT 

TABPRTI  J 

c 

TABPRTia 

equivalence  (!S,B),  (LSPaCE,a3PACE) 

TABPRT15 

DIMENSION  FMT(ia) 

TABPRT16  • 

REAL  112 

TABPRTI  7 

c 

* 

TAflPRTlS 

DATA  iBCT/nOlOOOOOOOOoO/ 

TABPRTIO 

DATA  ZERO/0,/ 

TABPRT20 

DATA  FMT(l)/b7H(lX,lS 

TABPRT21 

t )/ 

TARPRT22 

DT^A 

TA3PRT25 

A Ft,  F3.  Fb,  es,  BCD# 

OCT,  UP/  TASPRTZa 

Jn>M,HZ.l,  bH,Fl2.S*  6m»FT2.6,  6B,Elir«»  bH,6X,Ab» 

6H,BX,na,  aH,H2TABPRT23 

C/ 

TABPRT26 

c 

TABPRT27 

nCOL  « mInOCnCOlI > 10) 

tabprtpb 

NO  C nA 

TABPRT29 

c 

TAHPRT30 

c 

WRITE  HEADING 

TABPRT31 

WRITE  (6,1000)  NAME 

TABPRT32 

c 

TABPRT33 

45  11  > IITAB 

TABPRT30 

I = T1 

TABPRT35 

12  SO 

TABPRT.TS 

c 

TABPRT37 

c 

write  line  space 

TABPRTiS  . _ 

47  WRITE  (b>l002) 

TABPRT39 

C 

LOCATION  OF  next  line  SPACE  13  GIVEN  nY  THE  VALUE  OF  AtT*l)  TABPRTaO 

ASPACFr  A(IA|) 

TABPRTai 

IF (LSPaCE.I  E.l  .OR.  LsPaCE.GE.IBCI)  IsPaCEsIBCT 

TABPRTaZ 

LSPACEs  lSPACE+I-1 

TABPRTai 

CO  To  110 

TABPRTaa 

C 

TABPRTaS 

_ C 

BEGIN  LOOP  TO  define  LT^E  FORMAT 

TABPRTab 

as  11  » ! 

TABPRTai 

c 

TABPRTUB 

c 

CHECK  FOR  normalized  FlOATING  NUMBER 

TABPRTaR 

■— 

50  B s a(1)  __  .... ..  .. 

TA9PRTS0 

1" 

.] 
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C S BtZCRO 

IF(B.EQ,0ITS)  CO_TO  8< 
IFdC.NE.lB)  GO  TO  80 
IF_(IJ,EQ,0,)_  GO  TO  65 
B : ADS(B) 

IFCB.UE.i.F^O  .OH.  B.( 


_RFAL_  number 

FMTd'lfti'aES 
_IF{3.UT,1,E-3. 
) FMT{Il*l)aF6 
IF(a.GF.l.F^) 
IF(B.GE.I.ES) 
GO  TO  <T0 


.OR.  B«GE.1.E8)  CO  TC 
FMT(Il»t)aF3 

FMT(Ilti)«Fi 


: 1 NXE t;E_H_  and  BCD 

80  FMT(II»nail2 
IF(IABSIIB).GT. 


GO  TO  00 
. gcTAt 

as  FMT(II»1) «OCT 

*>0  II  a li»l 

I * !♦! 

I F ( I . C T .I^SPACE)  GO  TO  100 

iFdi.te.NcuL  .ANo,  i.i.£,N8)  go  to  So 

_ _LPJ)_  J ? a _1  -1 

write  (6,FmT)  U.(A(I)»lan»I2) 

II  a t2.i 


no  IF(I2,GE,VB)  go  to  ooo 

I F(1 .GT.LSPACE)  go  to  07 

CO  To  48 

OOP  1 1 T *B  a 1 

RETURN 


1000  format (/2X,A6) 

. tJ)J)^_F  O.RilAl.(ULJ 

END 


TABPRTSl 

TA0PRT52__ 

TABPRTS3 

TAfTPRTS4 

TABPRTSS 

TABPRTS6 

TABPR1S7 

Ta0PRT58_ 

TAflPRTSR 

_TABPRt6J) 

TABPHTfel 

TABPRT62 

TABPHI65 

_T*BPRTfe4 

TABPRT65 

TABPRT66. 

TABPRT(I>7 

TABPRT68 


TABPRTBR 

TAflPRT70_ 

TABPRT71 

TABPRL72 

TABPRT73 

.LABPII.T-Z4 

TABPHT75 

TaBPRT76i 

TA9PRT77 

TABPRTja 

TABPRT79 


TA9PRT81 

.lAa?R-TB^2 

TABPRT83 

JA9PRi6«__- 

TABPRTBS 

TAPPRTAb 


TABPRT67 

.TABPRTBB 

TABPRTBR 


c 

SURROUTImE  T0SEQ(A,n2, ID.FNl 

TDSE0002 

TDSE0005 

c* 

c* 

As  CnEFFICtENT  ARRAY-  — A.B.C.O  BY  COl  UHNS 

TDSEOOOO 

TOSFOOC5 

c* 

c** 

FIRST  CULOmm  DKSTROYFD  rY  SOLUTION  VECTOR 

TDSE0006 

COLUMN  OF  A ARRAY  TDSE0007 

c* 

c* 

TD3E0009 

TDSE0009 

c* 

c* 

IF  NORMAL  OFRIVaTIVE  cUvjDITIOnS  aHE  ENFORCED 
PDImTS  AUJVt  OR  HELOi^  iHt  noUMOARltS,  Afl) 

USING  1ST  TWO  ’DSEDOlO 

AND/nR  Ar3*N?).KE.  0.-  TDSEOOII 

c* 

iHis  coNPiiinN  IS  flagged  by  il  and/or  lUsi, 
dimension  a(«00) 

TDSEf)012 

TDSE0013 

c* 

Entry  tdseoi 

TOSE0014 

TDSE0015 

ISIZESID 

I2=1SIZE+1 

TDSEUOlb 

TDSE0017 

IF  (A(I2))  12,11,12 

U FNs1.‘ 

TDSEDOIB 

TDRE0019 

GO  In  50 

12  I3s2*IsI2E4l 

TDSE'0020 

TDSE0021 

M = 3*1SIZE*I 
lUsO 

TDSEO022 

TDSE0025 

iLaO 

GsO, 

TOSE0024 

TDSE0025 

IF(A(n,NE.O,)  IC*l 

1NMsI3+N2»i 

TDSE0026 

TDSE0027 

IF(A(1nm)  .NF-.O.)  iu  = i 

GsA(l)/A(IP) 

TDSE0028 

TDSE0029 

A(I3)  = /;(I3)/a(I2) 

A(l)sA(I(|)/A(l2) 

TDSEOO30 

IDSE0031 

Nsn2 

DO  10  Is2,N 

TDSE0032 

TDSEO033 

izsisize^i 

TDSEOP34 

I3=I?»ISIZF 

TDSED035 

14sl3+ISIZE 

IFd.NE,  N .OR.  IU.nE.1)  go  To  15 

TDSE003b 

TDSEr)037 

A(I)rA(n-Ad3)*Ad3-2) 

AdaisA(I'4)-Ad3)*Ad-2) 

TDSEQ03f> 

TDSE(3039 

15  CONTINUE 

A(i?.)  = Ad?)-A(n*Ad3-n 

TDSE0040 

TDSEC04 1 

IF  (A(I^))  13,11,13 

13  IF(1.!:0,2_;anC'.  IL.FO.  n_A  ( I3)sAn32?*_U)*C_ 
IFd.EO.N  .Afip.  lU.tO.l)  GO  IQ  iO 

A(I3)=A(t3l/A(I?)  

iO  A(I)r(A(I«)-A(I)*A( I-l ))/A(l2) 

I«N 


20  I»I-1 

IF  (I)  'I0,a0,30 
30  I3=2*ISI7E^I 


TDSEO0«2 

_TDSEao«3 

TD$SEOO«4 

TDr>EOOUS 

TDSE00«6 

TPS£(3oa7_ 

‘iDSEGOaS 

TDSEO0«9 

TDSE0050 
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I F ( I L ./  Q.l  .AND.  I.E  Q.  1)  A(I)«  A (HjiG  i AH  ♦ i j 

GO  TO  20 

«»0  FN«0.' 

50  return 

END 


TDSEQOSl 
_ Tl)SEQ05?_ 
TPSEQ053 

1D5EC!A51_ 

TDSE0055 
IJ)SE^056_- 


COMMON  /r.*SCMPA_RICH(iP£2)jFUet.(2»  l2,2)»FNrH(2,12,2),  „ 

> r0NC(l6,2,12,2)»HCTNf:PCi2,?),0THERn')2) 

_C OM MnN_y r, * STMW/  T r. ( 2>l2»?).MWTG(g>l2,2),TAU(|g»2>.CPG(2.i2#2> 

REAL  mmTG 

common  /oPrTRl/  TlTLEf20^.PRINT(^0S 

COMMON  /STCTHl/  LSTA,plNAL,CHEMi<,FTRJ5TM,FlRSTC,XC,0XC,r)UMST(10) 
LOGIC  AJ- F 1 ^ A LjF^IR  3IMxF  IWSTr ^ 


INTFr.FR 


CHEHK 


COMMON  /CPRlNT/  P0UM(20) 


COMMON  /RHSC 
data  tGl»ENU 


r.RT(25).HRT(2';)»SRf2S).CPRf2S)»0CPR(?S) 
rR/S200.»T.l.<>flS96/ 


DO  too  Ksl^NK 

^00  100  

HGT  s FNTH(J,K*2) 

■If  L-iNQ-l  TR  Y 1 „ gQ  .TO., .10 

T1  » TG| 

GO  TO  15  

T1  s fGxJ.K,2) 

on  io  K Is  1,30 

CALL  ThRm(  11/1.8,1,  ) 

CPGl  s 0. 

HGl  so. 

Dn_20_I  s 1 , 16 

CPGl  = cPr,itcnNC(i,j,K,?)*cPR{n 
HG 1 s HGl  If  O^C_iI  ,J  , K,2)»HRT(1) 

“conttnuf 

HGl  s HGi'sRsTl 

DH  s hCT-HGI 

CPGl  s rPGl*R 

OT  s OH/CPOJ 


HGl  s hG1*R»T1 

DH  s hCT-HGI 

CPGl  s rPGl*R 

OT  s OH/CPOJ 

OTA  s *B2(f>T)_ 

TF(  OTA.lF,  Toi  ')  GO  TO  99 

_u 

IF(  T1.LF.189,  ) T1s189. 

conttnuf  _ _ 

WRITF  (6,15)  T1,0T,HG1,DH 

FORMAT  (//2X,  19HTE.MP.  nOT  COnVERGEo/2x,OE16.*8) 
TG(J,K,2)»  T1 


TFmHOOIO 

TFMHoo11_ 

TFHH0012 

^TFmhOOJL? 

TFMHOOia 

TFMH0015 

TFmhOOI 8 
_ TfMHDOJLL-. 

TFMH0018 

TFHH0019 

TFMH0020 

TFMH0021 

TFMH0022 
...  TF.Mrt0023_. 
TFMH0024 

TKmh0025_ 

TFMH0026 

TFMH0028 

TFmh0029_ 

TFMHOOIO 

_TFmhooS1 

TFMH0032 

TFmhOOSS 

TKMHOOSO 

TFM.H0035 

TFMHO036 

tfmhooit 
TFMH0058 
TFM.H0(I59 

tfm'hoooo 

tfmmoooi 

TFMH0042 
_ _TFmh0043 
TFMH0004 

TF**-H0045_ 

TFMHOoa6 

TFMHOOaZ 

TFMH0048 

TFmH00«9 

TFmhOOSO 


CP6(J>K«?)a  CPGl 

TFHhOOSI 

100  continue 

ENTRVl  » .PALSE. 

- 

TFNH0052 

TFMH00S3 

f c 

200  RETURN 

TFMH0050 

TFMN0055 

1 END 

TFHH0056 

CTFMhI  CP*  T FROM  M TFMHtOOl 


SUHRnUTlME  TFMHK  C»H,T»CP  ) 

COMMON  /KH9C  / GRT(?S),HKT(25)»SR(2sj»CPRf?S),0CPR(25> 

TFMH1002 

TFHH1003 

pimenSiom  r(ii 

TFMH1004 

logical  FnTRYI 

TFHH1005 

DATA  TGl.ENTRVl,R/32bo.«T,l.9B^*/ 

TFMH1006 

C 

TFMH1007 

HGT  a H 

TFmHIOOS 

IF(  rNOT.'ENTRYI  ) GO  TO  1 

Tl  a TGji 

TFMHIOIO 

1 DO  10  KI.1.30 

TFMHlOll 

CALL  THRM(  Tl/l.A*!.  ) 

TFMH1012 

CPGl  a 0. 

TFMH1013 

HGl  a 0, 

TFHH1014 

on  5 lal.U 

TFMH1015 

CPGl  a CPr.l*C(T)*CPR(n 

TFMH1016 

HGl  a HGl*C(n*HRT(I) 

TFHHIOI 7 

S CONTINUE 

TFMHIOIO 

HGl  a HGIARaTI 

TFMH1019 

OH  a HGt**HG1 

TFMH1020 

CPGl  a CPGIaR 

TFmhI 021 

OT  a OH/CPCl 

TFMH1022 

IF(  ABSTOri.Lt.  0.01  ) GO  TO  15 

TFMH1025 

Tl  = TltOf 

TFMH1024 

TF(  T1.’le.i89.  ) T18U9. 

TFMH1025 

to  continue 

TFMH1026 

nRITF  (6.10)  Tl.OT.HGi.OH 

to  FORHAT(//2x» 19HTFMP.  nOT  CnNVERGE0/2x, Of t6.S//) 

TFMH1028 

15  T a Tl 

TFHH1029 

CP  a CPGl 

TFMH1030 

ENTRYl  a .FALSE. 

TFMHI031 

RETURN 

TFMHl0i2 

INO 


• 

CTHRU9T  Calculate  net  tmrust.-lbp 

THRUSTOI 

SUnRnUTlNE  ThRUSTINXi 

THRUST02 

intecer  twoj»  itwo 

THRU3T05 

LOGICAL  SUPC.SUP8TP 

THRUSTOa 

LOGICAL  SUnSON 

THRU3T0S 

LOGICAL  TRoUbL 

THRU3T0B 

logical  bprin 

THRUSTOT 

logical  LAST.CORSTP.AoOP.'EMTRvI.IER 

THRijSTOB 

LOGICAL  EOF  , gRR 

THRU3T09 

logical  AXI  , XPR^^  , CmPRS  * OJET  » 

TURBJ  t CORE 

thrustio 

REAL  KCP.MUL«MUCFF«MAeH 

THRUSTll 

real  MJET  , ME  « MUREF 

THRU3T12 

COMMON  /JEtTWO/ 

THRu9Tt3 

* TWO  , nTAO  « mJeTO  . TJETO  < 

VJl.J  . 

THRU3T10 

* PTJETO  . TIJETO  $ NJO 

THRUST15 

real  MJETO. macho 

THRiiSTlfc 

COMHOM  /3CO/  UO.  E0«  THO 

THRU3T17 

COMHOM  /CTrl2/ 

THRUSTIB 

A FOCEI  , SFI  , merge  . XMERGE  # 

VMER6E  * 

THRuSTlO 

A SLOPEI  , SLOPED  , CEPTI  . CEPTO 

THRU3T20 

COMMON  /MERGET/  MER*  MERSTP  . XMRO 

THRUST21 

logical  two.  merge  . MER  . MERSTP 

THRUST22 

COMMON  /SETNEW/  LEOGe.  lcoren  . 

THRUST2J 

COMMON  /INPl  / ENTRVl 

THRU3T28 

COMMON  /MISC/  PM(IO) 

THRUST25 

COMMON  /PARAM/ 

THRUSTEb 

A *L(200)  ; BE(200)  . OM(200>  * 

THRU3T27 

A EPSf200j  , 0L(200) 

THRIJ8T28 

A VARTZOO)  . DVAR(200>, 

TMRU3T20 

A SMl(200i  NMI  : SMf200i  . VM 

THRUST30 

A OX  , 

THRU3T51 

A Bi  . eil  . ni  . 

THRU3T12 

A an  .bn  .on 

THRU8T35 

t* 

THRuaiiil 

t** 

-C-*_ 


INPUT  COMMON 


COMMON  /iNpjer/ 


A OTAJ 

. MJET 

. TJeT 

• PTJFT 

VJtT.  - - 

A TIJET 

$ 

A PF 

. VE 

r mP 

. TIP 

TP 

A AXI 

A XJtlOOj 

. NJ 

*_XERM(100 j 

. NMAX 

9 

A 6AM 

A 8C.  . 

. R6 
. TREE 

. PR 
-MUREP 

» PRT 

# 

CA 

rA»A»»»  eONTROi 

fOMMON 

C* 

COMMON  yCTRLy 

A NXTa 

..A  NPU  . - . 

'.  CMPRS 
. NPO  

, OJET 

. oxc 

» TURBJ 
* XU 

9 

CPEFIIO) 

XOO 

THRU3T55 

_ THRUSTSfc 

TMRUST57 

« THRU9T3B 

THRUSn? 

.-THRUSTaO 

thrustoi 
THRU3Tfl2  - - 
THRUSTOS 
THRUSTOa 
TMRUSTOS' 

THRU9TU6 

THRUSTOT 
THRuSTOB 
, THRU9T4» 

» THRUST50 


448 


* 0STOH(800r 


C*- 


PROFILE  C3HMON 


THRUST51 

THRUST52 

THRuStS3 


c* 

COMMON  /PRoF/  P31(200)«V(?00)«UD(200i«THD(200)«ED(200) 

THRUST5S 

THRU3T58. 

(******  CONSTANT  and  error  cOHHON 

C* 

THRUSTS7 

THrUSTSS 

c* 

COMMON  /CNERR/  BIT*  # ERR  , GC  « GCJ  « FOOT 

THRu3t59 

THRllSTlfO 

e******  boundary  conoitiom  common 
c* 

THR'J3T61 

THRySTA? 

c* 

COMMON  /BC/  UEOCE  « EEdGE  . THEOSE 

THRUSTAS 

TNRUST64 

e******  potenttai'  core  common 

c* 

THR(jStA5 

THRUSTAA 

C* 

COMMON  /CORED/  XCQRE  < CORE  « CORSTP 

THRUSTA7 

THRUSTA8 

c**** 

COMMON  /SUPER/  3UPC.9UP8TP,X8UP 
**  8CALER  {UNIT8  CONVEflBlONT  COMMON 

THBUSTA9 

THRUSTTO 

c* 

COMMON  /SCALER/  3P  SV  . SI  EN 

THR09T71 

THRU3T72 

c* 

COMMON, /JET/  , . 

THRUST73 

THR0ST7a 

* B(IOO)  ^ UCMOO)  . TC(IOO)  « TiCCtOO)  • 

* PTCMOO)  ■#  WJIIOO)  # YJIIOOI 

THRU9T75 

THRUST7A 

c* 

COMMON  /PROPJT/ 

THR'J3T77 

THRUSTT8 

* P » PRL  # PRTT  « RGAS  « SCC  « 

* TREFF  « VSREF  . mACH  , XLC  . 

THB'JST79 

THRUSTBD 

* REFi  , C , fHI  , RHORM 

_*  RMOf280)  j_MUL(200) ,_KCR<205S 

* MUEFF(200l  . XLN(200)  , 0K<200) 

_C 3M X P R IN/  DPRIN 


RETURB(200^ 


COMHON  /fore/  VJfTE  • 3FEOGE 
JONHON  /UNF3H/  DUMUl C 0 ) , CXPC »CXTP« MBFB 


THRUST31 

THRyST32 

THRUSTBJ 

_THRySie?_ 


C* 


COMMON  /MixER/  MlX,RDM00^«XD(!00>.*CF«YRn00^ 
LOGICAL  .NIX 


common  /floral/  H a XI T 4 3 yP Bj.N  14 ».P3 1 !>/ ijOP .YDC» 


* Plf P2,UcL,T0L,UP3TRM,CV6 

logical  supr»«:vg»upStrm_ 


thrustbS 

THRUST8fc_ 

THRU9T87 

THRU8T88 

THR'J8T89 

JHRySTRflL 


common  /AC04V6/  VCO(l00)tPD(l00)*lNPe(l00>« 

logical  Choke#  choked  

CLBPdOO) 


CHOKE.  CHOKED 


COMMON  /DFtT/ 
common  /9T*2/  HtCH?,Ts2.98?.VE.RHQp^f>PDX2 
REAt  MACH? 


COMMON  /BCmIX2/  GRA0y,TH.HUKiRHOH,PTP»ttE- 

REAL  MUM 

COMMON  /therm/  GmCI208).CP(208)  


THRUST91 

THRU8T92 

THRUST95 

THRUST90 

THRIJST9I 

_THRy8T9fc 

THRU8T97 

THRy3T98 

THRU8T99 

.THRU8TO0 
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c* 


Jit. 

c* 

c* 


COMHON  /oumrx/  NXORTO 

COHMflM  /CBnDV/  VCB(100)»CL9PCB(1661,yCB1.UCL1 

C3MM0M  /THRBT/ WV<10Q  ) 

0ImEn3I0»j  STbRT(200)»THRT2O05 

..EaUIVALENCF  _(STnRI{l)^AL(l)jj(IHRai,BE(Lii_ 
0*T*  PI/3. 141592^5/ 


'IP  MIXING  ZONE  HAS  INlERSECTfO  PLUG—  TERMINATE 


EP9«I, 

_irfAxn  _EpB«2i 

1 VPLUG«YC8(NX) 

UP«ynp<YPLnG.y.uo,i,Npoi 
IFIUP.EOr  yCLli  GO  To  10 
IFIYPLUG  ;eq.  ol)  Gn  in 


liL 


WRITE  (6»100)  NX 
Oq_  FORMAT  (//6X»28MMI  XT  nG.20NE_  INTERSECT£fi_J»LU0/_»i>X*7H3TATlDN». 
* I7//t2X,22HCALCULATiON  TFRMTNATEB) 

FRR«*TflUE. 

GO  TO  1000 


JtlL 


C* 

_c*_ 


calculate  thrust  of  jet  stream 


to  00  IS  l«i*npo 
___  REXP«1,„ 


IF(AXI)  RExP»Y(lV^ 
,l.S_SIOPl.tL,)cRiiatU-*liatL.iAUDfLi««EXP 

• ^ M * 


THR(l)aO. 

-C  A L L _1  NI5  ( 9 
TJaTHR(NP01/GC 


TF(UPSTRM)  GO  TO  19 
TUaO. 


60  TO  SO 


C* 

-£J_ 


THRUST  OF  UNFNTRAINEO  ElON 


19  TFtNX.NE.l),  GO  TO  20 
TUaiau.' 


GO  TO  SO 

.2Q_TUsRHa2*ty2/VJEljFF2/tCC->EPSiEtYD0**fJ»3*TJETEFAEP3L 


IaaEPST 


C* 

-C*- 

c* 


CALCULATE  NET  THRUST 


50  TERMaVJET**2*OTAJ/FOOT 
_TE(AXI)  TERH«PI*DlAJ*TCRM/(j;*EOOTi 
TN«TfRh*(T.I*TU) 


C* 


THRUSTOI 

THRUSTOZ. 

THRuSTOJ 

^TMRUSTILO- 

THRUST05 

thrustoa. 

THRUSTOT 
THrUST09_ 
TMR(j8t09 
. TMRUSTIO- 
THRUSTll 
THRUST12 
THRUSTIS 
THRUSTtO, 
THRU9T15 
J>1RUSIJJL 
THRUSTlT 
THRUSTIS 
THRUST19 
THRUST20_ 
THRUST21 
-THRUSL22_ 


THRUST2J 

THRUST20_ 

THRUST25 

THRuSTZA 

THRUST2T 

_TMRU3t24_ 

THRU3T29 

THRU3T30_ 

THRUST31 

THrUST32_ 

THRU9T55 

_TMRUSTiiL_ 

THRU9T35 

THRUST3A-- 

THRUST37 

THRUST3B 

THRU9T39 

THRU3T40_ 

THRUST41 

THRU3T02 

THR'JST03 

THRUSTOQ 

THRUSTRS 

-THRUSIttk— 

THR'JST«7 

THRUSTOB 

THRUSTOf 

THRUSTSO 
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I 


CTHRMH  CALCIILATFS  (OTMpNStONLf 8S)  TMEpi-tODVNAMTC  PROPERTIES 

"C  from' polynomial  CURVF  FITS  • 

subroutine  THRM  (T.HOnLY) 

c . . 

c this  ROUJINF  calculates  (OIhENSIONlFSS)  THERMODYhAmTC  properties 

c from  polynomial  curve  fits 


logical  next 

■c^rMMO>j/CO'Nn/nUHnj)  ,LS»LSP3#NfX T 

C0MMON/GHSr/GRT(?5).MRT(25),SRC2S) ,CPR(25).0CPRf25) 
CQMM0N/Tc0F/C(7;2,25),TL0W,TMI0/TMi 

F a )'"t  A UTaIVpVt*  ( A3VT*(Ail*T*A5})  ) 

IF  (T  .’eo/TPREV)  "return 

If  (o.ss'iirow  .'leTI  Ta^noT  t ,leJ  thI)  c1i  fo  i 

IF  (T  .Le.  1.20«THII  r.O-TO  2 


WRITF  16.100)  T 

100  format  (7HO(THHM)»SX/SHERRnR.3X»3HT  »»F8.2.16H  IS  OUT  OF  RANGE) 

NEXT  8 .true.' ■ . 

RETURN 

2~WRi' TF  (6,101)  T 

■ LOL  format  (7Hq(THRM1,5x«.7HwARN1NS,?X.3Ht  g.Fa:2:ihH  !<i  OUT  OF  RaNC.i 
* aX,28HEXTRAP0LATE0  VaLUES  RETURNED) 

i^CATE  PROPER  temperature  RANGE 

IF  (T  .'GT,  TMlb)  K a 1 

00  0 lal.LS 

COMPUTE  H/(B*T) 

A 1 . e .£  ( lix,  I)  _j»_C  COi*X^  Uyll 

A2  s C(2,X^lj/P, 

1,1-A-C(-3,K.;L)/.A. 

AU  « C(Q,K^I)/a. 

_ -AS  5 C(5,K.IJ/S. 

« HRT(T)  a F(T) 

- IF  (HUNLY  .EQ,.  0,’)  return ...  . 

TPREV.  a_T 

DO  S lal.LS 

compute  G/(R*T) 

A1  5 C(l.K.I)*(i;-ALOC(li)  ♦ C(6,K.li/T  - C(7,K,I> 

A2  a -C(?/K,I)/2. 


THRHMOOl 
'THRMM002 
T^H  R M M Oj).  J 

ThrmmoVu 

THRmmOOS  _ 

ThRMM006 

THRMM007 

ThrmmOOS 

ThrmmoO.R 

TmRmmoIO 

THRmHOU 

TMRMM012 

THRMMOU 

THRMMOIO 

T H R JlM  0 I S 

THRMM016 

THRMM017.  .. 

THRMMfllS 

ThrmNOJ')— 

THRMMO20 

LdR.MMQZl 

THRMM022 

TMRMH023. 

TH»mM02(» 
THRMM025  . - 
THRMM026 

*_tMAM!l02I 

ThRMM028 

ThRMM029 

THRMMOJO 
- THRMM031_ 
THRMH032 

^THRXMOiS 

THRMM030 

. _ThRMM03S 

THRMM036 

THRMM037. 

T«RmM03B 

^TMR.MM039 

THRhMORO 

ThRMMOai 

THRMM042 

THRMM0a3_ 

THRMMoaa 

—iHR.MMOaS 

THRMM046 

THRMM0U7 

THRMMOOB 

THRmHOR? 

TMRMMOSO 


d 


*5  « 

THRMM051 

Aa  = -c(«.K,i)/ja. 

A5  = -C(S,K,l)/?0. 

THRMM0S2 

THRMM053 

GRT(I)  « F<T) 

THRMMOSa 

e 

TMRMMOSS 

c 

COMPUTE  3/R 

THRMM0S6 

A1  s Cn.K,I)»ALOG(T)  ♦ CfT.K.Il 

THRMMftST 

A2  = C(2,K^n 

TriRMMOSe 

A3  » Cf3.K.n/2. 

THRKM0S9 

A«  s C(a,K^I)/5. 

TMRMM060 

AS  c C(5.K.r)/<l. 

THRMmi)61 

SRdl  s F(T) 

THRMM062 

c 

THRMM0fc3 

c 

COMPUTE  CP/R 

ThRMMOfc« 

A1  s Cfl.K^li 

THRMHOAS 

A2  = C(2,K;n 

THRMH066 

A3  = C(3,K.I) 

THRMM0G7 

A<l  s C(a.K^n 

THRMM068 

AS  a CTS.K.I) 

THRMM069 

CPR(r)  s FTT) 

TMRMM070 

c 

THRHM071 

c 

compute  (0CP/DT)/R 

THRHMCt72 

A1  s C(2.K.l) 

THRMK073 

A2  s 2,«C(3»K»T) 

THRMM07a 

A3  = 3.*C(<I.K.I) 

THRMM075 

A«  s «.*C(SfK,I) 

THRMM07b 

AS  s 0, 

• 

THRMM077 

5 OCPR(I)  r F(T) 

THRMM078 

t 

THRMM079 

return 

thrmmobo 

END 

LHRMMOBl 

J 

1 

j 


\ 

i 


1 


i 


CTRIOIA 


SOLVES  TRI-OIAgONAL  svsteh  of  equations 


subroutine  TRIOIA  (J*nN) 

T 

c*  This  ROuTINF  FINqS  Thf  solution  Of  a IRtolAfiONAi'  SVSTfH 

-n  * -TKE-KATR I )r--Tk“C ONTATNS  “TR  I O I a GON Ar'CDEFF  t C I EN T “M A T R I X 

c*  The  MATRIX  -B-  CONTAINS  ThE  RhS  VECTOR 

"C* THE~ST7E-0F  THE^ATR15nS~fNM*ITX(MMVn 


A(J,]0:ArJ.3)/A(J,?) 

H rj ) sB  f j ) 

^NMrsNN-I ' 

00  20  N=JP|,NNM1 

A tN>  2)  *i  'n  A tN.  21  -A  (N;n  AA IN-I  ;s')  j 

A(N,5)sATN;5)*A(N,2) 

2n-H(N)-rBCN)-ArwVI  j *BfMiTjTAXfN72l 

C*  BACK  substitution 

C*-STORr-^aLUTlOM~VECTOR“nnTH5*VECTOR“COCATl 

N:NN 


R(N)s(B(N)-A<N»l)*S(N.n)*A(N(2) 

— 2 6 o-iE"  r N- j j *3 0 nv3in)727o — 

270  NSN«| 

H ( W ) sB  TN  r-^(H,3)*BTN*lj 

60  To  260 

300  COMTINljE 

return 


TRIOIAOl 

TRIOIAOZ' 

TRI01A05 
tRioTToO" 
^ Fn_UATRlolA05_ 
TRIOlAOb 

TRIOIAOT 

■ tRioiaoF" 
TRI0IA09 

TRior/rroT 

TRIDTAll 

TRioiAir 

TRIOIAI3 

TRIOIAIO" 

TRI0IA15 

TRTOTjnrs- 

TRIOIAI7 

TRlOlAir 

TRIDIA19 

TRI0IA20' 

TRI0IA21 


TRI0IA23 

TRI01A2A 

TRT0TA25 

TRI0Ia26~ 

TRIJBIJ^2T 

tRl0iA2T 

TRII>IA29 

TRIOIAlO 


CXS17E  X-8TEP  SIZE  CONTROL 

. 3U0«OUT1nE  X31Zt  (OXfX. REEL. NRE6. LAST) 

LOGICAL  LAST 

CD.M'^QN  ySLlHEiU LK.KfUC 

COM»inN  /UMFSh/  OUHX(«i,CXPC,CXTR.MRCl) 
CON'iON  /CTRLZ_PUM3X(?),_C6.*_Q11M8X1(«U-X0 

C* 

c*..  nPEGsI*.  PX  PRQPQRT1QnAi;._T0_B 

c*  nREC«2.3  ox  proportional  to  jet  RADIUS 


LASTc, FALSE. 

OXTeXD-X 

l_GO.TD  (10.20.2ftj.T<REG 

C* 

10  DXsCXPOREEL/CA 

IFTDx.GE.*  .R'»*OxT)  nx«OxT 

XTaX^OX  

GO  TO  50 

20  iF(Lr”G^TriTr  "c3 ld"i6 

PX?  . l*FLOAT(LC)«CXTP*REFL/g( 

LCsLCtl 

CO  TO.RO 

30  OX«cXTP*REFL/C* 

_ RO  IFfOX.CEr  _.RR*PXlj_.  OX_«OXI_ 
XTaX.OX 


_Ci! CHECK  i-0R_X .r.T.  calculation  ST< 

_ 50  IF(XT,LT.XQ)_J;0  JQ  JftO 

LAST. .true. 

Dx»xn«»x 

c* 

100  RETURN 

END 


_.»-OUMSX2l800J. 


XSIZEOOt 

XSIZEOOZ 

XSIZE003 

_XS1ZE0P.<L_ 

XSIZE005 

XSIZEOOO 

XSIZEOOT 

XS1ZE008.. 

XSIZE009 

_XS1ZF0HL. 

XSIZEOlt 

XSIZEOU- 

XSIZF013 

XSIZEOIR. 

XSIZE015 

-XSIZEOIO- 

xsizEoir 

XSIZEOIB 
XS1ZE019 
. XS1ZE020 
XSIZE021 
_XSIZE022_ 
XSIZF.025 
XSIZF.02R 
XS1ZE02S 
XS1ZE025 
xsizEozr 
_X5IzE028- 
XSIZE029 
XSIZE030 
X3IZE031 
XSIZE052 
XSIZE033 
_*5IZE03<L_ 
XSIZC035 
XSIZE038 
XSlZEOSr 


CYOFXIl 

FUNCHON  .YoriXl»_JtjJfxIALlfll. 

COMMON  /vOfXI/  I 

DIMENSION  xCloi.YtiOi 

ItsU*^l 

!2»Ifl 

IcMiN0(M*Xo(Il.nt!2) 



qO  IF(N)  02. 949(42 

0?  NxN»l 

53  Fs(xj-X(T-l))/<X(n-X(l-l)) 

5S_IF(F).J»O.Jo0x.M 

60  IF(l-in  6S. 100.63 

65-.IsIn 

60  TO  40 


YOFXltOl 

YOFXllOZ- 

V0FX1103 

.YDFXllOO. 

Y0FX1105 

YOFX1106_ 

YOFXllor 

YOFXllO#- 

Y0FX1109 

jroFxino. 

YOFxllll 

Y0FX1112 

Y0FX1113 

VDFXllLO- 

YOFXlllS 


72  IF(I-1?)  74,100,74 

. al  tJ 

GO  Tn  40 

. 9 99_c  AU  

RETURN 

00 


RETURN 


YOFXllir 

.YOFXlll»_ 

Y0FX1119 

YOFXllZi). 

Y0FX1121 

Y0FX1122^ 


Y0FX1123 

-YOFXlliA. 
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